boutons

[olitri]

re-bonjour

qui peut me dire si il possible de faire en sorte que quand j'entre un nom dans une cellule , il se place egalement comme nom sur un bouton .

Olitri

 

[omicron]

Bonsoir olitri,

Pour répondre au problème posé, il suffit de programmer de la façon suivante l'évènement "Change" de la feuille "Worksheet" contenant le bouton :

=====================================================Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then CommandButton1.Caption = Target
End Sub
=====================================================

En remplaçant
$A$1 : par l'adresse (absolue) de la cellule contenant l'intitulé du bouton
CommandButton1 : par le nom du bouton

Cordialement.

Omicron.

 

[olitri]

un grand merci omicron pour ta solution

car j'ai quand meme 32 boutons à renomer .

 

[olitri]

je vient d'essayer le code , et il ne fonctionne pas .

il me dit erreur du nom du bouton .

voir piece jointe

encorre merci olitri