Discussion :

[aokiseiichiro]

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 !

[ouskel'n'or]

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

A+

[Vesta]

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

La je pourrais t'aider...

[aokiseiichiro]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aokiseiichiro]

Merci beaucoup ca marche impeccable!