[VBA-E] Copie de boutons

Bonsoir!
J'ai quelques difficultés en VBA Excel, avec la gestion des boutons. Je m'explique :
Sur ma feuille j'ai un bouton (Button, pas CommandButton) dont le code qui lui est attaché permet d'afficher la date actuelle, dans la cellule à côté.
Ce que je cherche à faire, c'est, à l'aide d'une macro, de copier ce bouton à un autre endroit. Et que quand je clique sur ce nouveau bouton, la date actuelle s'affiche dans la cellule juste à côté de ce nouveau bouton.
Le problème c'est que lors de la copie, mon bouton change de nom, et je n'arrive pas à trouver de code permettant d'insérer la date sans utiliser :
- les coordonnées de la cellule
ou
- le nom du bouton
Ce qu'il me faudrait c'est un code qui désigne la cellule juste à coté de mon objet bouton, mais sans utiliser son nom.

Si quelqu'un peut m'aider, ca me rendrait un sacré service.
Merci d'avance !

Quand tu colles ton bouton à un "autre endroit", tu donnes bien une position. Quelle est-elle ?

A+

Il nous faudrait le code qui copie ce bouton a un autre endroit...

La je pourrais t'aider...

Le bouton fait parti d'une plage de donnée, je prend d'autres informations également. Ce qui donne :

Code:

---

1 2 3 4 5

Range("A1,F3").select Selection.Copy Cells(5,1).Select ActiveSheet.Paste

---

bonjour

tu peux tester cette procedure

la 1ere macro permet de copier la plage de cellules , le bouton et d'affecter la macro "affcherDate"

Code:

---

1 2 3 4 5 6 7 8 9

Sub copiePlage_Et_Bouton() Range("A1:F3").Copy Cells(5, 1).Select ActiveSheet.Paste   'affectation de la macro "affcherDate" au nouveau bouton ActiveSheet.Shapes(ActiveSheet.Shapes.Count).OnAction = "afficherDate" End Sub

---

la 2eme procedure , à placer dans un module permet juste d'afficher la date, à coté du bouton qui est cliqué
cette macro doit etre appelée depuis les boutons de la feuille

Code:

---

1 2 3 4 5

Sub afficherDate() 'Application.Caller permet de récupérer l'objet d'ou est lancé la macro 'adapter l'Offset en fonction de la dimension du bouton ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 2) = Date End Sub

---

bonne journée
michel

Merci beaucoup ca marche impeccable!