Utilisation combiné end(xlup) et end(xldown)

[JM]

Bonjour à tous,

Je désirerai savoir si l'on peut utiliser de manière combinée End(xlup) et End(xldown) ?

En effet j'ai une colonne dans laquelle des données sont entrées automatiquement et je voudrai récupérer les données dans un combo. Mais l'ordre du tri du tableau s'effectuant sur deux critères et deux colonnes, j'ai donc une colonne avec des lignes vides avant et après les données. Donc je voudrai savoir comment faire pour avoir dans le combo que les données existantes et non les lignes vides. D'où l'idée d'essayer de combiner end(xlup) et end(xldown).
J'ai essayé mais je n'y suis pas parvenu.

Merci par avance.

 

[Robert]

Salut JM, salut le forum,

Regarde cette macro et adapte-la à ton cas.

Sub Macro1()
Dim deb As Long 'déclare la variable deb
Dim fin As Long 'déclare la variable fin
Dim plage As Range 'déclare la variable plage
If Range("A1").Value <> "" Then 'si A1 est non vide
deb = 1 'définit la variable deb
Else 'sinon
deb = Range("A1").End(xlDown).Row 'définit la variable deb
End If
fin = Range("A65536").End(xlUp).Row 'définit la variable fin
Set plage = Range("A" & deb & ":A" & fin) 'définit la variable plage
plage.Select 'sélectionne la plage
End Sub

À plus,

Robert

 

[JM]

Salut Robert, Salut le forum,

Ta solution est superbe Robert, je l'ai adaptée à ce que j'avais commencé à faire et hop ! ça fonctionne. Je te remercie encore car j'avais passé quelques moments à essayer plusieurs approche sans y parvenir.

Gand merci