Creation formulaire

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

Bonjour

Ajoute .VALUE derrière les instructions

Donc --> ComboBox1.AddItem Cells(i, 5).value

Si souci mets ton fichier en ligne

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de ta réponse

Crdlt

Dan a écrit :

Bonjour

Ajoute .VALUE derrière les instructions

Donc --> ComboBox1.AddItem Cells(i, 5).value

Si souci mets ton fichier en ligne

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de ta réponse

Crdlt

J'ai finalement réussi, il fallait que je convertisse mes nombres en texte via la fonction CStr( ), mais merci quand même