Discussion :

[MelkInarian]

Bonjour à toutes et à tous,
Je souhaite savoir s'il existe un moyen de connaître le numéro de ligne dans laquelle vlookup à trouvé une donnée recherchée.
Dans mon exemple ci-dessous c'est, à la ligne 9, le résultat de 'BONNE_LIGNE ' qui contiendra : 'ligneDe(Application.WorksheetFunction.VLookup(Cp_Crs, Matable, Num))' afin de pouvoir mettre à jour la cellule après modificationn à la ligne 14.

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
°Actuel As String, Col As String
Dim TblCmp As Variant
Dim Matable As Range          ' étendue
 
    With Fichier.Worksheets("ListePJ")
        Col = Col2Let(Num)  ' Procédure qui transforme un numéro de colonne en lettre de colonne
        Set Matable = .Range("A951:" & Col & "1011")
            °Actuel = Application.WorksheetFunction.VLookup(Cp_Crs, Matable, Num)  ' Chaine au format "1|||1||||||||||||||||"
            'BONNE_LIGNE = ligneDe(Application.WorksheetFunction.VLookup(Cp_Crs, Matable, Num))
            TblCmp = Split(°Actuel, "|")
 
' mon traitement
 
             Matable.Cells(BONNE_LIGNE, Num).Value = °Actuel
        Set Matable = Nothing                                ' libère la mémoire
    End With

Merci

[Philippe Tulliez]

Bonjour,

Je souhaite savoir s'il existe un moyen de connaître le numéro de ligne dans laquelle vlookup à trouvé une donnée recherchée.

Pour connaître la position d'une valeur cherchée dans une colonne ou dans une ligne, il faut utiliser la fonction EQUIV, MATCH pour la version anglaise

[MelkInarian]

Merci Philippe Tulliez, j'ai fini par y arriver grâce à votre post.

Code :

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

Ligne = Application.Match(Cp_Crs, Matable.Columns(1), 0)

J'ai eu du mal avec l'erreur 2042 jusqu'à ce que je me rende compte qu'il me fallait indiquer la colonne de recherche.

Code :

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

Ligne = Application.Match(Cp_Crs, Matable, 0)

Ne convient pas

Merci bien