Appeler une valeur précise dans ComboBox

Résolu/Fermé
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014 - Modifié par sarache le 13/03/2013 à 16:58
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014 - 13 mars 2013 à 18:01
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 :)

6 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 mars 2013 à 17:14
Bonjour,

Pourriez-vous reformuler la question????

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

A+
0
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014
Modifié par sarache le 13/03/2013 à 17:24
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 ?!!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 mars 2013 à 17:35
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
0
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014
13 mars 2013 à 17:40
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014
13 mars 2013 à 17:46
j'ai réglé le problème merci :)
0
ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 1 225
13 mars 2013 à 17:55
N'oublie pas le "Résolu"!
0
sarache Messages postés 31 Date d'inscription mercredi 13 mars 2013 Statut Membre Dernière intervention 28 janvier 2014
13 mars 2013 à 18:01
d'accords mercii :)
0