Problème d'dentification cellule liste deroulante VBA Excel 2016

Bonjour,

j'ai crée un usf qui fait appel a une combobox dans laquelle j'effectue un tri pour les doublons et les lignes vierges ( code pris sur le forum et fonctionne impec pour les autres combobox)

Private Sub UserForm_Initialize()
Set f = Sheets("BddPot")
Set d = CreateObject("Scripting.Dictionary")
a = f.Range("AL2:d" & f.[AL500].End(xlUp).Row).Value
Me.ComboBox1.List = a
For i = ComboBox1.ListCount - 1 To 0 Step -1
If ComboBox1.List(i) = "" Then ComboBox1.RemoveItem (i)
Next i

End Sub

Le souci que j'ai ici est que lorsque je vais chercher dans ma feuille "BddPot" en cellule AL2 a AL500 ( oui oui AL car j'ai de nombreuses colonnes) la combo se rempli bien mais avec les valeurs de la colonne B de cette même feuille !

La fonction range ne semble pas gérer au dela de Z... ? auriez vous une idée ?

Au plaisir de vous lire.

Gilles

Salut godzillou,

En écrivant ceci, tu prends les valeurs de "D2:AL500" avant tri...

f.Range("AL2:d" & f.[AL500].End(xlUp).Row).Value

a = f.Range("AL2:AL" & f.Range("AL" & Rows.Count).End(xlUp).Row).Value

Ceci, sans doute...

A+

....ça fait 2 jours que je cherche !!!!

Un milliard de merci ça fonctionne parfaitement

Re Bonjour,

Encore une petite question, assez bête

Dans cette meme combobox, j'ai ajouté une deuxieme colonne (Colonne P) comportant des chiffres.

La combobox fonctionne correctement, c'est a dire qu'elle me donne bien les valeurs de la colonne 1 et 2

Set f = Sheets("BddVP")
a = f.Range("O3:P" & f.Range("P" & Rows.Count).End(xlUp).Row).Value

Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "200;50"

For i = ComboBox1.ListCount - 1 To 0 Step -1
If ComboBox1.List(i) = "" Then ComboBox1.RemoveItem (i)
Next i

Je bloque sur un point : comment puis je récupérer la valeur de la deuxieme colonne (P) --> nbr entier et l'affecter a une variable.

Je sais, c'est bête comme question, mais je débute en VBA et je n'ai rien trouvé de clair sur le forum...les bouts de codes que j'ai essayé de rajouter ne m'ont pas permis de trouver la solution.

Dans l'attente de vous relire