selection d'une plage jusqu'a la derniére cellule renseignée

[goto]

Bonjour a toute et a toute

un grand bravo a toutes et ceux qui oeuvrent sur ce forum

ayant découvert ce site il y apeu je recherche la syntaxe qui me permetrait de sélelectionner (pour trier ) une plage de cellules jusqu'a la derniére ligne renseignée

merci pour la réponse et a charge de retour

 

[Lord Nelson]

Salut Goto,

Si tu connais le point de départ :
Range("A5").CurrentRegion.Select
Sinon :
ActiveCell.CurrentRegion.Select

A+
LN

 

[Ronan]

Bonsoir,

La fonction CurrentRegion est bien mais, si par malheur, le tableau contient une cellule vide, plantage !!!

Pour ma part, je préfère ceci :

Si ton tableau se trouve, par exemple, dans la plage A1:C10, il faut trouver la dernière cellule d'une des colonnes n'ayant aucune cellule vide (CAD, dans l'exemple, dans la colonne A, la ligne 10) :

Dim DerLigne as Long

DerLigne=Sheets("feuil1").Cells(65536,1).End(xlup).Row

'Nota : la fonction Cells(NumLigne,NumColonne)
'Le NumColonne étant a modifié en fonction de son tableau

Puis, pour sélectionner la plage entière :

Sheets("feuil1").Range("A1:C" & DerLigne).Select

@+

Ronan