Bouton qui change de nom en fonction d'une liste déroulante

[k4RADOC]

Bonjour,

Le sujet à probablement été traité des millions de fois mais j'ai du mal à formuler ma question sur google. En gros je souhaite qu'une liste déroulante (contenu dans feuille 1) change le nom d'un bouton (contenu dans feuille 2). Je sais déjà le faire si la liste et le bouton sont dans la même feuille mais pas si ils sont sur deux feuilles différentes.
Pour ceux qui ne comprendraient pas ma requète veuillez trouver ci joint un exemple.

Si quelqu'un à un code ou un lien google vers un sujet similaire ce serait top.

Merci d'avance

 

[Dull]

Re : Bouton qui change de nom en fonction d'une liste déroulante

Salut k4RADOC le Forum

Pas sur d'avoir compris mais essaye de placer un Feuil2. ou Sheets("Feuil2"). devant le CommandButton1 et ça devrait le Faire

...Case Is = "A"
                Feuil2.CommandButton1.Caption = "Bonjour"
Case Is = "B"
                Feuil2.CommandButton1.Caption = "Coucou"
Case Is = "C"
                Feuil2.CommandButton1.Caption = "Blabla"...

EDITION: Salut Philippe

Bonne Journée

 

[phlaurent55]

Re : Bouton qui change de nom en fonction d'une liste déroulante

Bonjour K4.......

avec ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$A$1" Then
Select Case Target.Text
Case Is = "A"
Sheets("Feuil2").CommandButton1.Caption = "Bonjour"
  Case Is = "B"
Sheets("Feuil2").CommandButton1.Caption = "Coucou"
 Case Is = "C"
Sheets("Feuil2").CommandButton1.Caption = "Blabla"
End Select
        Range("A1").Select
    End If
    Application.ScreenUpdating = True
End Sub

à+
Philippe

Edit: Bonjour Dull

 

[Paritec]

Re : Bouton qui change de nom en fonction d'une liste déroulante

bonjour K4radoc le forum
ton fichier en retour
a+
Papou

EDIT bonjour Philippe Didier

 

[k4RADOC]

Re : Bouton qui change de nom en fonction d'une liste déroulante

Nikel, comme je le pensais la solution n'étais pas bien compliquée, mais bon quand on ne sais pas, on n'invente pas
En tout cas merci beaucoup.