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

J

Jack2

XLDnaute Occasionnel

• 15 Décembre 2013

• #2

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

 

Pièces jointes

• Bearn 64.xls

  29 KB · Affichages: 35

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Décembre 2013

• #3

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 🙂

 

Pièces jointes

• 00 - Bearn 64 - Colorer si....xls

  732.5 KB · Affichages: 40

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Décembre 2013

• #4

Re : Coloré les cellules trouvées

Re-bonjour,

DoubleZero à dit:

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

Cliquez pour agrandir...

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

A bientôt 🙂

 

Pièces jointes

• 00 - Bearn 64 - Colorer si....xlsm

  76.4 KB · Affichages: 58

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 15 Décembre 2013

• #5

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++++

 

Pièces jointes

• coloré.xlsm

  64.1 KB · Affichages: 48
• coloré.xlsm

  64.1 KB · Affichages: 49
• coloré.xlsm

  64.1 KB · Affichages: 45

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Décembre 2013

• #6

Re : Coloré les cellules trouvées

Re-bonjour,

Bearn 64 à dit:

... 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)...

Cliquez pour agrandir...

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 🙂

 

Pièces jointes

• 00 - Bearn 64 - Colorer si...V2.xlsm

  72.7 KB · Affichages: 42

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 15 Décembre 2013

• #7

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 16 Décembre 2013

• #8

Re : Coloré les cellules trouvées

Bonjour, le Fil, le Forum,

Bearn 64 à dit:

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

Cliquez pour agrandir...

Le fichier joint tient compte de la remarque.

A bientôt 🙂

 

Pièces jointes

• 00 - Bearn 64 - Colorer si...V3.xlsm

  73.7 KB · Affichages: 59
• 00 - Bearn 64 - Colorer si...V3.xlsm

  73.7 KB · Affichages: 57
• 00 - Bearn 64 - Colorer si...V3.xlsm

  73.7 KB · Affichages: 56

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 17 Décembre 2013

• #9

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

 

Pièces jointes

• 00 - Bearn 64 - Colorer si...V3.xlsm

  72.2 KB · Affichages: 27
• 00 - Bearn 64 - Colorer si...V3.xlsm

  72.2 KB · Affichages: 30
• 00 - Bearn 64 - Colorer si...V3.xlsm

  72.2 KB · Affichages: 51

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 17 Décembre 2013

• #10

Re : Coloré les cellules trouvées

Bonjour, le Fil, le Forum,

Peut-être en remplaçant cette ligne :

Code:

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 :

Code:

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 🙂

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 17 Décembre 2013

• #11

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 17 Décembre 2013

• #12

Re : Coloré les cellules trouvées

Re-bonjour,

Bearn 64 à dit:

... 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

Cliquez pour agrandir...

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

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

A bientôt 🙂

 

Vote positif 0 Vote négatif