Erreur d'éxecution 13 Incompatibilité du type

Bonjour,

je n'arrive pas à résoudre un problème au niveau d'un code VBA sous excel pour la création d'un formulaire.

Afin de créer une liste avec une ComboBox1, j'utilise le code suivant:

With Me.ComboBox1

For i = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row

If Ws.Range("A" & i) <> " " Then Me.ComboBox1.AddItem Ws.Range("A" & i)

Next i

End With

En essayant d'éxecuter la commande j'ai une erreur d'exéctuion 13 Incompatibilité du type, sauf que la même commande fonctionne si j'utilise la boucle for de i = 3 à i = 450.

bonjour,

sur quelle ligne reçois-tu le message d'erreur ?

peux-tu nous mettre ton fichier ?

Bjr,

où est défini ws ?