inscription d'un texte a coté du bouton macro en cliquant dessus

[BelTitou]

Bonjour tout le monde, je suis face à un problème idiot que je ne sais pas comment resoudre:

sur ma feuille, j'ai plusieurs boutons macro à différents endroits

j'utilise toujours la même macro affectée à tous les boutons

je voudrais que cette macro écrive un texte dans la cellule juste à coté du bouton que j'ai utilisé.

exemple: si je clique sur le bouton qui est en C6 le texte doit apparaitre en D6 et si je clique sur le bouton en A2, le texte doit apparaitre en B2.

Merci d'avance à la communauté.

 

[Pierrot93]

Re : inscription d'un texte a coté du bouton macro en cliquant dessus

Bonsoir,

j'utilise toujours la même macro affectée à tous les boutons

elle n'est pas dans le classeur...

bonne soirée
@+

 

[Etienne2323]

Re : inscription d'un texte a coté du bouton macro en cliquant dessus

Salut BelTitou,
c'est beaucoup plus simple de le réaliser avec des boutons activex que des boutons de formulaires.

Voici un exemple avec le bouton ActiveX.
1) Ajoute le bouton ActiveX
2) Sélectionne le mode création
3) Clique droit sur le bouton et ensuite sur "Visualiser le code"
4) Inscrire ce code dans le module de la feuille

Option Explicit
Private Sub CommandButton1_Click()
Dim Texte
Dim t

Texte = "Etienne"
Set t = ActiveSheet.CommandButton1.TopLeftCell
Cells(t.Row, t.Column + 1).Value = Texte
End Sub

Tu n'auras qu'à remplacer le contenu de la variable Texte ainsi que le numéro du Commandbutton.

Voir l'exemple en pièce jointe.

Bonne continuité,

Étienne

Édit : Salut Pierrot ! Content de te croiser en ce congé Pascal 🙂 Bonne journée !

 

[BelTitou]

Re : inscription d'un texte a coté du bouton macro en cliquant dessus

Merci Etienne, c'est presque parfait, le soucis qu'il me reste c'est que je suis obligé de faire une macro pour chaque bouton... Au final je ne fais pas qu'écrire un texte: il y a toute une série de commandes qui copient des fichiers, puis les renomment, puis font des copier/coller de certaines cellules d'un fichier pour remplir l'autre,..... puis créent un lien hypertexte pour le mettre dans la case à coté du bouton.

J'ai déjà cette enorme macro qui fonctionne mais elle ne fait le lien hypertexte qu'a un endroit précis.

Mais ton coup de main va me degrossir la fin de mon problème: je ne connaissait pas cette commande:

Texte = "Etienne"
Set t = ActiveSheet.CommandButton1.TopLeftCell
Cells(t.Row, t.Column + 1).Value = Texte


Merci la communauté

 

[Pierrot93]

Re : inscription d'un texte a coté du bouton macro en cliquant dessus

Re, bonsoir Etienne,

nous ne la connaissons toujours pas...

Bonsoir,

elle n'est pas dans le classeur...

bonne soirée
@+