Question sur liste deroulante VBA excel

Signaler
Messages postés
105
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
11 novembre 2008
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour, je vous explique mon problème, j'ai une liste déroulante qui recupère des données qui sont de la cellule A2 à A16, mais ces valeurs ne sont pas forcément toutes remplies et je voudrais éviter une multitude de lignes blanches dans ma liste, les personnes de ce forum m'ont aidé et m'ont donné ce code:

Private Sub UTIL_Initialize()
    Dim i As Integer, DerniereLigne As Integer
    Dim Ws As Worksheet
    Set Ws = Sheets("Abonnements")
    DerniereLigne = Ws.Range("A65536").End(xlUp).Row + 1
    For i = 2 To DerniereLigne
        If Range("A" & i).Value <> vbNullString Then
           type_dact.AddItem Range("A" & i).Value
        End If
    Next i
End Sub

Mon userform contenant la liste s'appelle UTIL
La liste elle s'appelle type_dact

Le seul problème c'est que cela ne marche pas, la liste est complete mais les lignes blanches sont toujours la.
Quelqu'un m'a conseillé de faire =estvide(la cellule) pour voir si elles étaient vides et il était censé m'apparaitre VRAI si c'était le cas, sauf que moi il m'apparait 0. Et le je suis bloqué.
Si quelqu'un a une idée.
Merci de votre aide.

3 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Re ;)

Arf, toujours pas résolu ?
Ta feuille active est-elle bien celle nommée Abonnements ?

Si ton fichier n'est pas top secrêt, en cas je te file mon mail par MP, envoie moi ton xls et je jette un oeil (ça m'intrigue ton histoire de cellule vierge)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
105
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
11 novembre 2008

Oui ok y a pa de problème je veux bien. Par contre je sais pas comment ça marche les MP
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
MP = Message Privé

http://www.vbfrance.com/messageliste.aspx
Tu y verras mon message et mon adresse mail

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA