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

BelTitou

XLDnaute Nouveau
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é.
 

Pièces jointes

  • exemple.xls
    13.5 KB · Affichages: 48
  • exemple.xls
    13.5 KB · Affichages: 49
  • exemple.xls
    13.5 KB · Affichages: 48

Etienne2323

XLDnaute Impliqué
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

Code:
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 !
 

Pièces jointes

  • exemple.xls
    35 KB · Affichages: 60
  • exemple.xls
    35 KB · Affichages: 50
  • exemple.xls
    35 KB · Affichages: 52

BelTitou

XLDnaute Nouveau
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é
 

Discussions similaires

Réponses
1
Affichages
190

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh