[Résolu] Coloré les cellules trouvées

[Bearn 64]

Bonjour le Forum,

Une demande particulière.

Dans une Feuil2 j'ai 3 colonnes. (Nom Prenom, DatedeLivraison, HeurdeLivraison)

Dans la Feuil1 j'ai 4 colonnes. (Nom, Prenom, DatedeLivraison, HeurdeLivraison)

Le but serai de partir de la Feuil2 et de retrouver la ligne identique et unique et de mettre les cellules Nom et Prenom de la Feuil1 en fond rouge.
(les lignes de la Feuil2 sont issues de la Feuil1 a l'origine, donc présente dans Feuil1)


Merci de l'attention que vous porterez a ma demande.

 

[Jack2]

Re : Coloré les cellules trouvées

Bonjour Bearn 64,

Ci-joint une proposition. Il y a peut être plus court, je verrai demain (aujourd'hui) si ça te convient.

Bonne nuit

A+ Jack2

 

[DoubleZero]

Re : Coloré les cellules trouvées

Bonjour, Bearn 64, Jack2, le Forum,

Une autre suggestion en pièce jointe.

Nota : je ne comprends pas la raison pour laquelle le format des dates et heures se modifie systématiquement 😕 !... Tout comme le format de police 🙁.

A bientôt 🙂

 

[DoubleZero]

Re : Coloré les cellules trouvées

Re-bonjour,

Nota : je ne comprends pas la raison pour laquelle le format des dates et heures se modifie systématiquement 😕 !... Tout comme le format de police

Voici une autre version, en .xlsm, respectant les formats.

A bientôt 🙂

 

[Bearn 64]

Re : Coloré les cellules trouvées

Bonjour, DoubleZero, Jack2, le Forum,

Merci a vous d'une réponse si rapide.

Pour Jack2 ok mais DoubleZero en vba ok, répond le plus a ma demande.

Pour DoubleZero merci de cette réponse.
Les deux réponses donnent le même résultat dans mon cas. (pas de modifications de code et les dates et heures étaient correctes dans la première version !!!!!)


J'ai essayer de l'adapter a mon dossier.

Et vu mon niveau en VBA ????

Je vous joint le fichier modifié (pour une aide a l'adaptation, si possible, avec quelques commentaires dans le module).

Pour je puisse comprendre le chemin du traitement.



Merci de votre compréhension.

Bravo pour votre reactivité.


Bearn 64 A++++

 

[DoubleZero]

Re : Coloré les cellules trouvées

Re-bonjour,

... J'ai essayer de l'adapter a mon dossier. Et vu mon niveau en VBA ????

Je vous joint le fichier modifié (pour une aide a l'adaptation, si possible, avec quelques commentaires dans le module)...

En VBA, comme en formules, mon niveau n'est pas bon 🙁 !

Afin que le temps de chacun soit épargné, merci de joindre, à l'avenir, le véritable fichier de travail (dépourvu de donnée confidentielle comme cela a été fait 🙂).

Ci-après, une nouvelle version commentée.

Bon courage et à bientôt 🙂

 

[Bearn 64]

Re : Coloré les cellules trouvées

Bonsoir, DoubleZero, Jack2, le Forum,

Dans
'conversion de la colonne D afin de dissocier noms et prénoms
Columns("d:d").TextToColumns Destination:=Range("a1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1)), TrailingMinusNumbers:=True


Pourquoi fixer la longueur du nom a 4. Les Noms peuvent être de longueur variable.



merci

 

[DoubleZero]

Re : Coloré les cellules trouvées

Bonjour, le Fil, le Forum,

...Pourquoi fixer la longueur du nom a 4. Les Noms peuvent être de longueur variable...

Le fichier joint tient compte de la remarque.

A bientôt 🙂

 

[Bearn 64]

Re : Coloré les cellules trouvées

Bonjour, DoubleZero, Jack2, le Forum,


OK mais lorsque je le met dans mon projet qui hélas comporte plus de 1800 lignes il arrive que plusieurs fois le même Nom Prénom DatedeLivraison et HeuredeLivraison soient présents.

Et la pas de mise en rouge dans Commandes???


Merci

 

[DoubleZero]

Re : Coloré les cellules trouvées

Bonjour, le Fil, le Forum,

Peut-être en remplaçant cette ligne :

If Range("a" & i) = 2 And Range("a" & i).Interior.ColorIndex <> 6 Then Range("a" & i).Offset(, 2).Resize(, 2).Interior.ColorIndex = 3

par celle-ci :

If Range("a" & i) >= 2 And Range("a" & i).Interior.ColorIndex <> 6 Then Range("a" & i).Offset(, 2).Resize(, 2).Interior.ColorIndex = 3

Le résultat est-il correct ?

A bientôt 🙂

 

[Bearn 64]

Re : Coloré les cellules trouvées

Bonjour, DoubleZero, le Forum,

Oui merci adapter a mon projet OK.


Un Grand merci et meilleurs Vœux de fin et de début d'année.


Bearn 64

 

[DoubleZero]

Re : Coloré les cellules trouvées

Re-bonjour,

... Oui merci adapter a mon projet OK.
Un Grand merci et meilleurs Vœux de fin et de début d'année.
Bearn 64

Ah 😎 !!! Merci pour cette excellente nouvelle 😀 !

Grand merci, également, pour les voeux. A mon tour de formuler les mêmes souhaits 😀.

A bientôt 🙂