Sélectionner "tout" (CTRL A) avec macro

[DJ0]

Bonjour,

j'ai réalisé une petite macro tout ce qu'il y a de plus simple afin de "trier" des données...

Tout fonctionne, mais j'aimerai encore "améliorer" cette macro afin de gagner encore quelques secondes.

J'aimerai que les cellules non vide soient sélectionnées et copiées.

Voici le code:

Range("A:A,C:K,M:M").Select
Range("M1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1:C177").Select
Selection.Copy

Le soucis se situe à l'avant dernière ligne... La sélection doit bien partir de A1 et va aller jusque la colonne C mais le nombre de ligne varie à chaque fois! Donc il me faudrait à la place de 177, le numéro de la dernière ligne non vide. Il me faudra donc l'équivalent du CTRL A... De A1 jusque C*****, toutes les cellules seront toujours non vide.


Merci pour votre aide.

 

[Vilain]

Re : Sélectionner "tout" (CTRL A) avec macro

Bonjour et bienvenue,

Essaie :
Range(Selection, Selection.End(xlDown)).Select

Cela convient-il ?

A plus

 

[phlaurent55]

Re : Sélectionner "tout" (CTRL A) avec macro

Bonjour DJO, et bienvenue sur le forum

essaie ceci:

Range("A1").CurrentRegion.Select

à+
Philippe

Edit: Bonjour Gillus

 

[DJ0]

Re : Sélectionner "tout" (CTRL A) avec macro

Merci de ta réponse Gillus69!

Cela commence à prendre forme! Le bon nombre de ligne est sélectionné, mais je n'ai que la colonne A. Il me faudra B et C en plus 🙂.

[EDIT]

phlaurent55 => Merci pour ta réponse, cela fonctionne parfaitement 🙂.

Merci à vous et merci pour votre accueil!