Atteindre la ligne après recherche par mot clé

missonbody

XLDnaute Nouveau
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
 

Pièces jointes

  • Dictionnaire De Rue avec macro.xls
    184 KB · Affichages: 92

JCGL

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

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer :

VB:
.....
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
 

JCGL

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

Bonjour à tous,

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

VB:
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
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna