Changer le texte d'un bouton au changement d'une liste déroulante

[apt]

Bonsoir à tous,

J'aimerais changer un bout de texte (le x) d'un bouton au changement d'une liste déroulante.

Exemple en PJ.

 

[klin89]

Re : Changer le texte d'un bouton au changement d'une liste déroulante

Bonsoir apt,

Selon la nature du bouton, choisir une des 2 instructions

Private Sub Worksheet_Change(ByVal Target As Range)
'selon la nature du bouton, choisir une des 2 instructions
If Target.Address = "$B$1" Then CommandButton1.Caption = "Imprimer " & vbCrLf & "le tableau " & Target
If Target.Address = "$B$1" Then ActiveSheet.DrawingObjects("Bouton 2").Characters.Text = "Imprimer " & Chr(10) & "le tableau " & Target
End Sub

Klin89

 

[apt]

Re : Changer le texte d'un bouton au changement d'une liste déroulante

Bonsoir klin89;

Ca marche tres bien. Merci.

Une petite question : lequel des deux boutons est plus pratique à utiliser ?

 

[apt]

Re : Changer le texte d'un bouton au changement d'une liste déroulante

Bonsoir,

Une réponse ?