Comment copier un dessin sur toute les feuilles

[thuan]

Bonjour le forum

J'ai un petit problème,
je vous explique:
J'ai 6 feuilles
un dessin fait sur excel avec les outils de dessin d'excel
le dessin se trouve dans la cellule A1 de la feuille 6 je veux lorsque je clique sur un commandbutton excel me copie le dessin de la cellule A1 de la feuille 6 dans toutes le cellule A1 des feuilles 1,2,3,4,5

Je sais comment faire pour une valeur numérique mais pas comment faire pour un dessin
voila ce que je rentre pour une valeur numérique:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count - 1
Sheets(i).Cells(1, 1).Value = Sheets(7).Cells(1, 1).Value
Next i
End Sub

Merci pour votre aide

 

[myDearFriend]

Bonsoir Tuhan,

Si tu n'as qu'un seul objet graphique sur la feuille 6 , le code suivant devrait sans doute fonctionner :

Dim F As Byte
Sheets(6).Shapes(1).Copy
For F = 1 To 5
Sheets(F).Paste Destination:=Worksheets(F).Range("A1")
Next F



Cordialement,
Didier_mDF