Appeler une valeur précise dans ComboBox Résolu/Fermé

Question

Salut à tous !! 

S'il vous plait, j'ai une question à propos de VBA, j'ai commencé à développer un Userform, j'ai utilisé ComboBox mais le problème que j'ai rencontré c'est : je veux appeler une valeur précise dans la liste de ComboBox. exemple qui montre ce que je veux: 
if Range("B" & i) = ComboBox_nom then 
"""''' afficher la valeur de ComboBox""""" 
Remarque : j'ai plusieurs ComboBox! 
comment je vais faire?  
Merci d'avance :) 

Configuration: Windows 7 / Chrome 25.0.1364.152

f894009 · Answer

Bonjour,

Pourriez-vous reformuler la question????

if Range("B" & i) = ComboBox_nom then
"""''' afficher la valeur de ComboBox"""""  Ou ca???

A+

sarache · Answer

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 ?!!

f894009 · Answer

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

sarache · Answer

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

sarache · Answer

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

sarache · Answer

d'accords mercii :)

Appeler une valeur précise dans ComboBox

6 réponses

Discussions similaires