bouton avec nom interchangeable

[pat101]

Bonsoir à tout le forum

Je vous souhaite une bonne et heureuse année 2005.

Je souhaite également réaliser un bouton dont le nom par défault serai non avec pour action de mettre 0 dans la cellule a1; lorsqu'on click sur le bouton le nom devient oui et copie la cellule b1 dans la cellule a1.

J'espere avoir été clair. et merci de votre aide.lol.

Cordialement
Pat

 

[G'Claire]

Pat, le forum

Si, j'ai bien compris, (Des restes du Nouvel peu être, hic et mal de but, lol)

Private Sub CommandButton1_Click()
CommandButton1.Caption = "Oui"
Range("A1").Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Private Sub Worksheet_Activate()
CommandButton1.Caption = "Non"
Range("A1") = "0"
End Sub

Salut, G'Claire

 

[tatiak]

Bonsoir,
Comme ceci?

 

[pat101]

Merci à toi G'claire pour le code et à tatiak pour le fichier joint.

C'est exactement ça.

Je vois que les réponses sont tjs aussi rapides malgré les festivités de hier soir.

Encore merci à vous.
Pat.