Microsoft 365 Positionner sur Ligne précise

Electron24

XLDnaute Occasionnel
Bonjour le Forum,

J'ai trouvé une formule afin de repérer la position d'une ligne selon la valeur saisie dans une liste déroulante.
Le souci est que je n'arrive pas à me positionner sur cette ligne.
vous serait il possible de me venir en aide.
Très cordialement Electron24
PS: Macro dans la feuille 1
Formule dans la cellule E5
 

Pièces jointes

  • Ligne.xlsm
    30.9 KB · Affichages: 3
Solution
Hello

un essai ici
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, Range("D6")) Is Nothing Then Exit Sub
    If Target = "" Then ActiveWindow.ScrollRow = 1: Exit Sub
    
    With ActiveSheet
        Set trouve = .Range("F:F").Find(Target, lookat:=xlWhole)
        If Not trouve Is Nothing Then
            'trouve.Select
            ActiveWindow.ScrollRow = trouve.Row
        End If
    End With
End Sub

vgendron

XLDnaute Barbatruc
Hello

un essai ici
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, Range("D6")) Is Nothing Then Exit Sub
    If Target = "" Then ActiveWindow.ScrollRow = 1: Exit Sub
    
    With ActiveSheet
        Set trouve = .Range("F:F").Find(Target, lookat:=xlWhole)
        If Not trouve Is Nothing Then
            'trouve.Select
            ActiveWindow.ScrollRow = trouve.Row
        End If
    End With
End Sub
 

Statistiques des forums

Discussions
314 628
Messages
2 111 326
Membres
111 102
dernier inscrit
driss touzi