VBA : comment utiliser la correspondance d’index

Vous pouvez utiliser la syntaxe de base suivante pour effectuer une MATCH D’INDEX dans VBA :

Sub IndexMatch()

    Dim i As Integer
    
    'Perform index match
    For i = 2 To 11
    Cells(i, 5).Value = WorksheetFunction.Index(Range("A2:A11"), _
    WorksheetFunction.Match(Cells(i, 4).Value, Range("B2:B11"), 0))
    Next i
End Sub

Cet exemple particulier recherche les valeurs dans les cellules 2 à 11 de la quatrième colonne de la feuille de calcul dans la plage B2:B11 , puis renvoie les valeurs correspondantes dans la plage A2:A11 à la cinquième colonne de la feuille de calcul.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : effectuer une MATCH D’INDEX à l’aide de VBA

Supposons que nous disposions de l’ensemble de données suivant dans Excel contenant des informations sur les joueurs de basket-ball :

Pour chaque joueur de la colonne D, supposons que nous souhaitions trouver le nom de son équipe dans la colonne A, puis écrire le nom de l’équipe dans la colonne E.

Nous pouvons créer la macro suivante pour ce faire :

Sub IndexMatch()

    Dim i As Integer
    
    'Perform index match
    For i = 2 To 11
    Cells(i, 5).Value = WorksheetFunction.Index(Range("A2:A11"), _
    WorksheetFunction.Match(Cells(i, 4).Value, Range("B2:B11"), 0))
    Next i
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que cette macro était capable de rechercher le nom de chaque joueur, puis de renvoyer le nom de son équipe correspondante dans la colonne E.

Notez qu’au sein de la boucle For, la syntaxe Cells(i,5).value précise que l’on souhaite que les noms des équipes soient renvoyés dans la cinquième colonne de la feuille de calcul, c’est à dire la colonne E.

Si nous modifions cette syntaxe en Cells(i,6).value alors les noms des équipes seront renvoyés dans la sixième colonne de la feuille de calcul :

Sub IndexMatch()

    Dim i As Integer
    
    'Perform index match
    For i = 2 To 11
    Cells(i, 6).Value = WorksheetFunction.Index(Range("A2:A11"), _
    WorksheetFunction.Match(Cells(i, 4).Value, Range("B2:B11"), 0))
    Next i
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que les noms des équipes sont désormais renvoyés dans la sixième colonne de la feuille de calcul (colonne F).

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : comment vérifier si une chaîne contient une autre chaîne
VBA : Comment compter le nombre de lignes dans la plage
VBA : Comment écrire les fonctions COUNTIF et COUNTIFS