Discussion :

[Jeanvaljean44]

Bonjour le forum,

Petit point de blocage! Dans un tableau structuré, je recherche le numéro de la ligne où se trouve la variable

Code :

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

CBoBusinessCode

La valeur recherchée, se trouve bien dans ma première colonne du tableau.
Malheureusement le code ci-dessous, n'aboutit pas...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CBoBusinessCode_Change() 'Modification choix liste déroulante
 
Dim NumLigne As Integer
Dim Table As Range
Dim SearchResult As Variant
 
Set Table = Workbooks(ListingBusinessCodeNameFile).Sheets(BusinessSheetName).Range("T_Listing_Code_Affaire")
SearchResult = Application.VLookup(CBoBusinessCode, Table, 1, False)
NumLigne = SearchResult.Row
 
End sub

Auriez-vous une idée???

Merci pour votre retour

[Qwazerty]

Salut

J'utiliserais plutôt Find vu que tu es dans VBA

Code :

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

1
2
3
 
Dim CellFind as range 
   Set CellFind = Table.ListColumns("NomColonne").DatabodyRange.find ...

Dans le principe, après il faut gérer les risque d'erreur si non trouvé

++
Qwaz

[mapeh]

Bonjour,
Perso, j'opterais pour l'équivalent d'EQUIV en VBA, soit "Match"
Comme ceci :

Code :

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

1
2
3
4
5
6
Sub rech()
Dim TS As ListObject
Dim Lig
Set TS = Range("T_Listing_Code_Affaire").ListObject
Lig = Application.Match(CBoBusinessCode, TS.ListColumns(1).DataBodyRange, 0)
End Sub

Et tu obtiendras le numéro de ligne du Tableau (et non le numéro de ligne de l'onglet)
La gestion d'erreur peut être optimisée en déclarant la variable Lig en variant, puis comme ceci :

Code :

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

If Not IsError(Lig) Then MsgBox Lig Else MsgBox "Pas trouvé"

Bonne journée