Discussion :

[peofofo]

Bonjour à tous,

Je cherche la solution pour modifier le texte du bouton.
Le bouton se nomme
Je prend le terrain

et je voudrait que par vba ce bouton se nomme désormais :
Je quitte le terrain:
J'ai cherché du coté de :

Code :

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

ActiveSheet.bouton1.Caption = "Je quitte le terrain"

Malheureusement, ce code ne fonctionne pas

Merci de votre aide

[MarcelG]

Bonjour,

Précision : la propriété "Caption" signifie le Texte du bouton, et pas son nom

J' utilise la barre d'outils "Boîte à outils Contrôles" pour créer mes boutons, et pour modifier le texte,
je te propose

Code :

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

Sheets("Feuil1").bouton1.Object.Caption ="Je quitte le terrain"

A tester

Cordialement

Marcel

[patricktoulon]

bonjour

j'i eu a jouer avec les captions de bouton et j ai rencontrer le souci deja alors
en fait exel quelque fois et je ne sais pas pourquoi ne comprend pas les command il faut lui preciser "control" bien que des qu'on parle de caption il sagi forcement de controls hihihihih

alors

Code :

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

ActiveSheet.controls.bouton1.Caption = "Je quitte le terrain"

voila
a +

[momone18]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub validez_Click()
    'tout ce qui suit marche parfaitement sous VBA 2003

    'With UserForm1
    '    bouton1.Caption = "bonsoir"
    'End With
    
    If bouton1.Caption = "bonjour" Then
        bouton1.Caption = "bonsoir"
    Else
        bouton1.Caption = "bonjour"
    End If
    
End Sub

[laetitia]

bonjour tous le monde
si le bouton est pris dans boite a outils contrôles

'code

Code :

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

Sheets("Feuil1").CommandButton1.Caption = "Je quitte le terrain"

bouton formulaire

Code :

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

1
2
 ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Je quitte le terrain"

[peofofo]

Merci d'avoir répondu.

Des solutions proposés sont pour les boutons de formulaires userform.

Le bouton dont je souhaite modifier le texte se situe sur la feuille excel.

Le code ressemble plus a :

Code :

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

1
2
ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Je quitte le terrain"

Je vais testé

[MarcelG]

Laetitia,

Sur une discussion, j'avais déjà remarqué une différence de syntaxe suivant que le bouton est créé par la boîte à outils Contrôles ou par celle Formulaires. (propriété Enabled notamment)

Pourtant il s'agit d'un bouton de commande dans les 2 cas !?

Cordialement.

Marcel

[momone18]

Bonjour à tous !

'tests OK cette fois ci avec des boutons de commande de la boîte à outils contrôles sous exel 2003

' 1° avec un bouton dont on veut changer le texte se trouvant sur la même feuille

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub bouton1_Click()
 
   If Worksheets("Feuil1").bouton2.Caption = "Bonsoir" Then
      Worksheets("Feuil1").bouton2.Caption = "Bonjour"
   Else
      Worksheets("Feuil1").bouton2.Caption = "Bonsoir"
   End If
 
End Sub

' 2°avec un bouton dont on veut changer le texte se trouvant sur une autre feuille

Code :

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

1
2
3
4
5
6
7
Private Sub bouton4_Click()
   'le bouton 4 se trouve sur Feuil1 et le bouton 3 sur Feuil2
 
    Worksheets("Feuil2").Activate
    ActiveSheet.bouton3.Caption = "Perdu"
 
End Sub

'ci joint pour preuve fichier xls

SALUTATIONS

[laetitia]

re,momone dans ton premier exemple tu as renommee un commandbutton en bouton2. bien sur que cela va marcher sans pb..??? par contre si tu veus simplifier ton code tu peus ecrire comme cela

Code :

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

1
2
3
Private Sub bouton2_Click()
 bouton2.Caption = IIf(bouton2.Caption = "Bonsoir", "Bonjour", "Bonsoir")
End Sub

ps oubli pas les balises autrement

pour mettre les balises sur tout ce qui est du code tu selectionnes le code avec ta petite souris puis tu clique sur la touche diese c'est tout a+

[peofofo]

Merci à tous,

Problème résolu