Besoin de completer une macro on lui ajoutant trois conditions

[INFINITY100]

Bonsoir,

Je voudrai ajouter ces trois conditions citées ci-dessous à la ligne résultant du calcul suivant

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é

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

 

[INFINITY100]

Re : Besoin de completer une macro on lui ajoutant trois conditions

Bonjour à tous
Toujours pas de solution mes amis ?