Combobox affiche un label

Bonjour,

Je viens encore vers vous, car je sais qu'il y a des génies ici de VBA.

Mon souci cette fois, je voudrais selon le choix d'une comboBox ( mots sélectionnés : soit Jour / am / nuit / matin) on affiche un label.

Merci à vous

Cordialement et Zen .

Bonjour

Sans fichier

Teste

Private Sub ComboBox1_Change()
  Me.Label1.Caption = ""
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Me.Label1.Caption = Me.ComboBox1
End Sub

je viens d'essayer ton code mais en fait je me suis mal exprimé le label à déjà une phrase défini par rapport au choix de la comboBox.

Alors comment l'afficher?

cordialement et reZen

Bonjour

Tu y indiques ce que tu as et ce que tu veux (fais des exemples)

re, voici un exemple

Bonjour

Comme tu n'as pas fournis d'exemples, j'ai fait comme je le pensais

A vérifier

Merci à toi, vraiment sympa.

Bouddha62

Re, en fait cela fonctionne pas pour moi .

Car j'ai un userform déjà rempli avec des textbox, combobox, checkbox label etc....

Donc je n'arrive pas à placer ton code.

Me.Controls("[Label" & Me.ComboBox1.ListIndex + 1).Visible = True

Et dans private sub userform_Initialize cela ne fonctionne pas non plus

bouddha62

Bonjour

Comme d'ici je ne vois pas l'erreur

On va tester si c'est la numérotation des Labels

Tu renumérotes tes 3 Label du plus haut vers le plus bas : Label1001, Label1002, Label1003

Dans le code tu remplaces Label1 par Label1001, Label2 par Label1002, Label3 par Label1003 (en tout 6 modifications)

Dans la macro Private Sub ComboBox1_Change() tu modifies la ligne correspondante

Me.Controls("Label" & Me.ComboBox1.ListIndex + 1001).Visible = True

Pour mieux comprendre voici ci-joint mon dossier en pj.

Et le problème se trouve sur l'userform page Horaires

re, en pj

Bonjour à toi aussi

A tester

Génial cela fonctionne correctement.

Merci à toi

Bouddha62