Microsoft 365 area

[Usine à gaz]

Bonsoir à toutes et à tous

Je bute sur un code que je n'arrive pas à adapter' à mon besoin :

With ActiveSheet
    .ScrollArea = .Range("A1:M145").Address
    End With

Ce code fonctionne sans problème mais je voudrais qu'il agisse de la colonne A à M mais de la ligne 1 à la dernière cellule NON vide de la colonne A.
Ce qui me permettrait de ne pas avoir à modifier à chaque instant en fonction des lignes ajoutées.

Pourriez-vous m'aider ?
Je continue mes tests et recherches en attendant un retour.
Je vous remercie et vous souhaite une bonne fin de journée
lionel,

 

[Phil69970]

Bonjour Lionel

Je te propose

Dim DerLig&
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

With ActiveSheet
    .ScrollArea = .Range("A1:M" & DerLig).Address
End With

@Phil69970

 

[Usine à gaz]

Bonsoir Phil,
Merci d'être encore là pour moi
Je ne l'aurai pas trouvé celui-là Grrrr !
Super !
lionel,

 

[Phil69970]

Re

Et pour être logique et raccord il faudrait plutôt écrire et être sur de faire référence à la même feuille :

Dim DerLig&
With ActiveSheet
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    .ScrollArea = .Range("A1:M" & DerLig).Address
End With

@Phil69970

 

[job75]

Bonsoir Lionel, Phil69970,

End(xlUp) pose problème si la feuille est filtrée.

Dans un tableau normal il n'y a pas de ligne entièrement vide donc on peut utiliser :

ActiveSheet.ScrollArea = [A1].CurrentRegion.Resize(, 13).Address

A+

 

[Phil69970]

Bonsoir @job75

On peut faire un test

On Error Resume Next
ActiveSheet.ShowAllData
Dim DerLig&
With ActiveSheet
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    .ScrollArea = .Range("A1:M" & DerLig).Address
End With

*Dans l'énoncé je n'ai pas vu que Lionel avait un filtre

@Phil69970

 

[job75]

Perso j'utilise toujours CurrentRegion quand c'est possible.

 

[Usine à gaz]

Bonsoir Lionel, Phil69970,

End(xlUp) pose problème si la feuille est filtrée.

Dans un tableau normal il n'y a pas de ligne entièrement vide donc on peut utiliser :

ActiveSheet.ScrollArea = [A1].CurrentRegion.Resize(, 13).Address

A+

Bonsoir Gérard,
Merci pour ton code,
lionel

 

[Usine à gaz]

lol Grrrr !!!
Avec le code area, j'ai ce code qui ne fonctionne plus ...

Sub atteindre_dEtblts()
    ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Select
    ActiveWindow.ScrollRow = Selection.Row
End Sub

 

[job75]

Inutile d'inventer, utilise ce qu'on te propose.