Selection.End(xlDown).Select

Question

Bonjour tout le monde,

Dans la ligne 1 de mon classeur Excel se trouve les entités. Durant ma macro je fais un filtre de mes données. Quelque fois quand je filtre ces données il n'y a rien.

Donc j'ai eu l'idée de sélection une cellule (par exemple "A1") et ensuite faire un Selection.End(xlDown).Select et si la cellule ou je me trouve est vide alors je saute l'étape.

J'aurais aimé savoir si vous aviez d'autres idées à me donner car j'ai l'impression que cette méthode me fait ralentir mon application.

Par exemple aller à la cellule juste en dessous. mais attention les numéros de ligne sont aléatoire.

merci d'avance.

ucfoutu · Answer

Bonjour,
Donc j'ai eu l'idée de sélection une cellule (par exemple "A1") et ensuite faire un Selection.End(xlDown).Select et si la cellule ou je me trouve est vide alors je saute l'étape
.....
Par exemple aller à la cellule juste en dessous. mais attention les numéros de ligne sont aléatoire

pas vraiment clair...
Donne un exemple, si tu ne parviens pas à exprimer la chose uniquement avec des mots.

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

ucfoutu · Answer

Si maintenant tu cherches à savoir si un range ne contient rien, c'est le cas si (ici en exemple pour la plage B2:B12) :
WorksheetFunction.CountA(Range("B2:B12")) = 0


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

ucfoutu · Answer

Et c'est aussi le cas si, cherchant si tu as des données au-delà de la ligne la_ligne
Range("B" & Rows.Count).End(xlUp).Row = la_ligne


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

ucfoutu · Answer

Pas =, mais <= (pour le cas où, partant d'une ligne vide, tu aurais des données sur une ligne au-dessus)


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

ucfoutu · Answer

et c'est aussi le cas si, partant de la ligne B1 remplie, par exemple :
Range("B1:B" & Rows.Count).SpecialCells(xlCellTypeBlanks).Row = 2

et on pourrait en inventer autant d'autres que l'on voudrait !
Le tout est de savoir utiliser son aide VBA 

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

Selection.End(xlDown).Select

5 réponses

Votre réponse

Discussions similaires