Probleme sur un find en VBA

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:Pièce jointe 670722


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

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:

---

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:

---

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:

---

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:

---

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:

---

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

---

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

Merci Chris
je vais tester ça

Encore Merci Ca marche super bien