Selectionner une range variable

[jerem13]

Bonjour a tous.

J'ai un tableau dans lequel j'ai des données de la cellule I1 à une cellule variable, c'est a dire qu'elle n'est jamais la même (exemple: jusqu'a O21 ou N15 ou R34...).

Je voudrai pouvoir selectionner via vba cette plage de donnée.
J'ai cherché du côté de "xlToleft et xlUp" mais je suis débutant et je n'arrive pas a solutionner mon probleme. Je suppose qu'il va falloir definir une variable mais je ne sais pas comment.

Je vous remercie de votre attention.

 

[Cousinhub]

Re : Selectionner une range variable

Bonjour,

si j'ai bien compris, essaie ce code :

Sub derniere_cellule()
Dim Lig As Range, Col As Range
Set Lig = Cells.Find("*", , , , xlByRows, xlPrevious)
Set Col = Cells.Find("*", , , , xlByColumns, xlPrevious)
MsgBox Cells(Lig.Row, Col.Column).Address
Range(Cells(1, 1), Cells(Lig.Row, Col.Column)).Select
End Sub

 

[jerem13]

Re : Selectionner une range variable

Merci pour ta reponse,

c'est presque ça!

Dans mon projet, j'ai des donnée dans la plage de cellule (A1:O21), donc ton code est nickel puisqu'il il detecte et selectionne la plage.

Mais, serait il possible d'effectuer la même tache pour la plage (I1:021).

En fait dans mon tableau, dont le nombre de cellules renseignées varie constemment, je souhaite selectionner uniquement la plage de donnée à partir de la celulle (I1).

Je te remercie

 

[Cousinhub]

Re : Selectionner une range variable

Re,

en modifiant ainsi :

Sub derniere_cellule()
Dim Lig As Range, Col As Range
Set Lig = Columns("I:IV").Find("*", , , , xlByRows, xlPrevious)
Set Col = Columns("I:IV").Find("*", , , , xlByColumns, xlPrevious)
MsgBox Cells(Lig.Row, Col.Column).Address
Range(Cells(1, 9), Cells(Lig.Row, Col.Column)).Select
End Sub

 

[jerem13]

Re : Selectionner une range variable

Merci beaucoup, jvien juste de trouver la reponse, j'allais modifier mon message precedent mais tu as été plus rapide.

Encore une fois merci et a bientot.