Microsoft 365 Positionner sur Ligne précise

vgendron

XLDnaute Barbatruc

• 17 Avril 2023

• #2

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

 

Vote positif 0 Vote négatif

Solution

vgendron

XLDnaute Barbatruc

• 17 Avril 2023

• #3

avec ton fichier en retour pour la partie "Fractionnement" /figer ligne pour garder la liste de validation toujours accessible

 

Pièces jointes

• Ligne.xlsm

  22.9 KB · Affichages: 7

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 17 Avril 2023

• #4

Bonjour vgendron

C'est super exactement ce que je recherché.
J'ai passé une grande partie de mon dimanche après-midi à essayer de solutionner et à peine moins de 30 mn tu as donné la solution.
Mille merci et bonne journée.

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 17 Avril 2023

• #5

Encore mieux merci

 

Vote positif 0 Vote négatif