Bonjour à tous,
J'ai une page de recettes qui reprend leurs ingredients, ce qui fait plusieurs fois des lignes pour la même recette.
J'ai aussi plusieurs recettes qui commencent par les premiéres lettres, comme omelette au lard, champignons...
Pour diriger l'utilisateur sur la 1ere ligne d'une recette, j'ai pris une listbox qui me filtre les recettes sur les 1eres lettres. Cà fonctionne.
Mais pas de sélection, çà l'affiche juste dans la barre de formule, sans y aller.
Auriez-vous une idée ?
Merci
forum.xlsm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
     Dim drl3%, i%, ws1 As Worksheet, cpt%
    Application.ScreenUpdating = False
    Set ws1 = Sheets("Repas")
    drl1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To drl1
        For j = 0 To Me.LisRec.ListCount - 1
             If Me.LisRec.Selected(j) And ws1.Range("A" & i).Value = Me.LisRec.List(j, 0) Then
                Sheets("Repas").Activate
                Range("A" & i).Select
                Exit For
             End If
        Next j
    Next i
    Unload Me
    Application.ScreenUpdating = True