Comment effectuer une recherche verticale et retourner la valeur correspondante avec un commentaire de cellule ?

Lorsque vous utilisez la fonction Recherche verticale pour retourner la valeur correspondante, elle extraira uniquement la valeur sans la mise en forme, comme la couleur de remplissage, la police ou les commentaires, etc. Cependant, parfois, vous pourriez avoir besoin d'effectuer une recherche verticale et de retourner la valeur correspondante incluant également le commentaire afin d'obtenir le résultat visible dans la capture d'écran ci-dessous. Comment pourriez-vous résoudre cette tâche dans Excel ?

Effectuer une recherche verticale et retourner la valeur correspondante avec un commentaire de cellule en utilisant un code VBA

Effectuer une recherche verticale et retourner la valeur correspondante avec un commentaire de cellule en utilisant un code VBA

Le code VBA ci-dessous peut vous aider à effectuer une recherche verticale et retourner la valeur correspondante avec son commentaire, veuillez suivre les étapes suivantes :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis copiez et collez le code suivant dans la fenêtre Module.

Code VBA : Effectuer une recherche verticale et retourner la valeur correspondante avec un commentaire de cellule :

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. Ensuite, enregistrez le code et fermez la fenêtre du code, entrez cette formule : =vlookupcomment(H2,A2:C10,3,FALSE) dans une cellule vide pour afficher le résultat, puis appuyez sur la touche Entrée, la valeur correspondante ainsi que le commentaire sont immédiatement retournés, voir capture d'écran :

Remarque : Dans la formule ci-dessus, H2 est la valeur recherchée pour laquelle vous souhaitez retourner sa valeur correspondante, A2:C10 est la table de données que vous souhaitez utiliser, le chiffre 3 est le numéro de colonne qui contient la valeur correspondante que vous souhaitez retourner.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !