INFINITY100
XLDnaute Occasionnel
Bonsoir,
Je voudrai ajouter ces trois conditions citées ci-dessous à la ligne résultant du calcul suivant
Si = 11 : la liste est vide ==> ne rien faire
Si = 12 : il n'y a qu'un élément ==> le mettre dans choix 1
Si > 12 : on crée la liste avec un transpose qui met la plage dans choix1
Voici mon code dans ça totalité
Merci à vous tous
Cordialement
Je voudrai ajouter ces trois conditions citées ci-dessous à la ligne résultant du calcul suivant
Code:
f.[D65000].End(xlUp).Row
Si = 11 : la liste est vide ==> ne rien faire
Si = 12 : il n'y a qu'un élément ==> le mettre dans choix 1
Si > 12 : on crée la liste avec un transpose qui met la plage dans choix1
Voici mon code dans ça totalité
Code:
Public Sub UserForm_Initialize()
Set f = Sheets("liste_Fournisseurs")
choix1 = Application.Transpose(f.Range("d12:D" & f.[D65000].End(xlUp).Row))
Me.ComboBox1.List = choix1
End Sub
Merci à vous tous
Cordialement