bonsoir, SVP qu’est ce qu’ on peut changer ici pour avoir la meme photo dans 2 emplacements différents en meme tps
Private Sub UserForm_Activate()
Dim Emplacement As Range
Dim img As Object
Dim ShapeObj As Shape
'Boucle pour supprimer l'ancienne image
For Each ShapeObj In Sheets("feuil4").Shapes
If ShapeObj.Name = "Cible" Then Sheets("feuil4").Shapes("Cible").Delete
Next ShapeObj
If Application.Dialogs(xlDialogInsertPicture).Show Then
'Définit l'emplacement de l'image
Set Emplacement = Range("H39:I42")
Set img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With img.ShapeRange
'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
.Name = "Cible"
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If
bonjour, merci de la réponse
je suis nul en vba , j’ai copié le code sur internet, qui marche bien mais moi je veux avoir 2 photo (la même) dans 2 cellule différentes et je ne sais pas comment entrer le code pour la 2eme cellule pour que la photo apparaît en un seul clic dans 2 emplacements différent
Merci pour votre aide
dans ce classeur modèle j’ai la photo qui s’affiche dans la cellule D3 : E8 je veux ajouter la même photo dans la cellule D11; E16 pour avoir les 2 en même temps et en un seul clic
Merciimage.xls (45 Ko)
Private Sub UserForm_Activate()
Dim Emplacement As Range
Dim img As Object
Dim ShapeObj As Shape, i%
'Boucle pour supprimer les images sauf le bouton
For Each ShapeObj In Sheets("feuil1").Shapes
If ShapeObj.Name <> "CommandButton1" Then ShapeObj.Delete
Next ShapeObj
If Application.Dialogs(xlDialogInsertPicture).Show Then
For i = 1 To 2 'Boucle pour 2 images
If i = 1 Then '1ère image
Set Emplacement = Range("D3:E8") '1er emplacement
Else 'sinon pour 2ème image, copie de la première
ActiveSheet.Shapes.Range(Array("Cible1")).Select
Selection.Copy
ActiveSheet.Paste
Set Emplacement = Range("D11:E16") '2ème emplacement
End If
Set img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With img.ShapeRange
'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
.Name = "Cible" & i 'Nomme les images 1 ou 2
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Next i
Else
MsgBox "Insertion d'image interrompue."
End If
Unload Me
Range("A1").Select
End Sub
Bonjour oui mon problème est résolu et Merci,
j’ai encore une autre question SVP qu’est ce qu’on doit changer pour avoir ces 2 photos dans une autre feuil
cad l’userform dans la feuil1 sans photo et les 2 photos sélectionnés dans une autre feuil
j’ai changé feuil1 par feuil2 et ça pas marché
oui d’accord, voila mon classeur modèle
je veux que l’userform reste dans la feuil1 et que les 2 photo sont affichées dans la feuil3
sans les affichés dans la feuil1 uniquement dans la feuil3 D3:E8 et D11:E16image.xls (40,5 Ko)
merci, une autre question SVP
je veux que les photo du logo reste quand on change les 2 autres photo ainsi que tous les autres image sur la feuil image (1) (1).xls (304,5 Ko)
sous la solution pour la valider.