Limiter la sélection aux cellules non vides

[Jilde]

Bonjour le forum, les gens ;o) !!

Voilà mon problème ...
J'ai une Private Sub :

Private Sub UserForm_activate()
    Dim c As Range, Extensions As Range
    'Autorise la sélection multiple
    Me.Liste_Ext.MultiSelect = fmMultiSelectMulti
    'Remplit la zone de liste avec les extensions de
    'la plage de cellules nommée "Extension"
    With Choix_Ext
        For Each c In Range("Extension")
            .Liste_Ext.AddItem CStr(c)
        Next
    End With
End Sub

Elle vient alimenter une ListBox (Liste_Ext) et ça fonctionne très bien.
Mais ... car il y a un mais ...
Le truc qui me gène, c'est que la plage de cellules nommée "Extension" correspond aux cellules E1 à E100 et que la plupart de ces cellules sont vides.
Je voudrais donc alimenter ma ListBox avec uniquement les cellules non vides de la colonne E (de la cellule E1 à la dernière cellule non vide quoi).
Un truc du genre :

Range("E1", Selection.End(xlDown))

Mais ça, ça marche pô ...

Donc si une bonne âme veut bien me donner la formule magique !

 

[Softmama]

Re : Limiter la sélection aux cellules non vides

Bonjour,

Je sais pas si ça correspond à ce que tu veux, mais essaie de remplacer la ligne:

For Each c In Range("Extension")

par :

For Each c In Range("Extension").specialcells(xlcelltypeconstants, 23)

 

[Jilde]

Re : Limiter la sélection aux cellules non vides

Bonjour Softmama,

Ben si ... Ça corresponds farpaitement bien à ce que je veux !!!

Merci bien !!!

Par contre, j'veux bien que tu m'explique ce c'est que ce "specialcells(xlcelltypeconstants, 23)" ...

Passke bon ... Tant qu'a faire, autant que je comprennes ce que je mets dans mon code !

 

[Softmama]

Re : Limiter la sélection aux cellules non vides

re,

Range.specialcells = sélectionne un certain type de cellule de la plage 'Range'.
avec comme type de cellules possibles, entre autres

xlcelltypeblanks = les cellules vides
xlcelltypeconstants = certains types de données (23 = toutes les non vides)


Tape Specialcells dans un moteur de recherche pour avoir plus de détails sur cette fonction bien utile.

 

[Jilde]

Re : Limiter la sélection aux cellules non vides

OK compris !

Encore merci pour ton aide Softmama !