adresse de la dernière ligne visible à l'écran

Pierrot93

XLDnaute Barbatruc

• 23 Avril 2010

• #2

Re : adresse de la dernière ligne visible à l'écran

Bonsoir Coco

regarde le code ci-dessous :

Code:

MsgBox Split(ActiveWindow.VisibleRange.Address, "$")(4)

bonne ssoirée
@+

 

Vote positif 0 Vote négatif

C

Coco-31

XLDnaute Junior

• 23 Avril 2010

• #3

Re : adresse de la dernière ligne visible à l'écran

Salut Pierrot,

Merci, génial
Aurais tu une astuce soit pour afficher également le numéro de la première cellule visible lorsque on navigue sur l'écran exemple si je me trouve sur la ligne 520, la dernière visible est la ligne 533 par exemple et la première 500, comment afficher 500
en modifiant ton code qui me donne la dernière cellule visible pour essayer d'avoir la première ligne, ça me le donne bien mais au format heure 500:

MsgBox Split(ActiveWindow.VisibleRange.Address, "$")(2)

ou alors peut on avoir le nombre de ligne affiché quel que soit le zoom exemple entre 500 et 533 résultat 33
avec un zoom à 150%
533 et 512 résultat 21

 

Dernière édition: 23 Avril 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Avril 2010

• #4

Re : adresse de la dernière ligne visible à l'écran

Bonsoir,
Sans tableau

Code:

L1 = ActiveWindow.VisibleRange(1).Row
L2 = ActiveWindow.VisibleRange.Rows.Count
L3 = L2 + L1 - 1
MsgBox "1ere ligne: " & L1 & vbCrLf & _
            "derniere ligne: " & L3 & vbCrLf & "soit " & L2 & " lignes"

A+
kjin

 

Dernière édition: 23 Avril 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Avril 2010

• #5

Re : adresse de la dernière ligne visible à l'écran

Re coco, kjin

pour la 1ère ligne, toujours avec le tableau...

Code:

Dim x As String
x = Split(ActiveWindow.VisibleRange.Address, "$")(2)
MsgBox Mid(x, 1, Len(x) - 1)

bonnne soirée
@+

 

Vote positif 0 Vote négatif

C

Coco-31

XLDnaute Junior

• 23 Avril 2010

• #6

Re : adresse de la dernière ligne visible à l'écran

Bonsoir,

Merci infiniment, vous êtes tous simplement géniaux

Merci à vous
A+
Coco-31

 

Vote positif 0 Vote négatif

L

laurentdu24

XLDnaute Nouveau

• 10 Janvier 2020

• #7

Pierrot93 à dit:

Re : adresse de la dernière ligne visible à l'écran

Re coco, kjin

pour la 1ère ligne, toujours avec le tableau...

Code:

Dim x As String
x = Split(ActiveWindow.VisibleRange.Address, "$")(2)
MsgBox Mid(x, 1, Len(x) - 1)

bonnne soirée
@+

Cliquez pour agrandir...

Bonsoir Pierrot,
Et si je scrolle mon écran, quelle serait la technique pour revenir via un bouton à cette ligne enregistrée ?
Merci de votre retour, et de vos nombreuses contributions !
Bonne soirée.
Laurent

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Janvier 2020

• #8

bonsoir
celle ci te donne la dernière cellule visible quelque soit le contexte même en cas de fractionnement freezepane etc...

testé sur 2007

VB:

Sub test()
    With ActiveWindow
        With .Panes(.Panes.Count).VisibleRange: MsgBox .Cells(.Cells.Count).Address: End With
    End With
End Sub

 

Vote positif 0 Vote négatif