Discussion :

[Mathrap65]

Bonjour a tous,

Je vais essayer d'être clair dans ma question.

J'utilise la fonction "find" pour rechercher une rubrique dans un tableau, cela fonctionne très bien sauf quand la valeur recherchée est doublé sur les 2 première ligne,
Il ramène la ligne 3 au lieu de la ligne 2 par contre quand j'ai des rubriques doublé en milieu de fichier cela fonctionne très bien il me ramène bien la première occurrence


ci-joint un exemple:TestFind.xlsm


Je j'espère avoir été assez clair Merci d'avance

[78chris]

Bonjour

Un tableau structuré ne se gère pas comme une plage : Excel y différencie Range et DataBodyRange (qui n'intègre pas l'en-tête) et dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets(sheet).Range("table1").Cells.Find(RubriqueCherchee)

c'est DataBodyRange qu est considéré

En utilisant dans l'appel le nom du tableau et non celui dela feuille (Excel sait dans quelle feuille il est) on obtient la bonne ligne même si le tableau ne commence par en ligne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim i_RechercheRubrique As Long
 
    i_RechercheRubrique = RubriqueLigne_lookup2("3PRIM", "Table1")
 
    MsgBox "3PRIM = " & i_RechercheRubrique
 
End Sub

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
16
17
Function RubriqueLigne_lookup2(RubriqueCherchee As String, Ttable As String) As Long
 
 Dim ra As Range
 
    With Range(Ttable).ListObject.Range
     Set ra = .Find(RubriqueCherchee)
 
        If ra Is Nothing Then
 
            RubriqueLigne_lookup2 = 0
        Else
            RubriqueLigne_lookup2 = ra.Row
 
        End If
    End With
 
End Function

mais peut obtenir la ligne relativement au contenu du tableau donc 1 pour 3PRIM et 4 pour CAGE si on utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RubriqueLigne_lookup2 = ra.Row - ra.ListObject.Range.Row

On peut aussi limiter la recherche à la 1ère colonne qui n'est pas forcément en A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Range(Ttable).ListObject.ListColumns(1).Range

NB : éviter d'utiliser pour des variables des noms réservés, comme sheet ou Table

[Mathrap65]

Merci Chris
je vais tester ça

Encore Merci Ca marche super bien