Dernière cellule

[Jeff71]

Bonjour à tous, je cherche la macro pour trouver la dernière cellule d'un tableau de manière à sélectionner le tableau en question. Celui-ci à toujours le même nombre de colonnes, c'est le nombre de lignes qui change.
Merci d'avance.

 

[Pascal76]

Salut Jeff

Tu as plusieurs possibilités

MaLigne = Range("A1").End(xlDown).Row

MaLigne = Range("A65536").End(xlUp).Row

Cela te donne la ligne et la colonne de ta dernière cellule :
Malig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Macol = Range("A1").SpecialCells(xlCellTypeLastCell).Column

Bon courage

Pascal

 

[Bernard]

Bonjour Jeff71 et Pascal76, de Bernard 31

J'ai retrouvé cette macro qui sélectionne la zone en cours à condition que la cellule active soit dans la zone des données puis la dernière cellule de la sélection.

Sub Collection()
Selection.CurrentRegion.Select
Dim myRange As Range
Set myRange = Selection
myRange.Cells(myRange.Cells.Count).Select
End Sub

Salut à vous

Bernard

 

[Jeff71]

Merci à vous deux!

 

[Jeff71]

Impeccable, sa fonctionne mais j'ai une autre question:
je formate mon tableau à partir le la cellule T300 jusqu'a la colonne Z, le nombre de lignes est aléatoire.
Je copie une formule en A1, je cherche la dernière cellule de mon tableau dans la colonne Z et je colle la formule. Pas de problème, mais je voudrais incrémenter cett formule depuis la cellule en question jusqu'a la cellule Z301.
Alors la, comment faire?
Je ne sai pas si je suis clair dans ma question.
Merci pour vos réponses.