Microsoft 365 area

Phil69970

XLDnaute Barbatruc

• 3 Novembre 2021

• #2

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

 

Vote positif 1 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Novembre 2021

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 3 Novembre 2021

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2021

• #5

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+

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 3 Novembre 2021

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2021

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Novembre 2021

• #8

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+

Cliquez pour agrandir...

Bonsoir Gérard,
Merci pour ton code,
lionel 🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Novembre 2021

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2021

• #10

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

 

Vote positif 0 Vote négatif