XL 2010 Rechercher colorier sous condition

[KIM]

Bonjour le forum, bonjour les ami(e)s,
Je fais appel de nouveau à votre aide et vous en remercie par avance.
Dans le fihcier joint
- onglet Base : j'ai des références avec leurs libellés dans une col sur 2 càd dans les col A, C, E, G et I
- dans les autres onglets j'ai le détail de chaque référence par ligne à partir de la lligne 3.

Dans l'onglet Base, , je dois extraire pour chaque cellule des col A,C,E,G et I la reference d'une longueur 8 car et la rechercher dans les autres onglets autres que Menu et Base.
Si Trouvée, je regarde la valeur de la 3è col (col C), de cette référence dans l'onglet du détail
Si la valeur est égale à "0", colorier dans l'onglet Base la référence et la cellule à côté en rouge .

PS : Dans le fichier de travail, les onglets de détails sont des liens vers un fichier externe

Merci de votre aide
KIM

 

[Jacky67]

Bonjour,
Tester si le classeur le classeur en PJ convient

 

[ChTi160]

Bonsoir KIM
Bonsoir le Fil ,Le Forum
une autre approche
Bonne fin de soirée
Amicalement
Jean marie

 

[KIM]

Bonjour Jacky67, Bonjour Jean marie, bonjour le forum,
Merci pour votre contribution à la solution de mon problème.
@Jacky67
Ta macro Color fonctionne sur l'exemple de test. Je l'ai copiée dans mon fichier de travail qui possède la même structure que le fichier test par contre les données sont des formules liées à un fichier externe.
la macro traite la 1è col de l'onglet Base et s'arrête à la cellule B=$A$39 avec le message d'erreur :
Variable objet ou variable de bloc With non définie
sur la ligne :
B = .Cells.Find(What:=Sheets(C).Cells(i, 1), LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlNext).Address
As-tu une idée ?
@jean marie,
Merci, comme d'habitude efficace et pro. Si disponible, peux-tu stp me commenter la fonction Function Initialise_Ws(Tab_Recap, Ws_Source)

Merci encore et Bonne journée
Amitiés
KIM

 

[ChTi160]

Re KIM
Content de te croiser
Pas pro comme toi ! mais j'aime la Bidouille lol
Bonne journée
Amicalement
Jean marie

 

[KIM]

Re le fil,
Merci Jean-Marie,
Je cherche toujours à gagner du temps et à éviter les tâches répétitives et source d'erreurs.
Les données des onglets de détails des références sont liées à un seul fichier externe et un seul onglet.
Je vais créer une autre discussion pour lire ce fichier externe, de préférence fermé, et créer les onglets du fichier de travail.
Merci pour toute ton aide et ta disponibilité dans ce forum.
Merci le forum,
Amitiés
KIM

 

[KIM]

Re Jean-Marie,
Pour éviter un blocage quand un code de l'onglet Base ne se trouve pas dans les différents onglets de détails, est-il possible en fin d'exécution d'afficher un message
"Traitement OK" quand la macro a réussi de traiter tous les codes de l'onglet Base
ou
"Codes non trouvés et la liste de codes non trouvés dans les autres onglets"
Merci d'avance
KIM