Double photo dans 2 emplacements différent


#1

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

End Sub


#2

Bonjour,

Peut-être faudrait-il savoir où placer l’image dans le 2ème emplacement ?
Et un classeur modèle serait préférable


#3

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


#4

je pence qu’il y a un changement ici pour ajouter un 2eme emplacement
j’attends votre aide merci


#5

Re,

C’est justement pour cela qu’un classeur modèle serait préférable qui ressemble à l’identique
ou ton classeur sans données confidentielles
image


#6

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)


#7

Bonjour

A tester

La macro:

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

image.xls (46,5 Ko)


#8

Bonjour, Mimimathy je vous remercie énormément, c’est ce que je voulais
bonne continuation


#9

Ok
Si ton probleme est resolu n’oublie pas de cliquer sur le petit :white_check_mark: sous la solution pour la valider.
A la prochaine


#10

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é


#11

Re,

J’avais précisé quoi dans un autre post ?

Précise le nom de la feuille et les bons emplacements :face_with_raised_eyebrow:


#12

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)


#13

Re,

A tester
image (1).xls (47 Ko)


#14

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)


#15

Re,
image (1) (1).xls (826 Ko)


#16

Merci pour l’aide Mimimathy