Atteindre la ligne après recherche par mot clé

JCGL

XLDnaute Barbatruc

• 22 Janvier 2014

• #2

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

 

Vote positif 0 Vote négatif

M

missonbody

Guest

• 23 Janvier 2014

• #3

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

excellent, tout fonctionne!

merci beaucoup

 

Vote positif 0 Vote négatif

M

missonbody

Guest

• 23 Janvier 2014

• #4

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?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Janvier 2014

• #5

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: 23 Janvier 2014

Vote positif 0 Vote négatif

M

missonbody

Guest

• 23 Janvier 2014

• #6

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

-problème de syntaxe corrigé-

 

Dernière modification par un modérateur: 23 Janvier 2014

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Janvier 2014

• #7

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

Bonjour à tous,

Passe With ListView1 à la ligne

A+ à tous

 

Vote positif 0 Vote négatif

M

missonbody

Guest

• 23 Janvier 2014

• #8

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!

 

Vote positif 0 Vote négatif