Discussion :

[Tonio14910]

Bonjour à tous,

Nouveau sur le forum et sur VBA, je suis bloqué sur un point important de mon code. Dans mon userform je cherche à partir de la réponse en combobox7 à retrouver une ou plusieurs valeurs en combobox8 (des valeurs qui sont dans une colonne excel dans mon cas Range("B2:B" & lastrow)). Merci d'avance pour votre retour, voici le code =

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
16
17
Private Sub ComboBox7_Change()
 
Dim lastrow As Long
Dim C As String
 
ComboBox8.Clear
With Sheets("Feuil1")
 
lastrow = Range("B" & Rows.Count).End(xlUp).Row
 
C = combobox7.Value
 
 ComboBox8.List = Range("B2:B" & lastrow).Find(what:=C, LookIn:=xlValues).Value
 
End With
 
End Sub

[unparia]

Bonjoiur
1) et surtout : la méthode Find est à utiliser pour déterminer une cellule contenant une valeur cherchée, pas une valeur
2) la propriété List d'une combobox doit correspondre à une liste d'articles
cette ligne de code :

Code :

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

ComboBox8.List = Range("B2:B" & lastrow).Find(what:=C, LookIn:=xlValues).Value

est dénuée de sens.
3) tu crées un bloc With, mais ne l'utilises pas

Je devine que tu n'as pas consulté ton aide VBA interne (faite pour cela) : rubriques Range.Find, Méthode, With, instruction et List, propriété
Veux-tu bien le faire, s'il te plait ?
Reviens ensuite.