Nommer un bouton selon option

Re-bonjour!

Je cherche à savoir s'il est possible de donner un nom à un bouton selon le résultat fourni par une zone de groupes. Ici je souhaite que le bouton soit nommé "Print" si l'option activée par la zone de groupes est English et "Imprimer" si le résultat est Français.

Je joints un tableau qui sera peut être plus explicite.

https://www.excel-pratique.com/~files/doc2/Nommer_un_bouton.xls

Merci.

Bonjour, je t'ai fais un fichier qui devrait résoudre ton problème, mais j'utilise une macro. Donc si c'est ça que tu voulais il te suffit pour comprendre de regarder le code associé à la feuille 1 , sinon désolé

https://www.excel-pratique.com/~files/doc2/Classeur11.xlsm

Bonjour à tous,

Même résultat avec les boutons d'origine

Sub NomBouton()
Dim Titre
        If Range("b2") = 1 Then
            Titre = "Imprimer"
        Else
            Titre = "Print"
        End If
    With ActiveSheet.Shapes("Bouton 4").Select
        With Selection
            .Characters.Text = Titre
            '.AutoSize = True
        End With
    End With
    Range("b2").Activate
End Sub

Ton fichier:

https://www.excel-pratique.com/~files/doc2/NommerBouton.xls

Amicalement

Claude.

Bonjour à vous.

E-Zekiel, peux-tu replacer un lien ac un fichier enregistré sous l'ancienne version? J'ai la 2007 mais ça ne fonctionne pas à l'ouverture...

Sinon Claude, est-il possible de changer les valeurs "Print" et "Imprimer" dans ton code pour les cellules contenant le texte désiré? Par exemple C2=Impimer et C3=Print donc dans ton code on aurait :

Sub NomBouton() 
Dim Titre 
        If Range("b2") = 1 Then 
           [b] Titre = C2[/b]    
    Else 
          [b]  Titre = C3[/b]      
  End If 
    With ActiveSheet.Shapes("Bouton 4").Select 
        With Selection 
            .Characters.Text = Titre 
            '.AutoSize = True 
        End With 
    End With 
    Range("b2").Activate 
End Sub

Merci

re,

tu devrais pouvoir lire des .xls !

https://www.excel-pratique.com/~files/doc2/NommerBouton.xlsm

Oui il n'y a pas de problème avec ton fichier Claude...c'est pour le fichier de E-Zekiel qui est en .xlsm que j'ai un problème. Quand je clique sur le lien j'ai un fichier archivé et qd j'ouvre l'archive le fichier est découpé en plusieurs fichiers.....c'est bizzard.

En tout cas en xls je n'ai aucun problème donc si tu peux le remettre sous l'ancienne version E-Zekiel ça m'intéresse toujours.

Merci à vous deux.

Bonjour dubois,

Voila voila :

https://www.excel-pratique.com/~files/doc2/Copie_de_Classeur11.xls

Mais la réponse de dubois est bien plus complète, j'ai fais qqch de tout simple moi. Enfin en espérant que ça t'aidera peut être à comprendre.

re,

tu cherche quoi au juste ?

Sub NomBouton()
Dim Titre
        If Range("b2") = 1 Then
            Titre = Range("c2")
        Else
            Titre = Range("c3")
        End If
    With ActiveSheet.Shapes("Bouton 4").Select
        With Selection
            .Characters.Text = Titre
            '.AutoSize = True
        End With
    End With
    Range("b2").Activate
End Sub

la 1ère était mieux !

C'est très bien, merci pour ton code, c'est toujours utile de voir différentes façons de procéder.

re,

n'oublie pas de solder le fil

en bas à gauche

à+...Claude.

Bonjour,

Je n'avais pas vu ton dernier post Claude, il est arrivé en même temps que le mien.

Merci pour la modif, je voulais seulement deux façons de procéder.

Merci encore.