Bonjour,
J'aimerais créer un petit formulaire mais actuellement je suis bloqué....
Mon code fonctionne pour les mots ou les codes lettres+chiffres mais pas pour les nombres, est-ce que quelqu'un pourrait m'aider ??
C'est la fonction If qui ne fonctionne pas
Private Sub UserForm_Initialize()
derniere_ligne = Cells(1, 6).End(xlDown).Row 'ligne, colonne
For i = 2 To derniere_ligne
ComboBox1.AddItem Cells(i, 5)
ComboBox2.AddItem Cells(i, 6)
Next
End Sub
Private Sub ListBox1_Click()
Range("B18") = ListBox1.Value
End Sub
Private Sub ComboBox1_Change()
'Zone de liste vidée (sinon les codes sont ajoutées à la suite)
ListBox1.Clear
For i = 2 To 15
If ComboBox1 = Range("B" & i) Then
ListBox1.AddItem Cells(i, 1).Value
End If
Next
End Sub