La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière cellule de la feuille. Regarde dans l'aide, l'objet "UsedRange". Excel se souvient de l'adresse de la dernière cellule contenant de l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la dernière ligne avec la dernière colonne, je te propose ceci :
Affiche dans un message box : l'adresse de la plage. Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen de procéder sans effectuer de sélection ! '------------------------- Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0) End With
End Sub '-------------------------
Si tu tiens à sélectionner la plage : '------------------------ Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") .Select R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column .Range(.Cells(1, 1), .Cells(R, C)).Select End With
End Sub '------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans l'une de ces nombreuses interventions sur ce forum !
"Hervé 92" a écrit dans le message de news: Bjr à tous
La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière cellule de la feuille. Regarde dans l'aide, l'objet
"UsedRange".
Excel se souvient de l'adresse de la dernière cellule contenant de l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la dernière ligne avec la dernière colonne, je te
propose ceci :
Affiche dans un message box : l'adresse de la plage.
Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen de procéder sans effectuer de sélection !
'-------------------------
Sub DernièreCelluleDeLaFeuille()
Dim R As Integer, C As Long
With Worksheets("Feuil1")
R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row
C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column
MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0)
End With
End Sub
'-------------------------
Si tu tiens à sélectionner la plage :
'------------------------
Sub DernièreCelluleDeLaFeuille()
Dim R As Integer, C As Long
With Worksheets("Feuil1")
.Select
R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row
C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column
.Range(.Cells(1, 1), .Cells(R, C)).Select
End With
End Sub
'------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans l'une de ces nombreuses interventions sur ce forum !
"Hervé 92" <herve.rouvroy@laposte.net> a écrit dans le message de news:uRksz3zPDHA.2244@TK2MSFTNGP11.phx.gbl...
Bjr à tous
La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière cellule de la feuille. Regarde dans l'aide, l'objet "UsedRange". Excel se souvient de l'adresse de la dernière cellule contenant de l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la dernière ligne avec la dernière colonne, je te propose ceci :
Affiche dans un message box : l'adresse de la plage. Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen de procéder sans effectuer de sélection ! '------------------------- Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0) End With
End Sub '-------------------------
Si tu tiens à sélectionner la plage : '------------------------ Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") .Select R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column .Range(.Cells(1, 1), .Cells(R, C)).Select End With
End Sub '------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans l'une de ces nombreuses interventions sur ce forum !
"Hervé 92" a écrit dans le message de news: Bjr à tous
Un grand merci à toi, c'est pile poil ce qu'il me fallait.
Hervé92
"michdenis" a écrit dans le message de news:%
Bonjour Hervé92,
La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière cellule de la feuille. Regarde dans l'aide, l'objet
"UsedRange". Excel se souvient de l'adresse de la dernière cellule contenant de l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la dernière ligne avec la dernière colonne, je te
propose ceci :
Affiche dans un message box : l'adresse de la plage. Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen de procéder sans effectuer de sélection !
'------------------------- Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0) End With
End Sub '-------------------------
Si tu tiens à sélectionner la plage : '------------------------ Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") .Select R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column .Range(.Cells(1, 1), .Cells(R, C)).Select End With
End Sub '------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans l'une de ces nombreuses interventions sur ce forum !
Un grand merci à toi, c'est pile poil ce qu'il me fallait.
Hervé92
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23Jonl80PDHA.2460@TK2MSFTNGP10.phx.gbl...
Bonjour Hervé92,
La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière
cellule de la feuille. Regarde dans l'aide, l'objet
"UsedRange".
Excel se souvient de l'adresse de la dernière cellule contenant de
l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la
dernière ligne avec la dernière colonne, je te
propose ceci :
Affiche dans un message box : l'adresse de la plage.
Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen
de procéder sans effectuer de sélection !
'-------------------------
Sub DernièreCelluleDeLaFeuille()
Dim R As Integer, C As Long
With Worksheets("Feuil1")
R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row
C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column
MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0)
End With
End Sub
'-------------------------
Si tu tiens à sélectionner la plage :
'------------------------
Sub DernièreCelluleDeLaFeuille()
Dim R As Integer, C As Long
With Worksheets("Feuil1")
.Select
R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row
C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column
.Range(.Cells(1, 1), .Cells(R, C)).Select
End With
End Sub
'------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans
l'une de ces nombreuses interventions sur ce forum !
"Hervé 92" <herve.rouvroy@laposte.net> a écrit dans le message de
news:uRksz3zPDHA.2244@TK2MSFTNGP11.phx.gbl...
Un grand merci à toi, c'est pile poil ce qu'il me fallait.
Hervé92
"michdenis" a écrit dans le message de news:%
Bonjour Hervé92,
La cellule indiquée par Ctrl + Fin n'est pas nécessairement la dernière cellule de la feuille. Regarde dans l'aide, l'objet
"UsedRange". Excel se souvient de l'adresse de la dernière cellule contenant de l'information même si cette dernière a été effacée.
Si tu veux la dernière cellule représentant le point de rencontre de la dernière ligne avec la dernière colonne, je te
propose ceci :
Affiche dans un message box : l'adresse de la plage. Je ne sais pas ce que tu veux en faire, mais habituellement il y a moyen de procéder sans effectuer de sélection !
'------------------------- Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column MsgBox .Range(.Cells(1, 1), .Cells(R, C)).Address(0, 0) End With
End Sub '-------------------------
Si tu tiens à sélectionner la plage : '------------------------ Sub DernièreCelluleDeLaFeuille() Dim R As Integer, C As Long
With Worksheets("Feuil1") .Select R = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Row C = .Cells.Find("*", .Cells.Item(1), , , , xlPrevious).Column .Range(.Cells(1, 1), .Cells(R, C)).Select End With
End Sub '------------------------
Salutations!
P.S. Un petit coup de chapeau à AV qui m'a mis la puce à l'oreille dans l'une de ces nombreuses interventions sur ce forum !