[Déplacé encore, et encore, et encore, et encore, et encore, et encore, et encor

Résolu
chris09300 Messages postés 140 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 18 avril 2012 - 4 mai 2010 à 18:32
chris09300 Messages postés 140 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 18 avril 2012 - 5 mai 2010 à 14:16
Bonjour
je suis sur excel2007, j'ai plusieurs boutons sur 1 feuille. ils se nomme:
1 test1
2 test2
etc,
je souhaiterais dans ma macro attribuer chaque bouton, c'est a dire quand je clique sur le 1er bouton test1 que test1 s'ecrive dans une feuille.
et cela pour chaque bouton.

je ne connais pas la syntaxe.
merci

6 réponses

rv83toulon Messages postés 68 Date d'inscription mercredi 2 mars 2011 Statut Membre Dernière intervention 25 avril 2013
5 mai 2010 à 13:53
RegardeIci
dans l'exemple j'ai utilisé les boutons de commande contrôles activex de la barre d'outils formulaires.
@+
rv83toulon Messages postés 68 Date d'inscription mercredi 2 mars 2011 Statut Membre Dernière intervention 25 avril 2013
5 mai 2010 à 08:13
Bonjour,
si tu as utiliser les boutons de commandes activeX (ce que je te conseille, car plus simple pour ce que tu veux) plutôt que le bouton de commande de formulaires alors tu peux essayer ceci directement dans le code de la feuille :
Private Sub CommandButton1_Click()
'je met en A1 le nom du bouton
Range("A1") = Me.CommandButton1.Name
'ou
'je met en A1 le texte du bouton
Range("A1") = Me.CommandButton1.Caption
End Sub



@+
rv83toulon Messages postés 68 Date d'inscription mercredi 2 mars 2011 Statut Membre Dernière intervention 25 avril 2013
5 mai 2010 à 08:15
Pardon j'ai oublié,
le code est pour un bouton bien entendu donc tu fais pareil pour le deuxième bouton
Private Sub CommandButton2_Click()
'je met en A1 le nom du bouton
Range("A1") = Me.CommandButton2.Name
'ou
'je met en A1 le texte affiché sur le bouton
Range("A1") = Me.CommandButton2.Caption
End Sub


@+
rv83toulon Messages postés 68 Date d'inscription mercredi 2 mars 2011 Statut Membre Dernière intervention 25 avril 2013
5 mai 2010 à 08:29
C'est encore moi,
pour le bouton de commande de formulaire voici un exemple :
Sub test2()
Range("A1") = ActiveSheet.Shapes("Button 2").Name
End Sub

Affecte cette macro au bouton, il affichera le nom du bouton en A1 de la feuille active

@+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
chris09300 Messages postés 140 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 18 avril 2012 1
5 mai 2010 à 12:38
peux tu me faire un petit exemple. je dois mal m'y prendre car la macro s'arrete sur ME.
merci
chris09300 Messages postés 140 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 18 avril 2012 1
5 mai 2010 à 14:16
super,ca marche tres bien. je te remercie, toute ces code me font evolue. merci encore
Rejoignez-nous