CommandButton.Caption

bonjour Ya_v_ka

peux tu placer un exemple zippé sur le forum , car je ne retrouve pas l'exemple de Thierry dont tu parles et ce n'est pas evident de visualiser ton probleme

en attendant :
si tu souhaites que la modification soit automatique dès que tu changes la donnée de la Cellule A2 , il faut utiliser la procedure evenementielle WorkSheet_Change au niveau de la Feuil "Trad":

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then CommandButton1.Caption = Worksheets("Trad").Range("A2")
End Sub

si ton CommandButton est dans USF , il faut préciser le nom de la boite de dialogue :
UserForm1.CommandButton1.Caption = Worksheets("Trad").Range("A2")


bon apres midi
MichelXld

Salut MichelXld

Un super-hyper-grand merci pour ton aide
j'ai du tatonner un peu, mais j'y suis arrivé avec:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then Worksheets("BD").ValidButton1.Caption = Worksheets("Trad").Range("A2")
End Sub


ca marche à merveille

MERCI encore

ya'v