eastpeople
Messages postés105Date d'inscriptiondimanche 16 décembre 2007StatutMembreDernière intervention11 novembre 2008
-
2 juin 2008 à 15:17
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
2 juin 2008 à 17:12
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.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 2 juin 2008 à 15:22
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)