VBA - Modif boucle via nb cellules non vide

Bonjour,

J'ai réussi à afficher le contenu d'une colonne de ma feuille "Ajout Fournisseur" dans une combobox de mon userform.

Private Sub UserForm_Initialize()

Sheets("Ajout Fournisseur").Select

    For i = 1 To 320
        ComboBox1.AddItem Cells(i + 11, 2)
    Next

End Sub

Je souhaiterai pouvoir tester la colonne B pour connaitre le nombre de cellules non vide et me servir du résultat pour cette partie du code :

For i = 1 To Résultat-1

Je vous remercie par avance.

Cordialement.

Bonjour,

Je t'invite à consulter ce lien.

En ce qui me concerne, j'ai une préférence pour :

Resultat = Range("B" & Rows.Count).End(xlUp).Row

Ce qui donnerai :

Private Sub UserForm_Initialize()

Dim Lig As Long, Resultat As Long 'Déclaration du type de variable

With Sheets("Ajout Fournisseur")
    Resultat = .Range("B" & .Rows.Count).End(xlUp).Row 
    For Lig = 12 To Resultat 'Boucle de la ligne 12 jusqu'à la dernière
        If Not IsEmpty(.Range("B" & Lig)) Then ComboBox1.AddItem .Range("B" & Lig) 'Ajout à la liste si cellule non vide
    Next
End With 

End Sub

Bonjour

A voir aussi

With Sheets("Ajout Fournisseur")
      ComboBox1.List = .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
End With

A+

Maurice

Top, tout fonctionne et cela me donne des pistes de perfectionnement.

Merci à vous et bonne continuation.