format d'un bouton

Bonjour Cruz, le Forum,

Est-ce que ceci te conviendrais ?

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = 'inactif'
MsgBox 'Ton bouton est inactif'
Else
ToggleButton1.Caption = 'actif'
MsgBox 'Ton bouton est actif'
End If
End Sub

En te souhaitant une bonne journée.

Bonjour tout le monde

Cruz, au risque du Goto Zop, on peut penser d'après ce que tu écris que ton bouton est sur une feuille et non un USF, son évènement click est donc géré fort logiquement dans le code de la feuille concernée, dans cette partie de code tu sélectionnes Worksheet au lieu commandbutton dans le menu déroulant gauche de la fenêtre de code et 'change' dans celui de droite, tu actives ainsi l'évènementiel qui réagira à chaque fois que tu change la valeur d'une Cell de la feuille .
Tu mets ce code ensuite :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range('A1') = 'OUI' Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

Attention, c'est sensible à la 'casse' (Maj-min), ça peut se paraméter si on veut


Bonne journée à tous,

Brico

Merci de vos réponse
mais je croit qu'aucune ne marche, il y a à chaque fois une erreur d'execution.

mais merci quand meme

Re

En PJ le classeur de brouillon, mets OUI en A1

cordialement,

Brico [file name=repCruz.zip size=9083]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/repCruz.zip[/file]

merci beaucoup

maintenant ça marche !
(J'ai du faire une faute de frappe ou quelquechose comme ça avant)

bonne journée
a+
cruz