Atteindre la ligne après recherche par mot clé

[missonbody]

Bonjour

je débute dans le VBA et j'ai trouvé sur le net un code pour faire une recherche par mot clé qui sort toutes les correspondances dans un fichier à partir d'un mot clé. le hic, c'est qu'une fois les correspondances trouvées, il n'y a que l'option : Visualiser la fiche.

Serait-il possible d'inclure une fonction pour qu'en cliquant sur une correspondance, Excel nous ramène directement à la ligne en question? Au lieu se simplement m'informer que la correspondance se trouva à la ligne 54 de l'onglet 1.

J'ai joint une partie de mon fichier de recherche

merci pour votre aide

 

[JCGL]

Re : Atteindre la ligne après recherche par mot clé

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer :

.....
Call MsgBox("Vous avez sélectionnée la feuille : " & nomfeuille _
            & vbCrLf & "" _
            & vbCrLf & "Ligne N° : " & ligne1 _
            & vbCrLf & "" _
            , vbInformation, Application.Name)
Sheets(nomfeuille).Activate
Rows(ligne1).Select

A+ à tous

 

[missonbody]

Re : Atteindre la ligne après recherche par mot clé

excellent, tout fonctionne!

merci beaucoup

 

[missonbody]

Re : Atteindre la ligne après recherche par mot clé

Petit ajout

est-il possible que le renvoie se fasse par double-clic dans les résultats de recherche sans devoir aller dans l'onglet "Visualiser la ligne" puis par le Msg Box?

 

[JCGL]

Re : Atteindre la ligne après recherche par mot clé

Bonjour à tous,

Rajoute ce bout de code dans le module de l'USF :

Private Sub ListView1_DblClick()
    With ListView1
        For i = 1 To .ListItems.Count
If .ListItems(i).Selected = True Then
                nomfeuille = Mid(.ListItems(i).Key, 1, InStr(1, .ListItems(i).Key, "££") - 1)
                ligne1 = Mid(.ListItems(i).Key, InStr(1, .ListItems(i).Key, "££") + 2, 50)
nuitem = i
                Exit For
            End If
        Next
    End With
    Sheets(nomfeuille).Activate
    Rows(ligne1).Select
    Unload Me
End Sub

A+ à tous

 

[missonbody]

Re : Atteindre la ligne après recherche par mot clé

-problème de syntaxe corrigé-

 

[JCGL]

Re : Atteindre la ligne après recherche par mot clé

Bonjour à tous,

Passe With ListView1 à la ligne

A+ à tous

 

[missonbody]

Re : Atteindre la ligne après recherche par mot clé

Excellent, merci beaucoup pour ton aide JCGL, nous venons de sauver beaucoup de temps au bureau!