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
 

Discussions similaires

Réponses
10
Affichages
206

Statistiques des forums

Discussions
312 215
Messages
2 086 328
Membres
103 180
dernier inscrit
Vcr