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
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.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels