Appeler une valeur précise dans ComboBox

d'accords mercii :)

j'ai réglé le problème merci :)

Non ce n'est pas ce que je veux :s

voilà le code

For i = 4 To Sheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row

If Sheets("sheet1").Range("B" & i) = ComboBox_1 Then
MsgBox "le statut de " & ComboBox_1 & " est " & Sheets("sheet1").Range("H" & i)
ComboBox_1.ListIndex = -1

ElseIf Sheets("sheet1").Range("B" & i) = ComboBox_2 Then
MsgBox "le statut de " & ComboBox_2 & " est " & Sheets("sheet1").Range("H" & i)
ComboBox_2.ListIndex = -1

ElseIf Sheets("sheet1").Range("B" & i) = ComboBox_3 Then
MsgBox "le statut de " & ComboBox_3 & " est " & Sheets("sheet1").Range("H" & i)
ComboBox_3.ListIndex = -1

ElseIf Sheets("sheet1").Range("B" & i) = ComboBox_4 Then
MsgBox "le statut de " & ComboBox_4 & " est " & Sheets("sheet1").Range("H" & i)
ComboBox_4.ListIndex = -1

End If
Next

le problème c'est qu'il affiche juste valeur de combobox qui est la première a trouvé
mercii

Re,

pour chaque combobox
ex:

Private Sub ComboBox1_Change()
    MsgBox ComboBox1 & "-" & Combobox2 & "-" & Combobox3 & "-" & Combobox4
End Sub

Private Sub ComboBox2_Change()
    MsgBox ComboBox1 & "-" & Combobox2 & "-" & Combobox3 & "-" & Combobox4
End Sub 

et ainsi de suite pour les quatre

ok merci :)

j'ai créer un Userform dont j'ai 4 ComBox, je les ai rempli par des données existant dans une feuille, tous est marché, par la suite j'ai voulu afficher dans un MsgBox la valeur sélectionnée dans combobox, puisque j'ai 4 combobox il affiche juste la valeur sélectionner par une ComBox, est ce que c'est clair maintenant ?!!

Bonjour,

Pourriez-vous reformuler la question????

if Range("B" & i) = ComboBox_nom then
"""''' afficher la valeur de ComboBox""""" Ou ca???

A+