Combox avec un message

Bonjour,

je rencontre un pb avec une combox qui quand je lui mets une valeur depuis le menu déroulant je n'arrive pas a mettre un message dans un label

en revanche le même code sur une textbox fonctionne

Merci

Bonjour

dans un userform, metre un combobox, un textbox et un label.

inserrer le code ci-dessous dans la partie code

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.Value
Label1.Caption = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A10").Value2
End Sub

en principe c'est le resultat que vous cherchez

a vous relire

Merci ILIYES mais j'ai du mal m'expliquer

si combox = "xxxxxx" alors label = "du texte blabla bla"

J'ai bien mis cette formule dans Private Sub cboRisque_Change()

Private Sub cboRisque_Change()
If cboRisque = "R1" Then
lblMessage = "test jpc"
End If
End Sub

Ca ne fonctionne pas mais la meme formule depuis une txtbox marche

Merci

Bonjour,

Private Sub cboRisque_Change()
If cboRisque.value = "R1" Then
lblMessage.value = "test jpc"
End If
End Sub

Bonjour,

Non j'ai déjà essayé cette action mais erreur de compilation fichier introuvable !!!

Je ne comprends pas pourquoi

Ma cboRisque vient d'un tableau du même classeur

On peut avoir un fichier exemple pour voir comment est alimentée la combobox ?

Oui mais mon fichier comporte des noms mais la cbo et bien en format texte

re- bonjour

et maintenant

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.Value
If ComboBox1.Value = 5 Then
Label1.Caption = ComboBox1.Value
Else
Label1.Caption = " Rien à signaler"
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A10").Value2
End Sub

a vous relire