comment dois-je l'écrire ? Est-ce que c'est bon?
Private Sub ComboBox1_click()
Set d1 = CreateObject("Scripting.Dictionary")
For Each c In f.Range("B2:B" & f.[B65000].End(xlUp).Row)
If c <> "" Then d1(c.Value) = ""
Next c
Me.ComboBox2.List = d1.Keys
Sheets("BD").Range("E1") = ComboBox1.List(ComboBox1.ListIndex)
If Sheets("BD").Range("E1") = "ALGUES" Then Sheets("BD").Range("E1") = "ALG"
If Sheets("BD").Range("E1") = "ALOE VERRA" Then Sheets("BD").Range("E1") = "ALOE"
If Sheets("BD").Range("E1") = "AMANDE AMERE" Then Sheets("BD").Range("E1") = "AMAM"
End SuB
je crois qu'il faut mettre des "and if" ou un truc comme ça non ?
mais je ne sais pas faire
peux tu m'aider ?