Appeler une valeur précise dans ComboBox

Résolu
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

  1. Bonjour,

    Pourriez-vous reformuler la question????

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

    A+
    1. 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 ?!!
      1. 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
        1. 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
          1. j'ai réglé le problème merci :)
            1. Contributeur
              N'oublie pas le "Résolu"!