Re : listbox, combobox ?
Bonsoir à tous du forum,
merci Excel_lent pour réponse,
fonctionne très bien avec l'expression
Private Sub ListBox1_Click()
ComboBox1.Clear
If ListBox1 = "Français" Then
For li = 8 To 12
ComboBox1.AddItem Range("B" & li)
Next
ComboBox1.ListIndex = 0
Range("D3").FormulaR1C1 = "=IF(R[-2]C="""","""",VLOOKUP(R[-2]C,données,3))"
Else
For li = 8 To 12
ComboBox1.AddItem Range("C" & li)
Next
ComboBox1.ListIndex = 0
Range("D3").FormulaR1C1 = "=IF(R[-2]C="""","""",VLOOKUP(R[-2]C,données,2))"
End If
End Sub
bonne soirée encore,