RechercheV en VBA avec coloration de cellule
Résolu
senecartour
Messages postés
324
Date d'inscription
Statut
Membre
Dernière intervention
-
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je me permets de vous solliciter pour résoudre un problème.
Mon souhait de créer un code VBA qui me permet de faire une rechercheV avec une clé de recherche tout en colorant les cellules contenant les valeurs absentes dans la base de recherche.
Je vous ai mi toutes les explication dans le fichier en même temps que les données.
Voici le fichier en pièce jointe:
https://www.cjoint.com/c/ELcwmqbOXTG
Je vous remercie beaucoup pour votre aide.
Je me permets de vous solliciter pour résoudre un problème.
Mon souhait de créer un code VBA qui me permet de faire une rechercheV avec une clé de recherche tout en colorant les cellules contenant les valeurs absentes dans la base de recherche.
Je vous ai mi toutes les explication dans le fichier en même temps que les données.
Voici le fichier en pièce jointe:
https://www.cjoint.com/c/ELcwmqbOXTG
Je vous remercie beaucoup pour votre aide.
A voir également:
- RechercheV en VBA avec coloration de cellule
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
1 réponse
Bonsoir senecartour
1) Supprime les lignes :
2) Remplace les lignes en fin de macro par celle-ci :
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
1) Supprime les lignes :
'Constitution de la clé For k = 5 To Derli clé = Cells(k, 1).Value & "_" & Cells(k, 2).Value Next k
2) Remplace les lignes en fin de macro par celle-ci :
'Recherche dans la base de recherche avec la clé
For l = 5 To Derli
clé = Cells(l, 1).Value & "_" & Cells(l, 2).Value
If IsError(Application.VLookup(clé, ActiveSheet.Range("J5:J" & Derli), 1, False)) Then Cells(l, 1).Interior.ColorIndex = 3
Next l
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Franchement merci énormément. C'est exactement ce que je voulais.
Merci encore pour votre aide.