Arriver à la dernière cellule de données avec CTRL+END
3 réponses
Jacoléo
Comment arriver à la dernière cellule d'une plage de données avec CTRL+END.
Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée de
la vrai dernière cellule.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
T'avais juste à ne pas cliquer n'importe où.
Supprimer assez de colonnes à droite Supprimer assez de lignes en bas Enregistrer le classeur Fermer le classeur ouvrir le classeur.
"Jacoléo" a écrit dans le message de news:
Comment arriver à la dernière cellule d'une plage de données avec CTRL+END. Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée de la vrai dernière cellule.
T'avais juste à ne pas cliquer n'importe où.
Supprimer assez de colonnes à droite
Supprimer assez de lignes en bas
Enregistrer le classeur
Fermer le classeur
ouvrir le classeur.
"Jacoléo" <Jacolo@discussions.microsoft.com> a écrit dans le message de
news: 22102539-E583-4920-A833-B66B29177A6A@microsoft.com...
Comment arriver à la dernière cellule d'une plage de données avec
CTRL+END.
Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée
de
la vrai dernière cellule.
Supprimer assez de colonnes à droite Supprimer assez de lignes en bas Enregistrer le classeur Fermer le classeur ouvrir le classeur.
"Jacoléo" a écrit dans le message de news:
Comment arriver à la dernière cellule d'une plage de données avec CTRL+END. Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée de la vrai dernière cellule.
...Patrick
ou lancer cette macro du Maitre Laurent:
Sub NettoieEtDerniereCellule() ' Laurent Longre Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub
"Clément Marcotte" a écrit dans le message de news:
T'avais juste à ne pas cliquer n'importe où.
Supprimer assez de colonnes à droite Supprimer assez de lignes en bas Enregistrer le classeur Fermer le classeur ouvrir le classeur.
"Jacoléo" a écrit dans le message de news:
Comment arriver à la dernière cellule d'une plage de données avec CTRL+END. Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée de la vrai dernière cellule.
ou lancer cette macro du Maitre Laurent:
Sub NettoieEtDerniereCellule() ' Laurent Longre
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With
For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
If Not DCell Is Nothing Then _
Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uhXrepsVGHA.2444@TK2MSFTNGP14.phx.gbl...
T'avais juste à ne pas cliquer n'importe où.
Supprimer assez de colonnes à droite
Supprimer assez de lignes en bas
Enregistrer le classeur
Fermer le classeur
ouvrir le classeur.
"Jacoléo" <Jacolo@discussions.microsoft.com> a écrit dans le message de
news: 22102539-E583-4920-A833-B66B29177A6A@microsoft.com...
Comment arriver à la dernière cellule d'une plage de données avec
CTRL+END.
Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée
de
la vrai dernière cellule.
Sub NettoieEtDerniereCellule() ' Laurent Longre Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub
"Clément Marcotte" a écrit dans le message de news:
T'avais juste à ne pas cliquer n'importe où.
Supprimer assez de colonnes à droite Supprimer assez de lignes en bas Enregistrer le classeur Fermer le classeur ouvrir le classeur.
"Jacoléo" a écrit dans le message de news:
Comment arriver à la dernière cellule d'une plage de données avec CTRL+END. Parfois, lorsque je fais CTRL+END, je tombe sur une cellule très éloignée de la vrai dernière cellule.
AV
Pour avoir l'adresse de la dernière cellule renseignée Dit autrement : l'adresse de l'intersection de la dernière ligne renseignée et de la dernière colonne renseignée :
L'adresse de la "véritable UsedRange :" Sub Adresse_UsedRange_Court() L1 = Cells.Find("*", [IV65536], 1, , 2).Row C1 = Cells.Find("*", [IV65536], 1, , 1).Column Lx = Cells.Find("*", [A1], 1, , 1, 2).Row Cx = Cells.Find("*", [A1], 1, , 2, 2).Column MsgBox Range(Cells(L1, C1), Cells(Lx, Cx)).Address End Sub
AV
Pour avoir l'adresse de la dernière cellule renseignée
Dit autrement : l'adresse de l'intersection de la dernière ligne
renseignée et de la dernière colonne renseignée :
Pour avoir l'adresse de la dernière cellule renseignée Dit autrement : l'adresse de l'intersection de la dernière ligne renseignée et de la dernière colonne renseignée :
