Renommer un bouton

bon jour

j'arrive pas a renommer un bouton avec un macro

Sub NomBouton()

Dim Titre

If Range("a1") = 1 Or Range("a1") = 2 Or Range("a1") = 3 Then

Titre = "xyz"

Else

Titre = "uuu"

End If

With ActiveSheet.Shapes("Bouton 1").Select

With Selection

.Characters.Text = Titre

End With

End With

Range("a1").Activate

End Sub

Bonjour

Avec un seul With, cela marche correctement

Sub NomBouton()
Dim Titre
If Range("a1") = 1 Or Range("a1") = 2 Or Range("a1") = 3 Then
Titre = "xyz"
Else
Titre = "uuu"
End If
ActiveSheet.Shapes("Bouton 1").Select
With Selection
.Characters.Text = Titre
End With
Range("a1").Select
End Sub

Cordialement

Merci Amadéus

même avec ce code ne marche pas.

cordialement

Bonjour

Chez moi, ça marche, même sur ton fichier...

Si quelqu'un d'autre veut bien essayer?

Cordialement

es ce qu'il y'a un autre code?????

Bonjour

Un code de Feuille

Cordialement

Merci