Appeler une valeur précise dans ComboBox

Résolu
sarache Messages postés 32 Statut Membre -  
sarache Messages postés 32 Statut Membre -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Pourriez-vous reformuler la question????

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

    A+
    0
  2. sarache Messages postés 32 Statut Membre
     
    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
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  4. sarache Messages postés 32 Statut Membre
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. sarache Messages postés 32 Statut Membre
     
    j'ai réglé le problème merci :)
    0
    1. ElementW Messages postés 5690 Statut Contributeur 1 293
       
      N'oublie pas le "Résolu"!
      0
  7. sarache Messages postés 32 Statut Membre
     
    d'accords mercii :)
    0