Microsoft 365 area

Usine à gaz · 3 Novembre 2021

Bonsoir à toutes et à tous

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

VB:

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 · 3 Novembre 2021

Bonjour Lionel

Je te propose

VB:

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

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

@Phil69970

Phil69970 · 3 Novembre 2021

Bonjour Lionel

Je te propose

VB:

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 · 3 Novembre 2021

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

Phil69970 · 3 Novembre 2021

Re

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

VB:

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

@Phil69970

job75 · 3 Novembre 2021

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 :

VB:

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

A+

Phil69970 · 3 Novembre 2021

Bonsoir @job75

On peut faire un test

Code:

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 · 3 Novembre 2021

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

Usine à gaz · 3 Novembre 2021

job75 à dit:
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 :

VB:

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

A+

Bonsoir Gérard,
Merci pour ton code,
lionel

Usine à gaz · 3 Novembre 2021

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

VB:

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

job75 · 3 Novembre 2021

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

Microsoft 365 area

Usine à gaz

XLDnaute Barbatruc

Phil69970

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires