Combobox.additem qui ne fonctionne pas

**bavmorda1** · 04/03/2013, 16h24

Bonjour,
encore moi, décidément c'est pas ma journée pour coder.
Bon le principe, j'ai une valeur dans une combobox, je la récupère et à chaque fois que je l a trouve dans la colonne "A" je veux mettre la valeur qui se trouve dans la colonne "B" dans une autre combobox et donc alimenter la combobox avec les valeurs que je vais trouver.
j'ai fait ça
mais la combobox n'est pas alimentée par add... je comprends pô pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cherche()
For Each c In Range("A1:" & [A65536].End(xlUp).Address)
test1 = c.Address
test2 = c
test3 = c.Row
    If c = chercheval Then
    i = "B" & c.Row
    test4 = Range(i).Value
    If Range(i).Value <> "" Then
    A2CB1.AddItem Range(i).Value
    End If
    End If
    Next
 
End Sub

**jfontaine** · 04/03/2013, 16h48

Bonjour,

ci dessous une méthode qui me semble moins alambiquée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cherche()
Dim i As Long
Dim c As Range
i = 1
 
ComboBox1.Clear
 
For Each c In Range("A1:" & [A65536].End(xlUp).Address)
    If c.Value = chercheval Then
        ComboBox1.AddItem c.Offset(0, 1).Value
    End If
Next
 
End Sub

**gFZT82** · 04/03/2013, 16h56

Bonjour,

Il se peut aussi qu'il n'y ait aucune valeur affectée à Chercheval (ou chère jument

)

Cordialement.

**bavmorda1** · 04/03/2013, 17h39

@gFZT82: je me suis moi meme demandé à un moment ce que venais faire un cheval dans mon code... (manque de café surement)

@jfontaine: Effectivement plus simple mais tout aussi inefficace

je comprends pas pourquoi mais le code se déroule sans probleme mais on dirait que le add ne fonctionne pas.
Bon je joins mon fichier... désolé mais j'ai pas eu le temps de ranger, je savais que des gens viendraient

Oh et j'apprends tous seul donc ne hurler pas en ouvrant le code