Impossible de modifier le contenu d'un label

[Magic_Doctor]

Bonjour,

Je me heurte à un label. Je voudrais changer par macro son contenu (ce qui y est écrit) en fonction des événements.

Le label s'appelle : "EtiquetteIdioma"

Sub zaza()

Dim idioma As String

Select Case [NumChxLangue].Value
Case 1: idioma = "Langue"
Case 2: idioma = "Language"
Case 3: idioma = "Idioma"
End Select

ActiveSheet.Shapes("EtiquetteIdioma").Select
Selection.Caption = idioma

End Sub

Apparaît à chaque fois un message d'erreur.

Un grand merci pour m'expliquer où je me suis planté.

 

[mécano41]

Re : Impossible de modifier le contenu d'un label

Bonjour,

Si l'étiquette se nomme : EtiquetteIdioma, il me semble que ceci devrait convenir :

Sub zaza()
Select Case [NumChxLangue].Value
Case 1: EtiquetteIdioma.Caption = "Langue"
Case 2: EtiquetteIdioma.Caption = "Language"
Case 3: EtiquetteIdioma.Caption = "Idioma"
End Select
End Sub

Cordialement

 

[Magic_Doctor]

Re : Impossible de modifier le contenu d'un label

Bonjour Mécano41,

Merci infiniment, ça marche dorénavant très bien.

Bonne journée.