Test sur une date pour colorer une cellule Fermé

Question

Bonjour a tous, forum bonjour,

je suis sous Windows 10 et Excel 2007

J'ai commencer un programme et je souhaiterai svp effectuer un test en VBA

Lorsque je clic dans une des cellules de la colonne (A) a partir de A2 car la première est pour le titre.
la date s'affiche sous cette forme "Dimanche 12 Aout 2018" avec le (D) de dimanche en gras et rouge idem pour le (A) mois d'aout.

je voudrais effectuer un test en VBA Ex:

Si A2=une date alors on colorie la cellule de la colonne (G2) intérior en jaune
Si A5=une date alors on colorie la cellule de la colonne (G5) intérior en jaune

etc etc etc a chaque fois qu'une date est copier dans la colonne (A) alors on colorie le fond en colonne (G)

je n'arrive pas a faire ce test, si svp quelqu'un veut bien m'aider.

Merci a tous pour aide et votre savoir partager.

Bon dimanche a tous

Cdlt Ray

yg_be · Answer

bonjour, peux-tu partager le programme que tu as commencé?

raymondo.free.fr · Answer

Bonjour a tous, bonjour forum,
Bonjour yg_be

Merci pour ta réponse, c'est sympa.

J'ai réussi a faire ce pourquoi j'ai poster mais voir la suite svp.

Je ne peux pas joindre de fichier car je fais seulement des bouts d'essai pour un futur programme.

Lorsque je clic dans une des cellules de la colonne (A) a partir de A2 car la première sera pour le titre. 
la date s'affiche sous cette forme "Dimanche 12 Aout 2018"

Et je remplie la cellule EX:

La cellule A2 qui contient la date couleur "Brun"  

Le code si dessous me semble un peu lourd, si quelqu'un saurai me l'optimiser, ca serai super gentil.
Je vous remercie tous de votre aide.
Bonne journée a vous.

Cdlt Ray
 
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [A2:A200]) Is Nothing And Target.Count = 1 Then               If Target.Value = Format(Target.Value, "dddd dd mmmm yyyy") Then _         Target.Offset(0, 0).Interior.ColorIndex = 40                                             '(A2)=Brun                                                Target.Offset(0, 1).Interior.ColorIndex = 40                                             '(B2)=Brun         Target.Offset(0, 2).Interior.ColorIndex = 40                                             '(C2)=Brun         Target.Offset(0, 3).Interior.ColorIndex = 40                                             '(D2)=Brun         Target.Offset(0, 4).Interior.ColorIndex = 40                                             '(E2)=Brun         Target.Offset(0, 5).Interior.ColorIndex = 45                                             '(F2)=Orange         Target.Offset(0, 6).Interior.ColorIndex = 6                                                '(G2)=Jaune 'Quand une des cellules de la colonne (A) est vide alors j'efface les couleurs     If Target.Value = "" Then _         Target.Offset(0, 0).Interior.ColorIndex = 2                                                'Blanc Supprime les couleurs         Target.Offset(0, 1).Interior.ColorIndex = 2         Target.Offset(0, 2).Interior.ColorIndex = 2         Target.Offset(0, 3).Interior.ColorIndex = 2         Target.Offset(0, 4).Interior.ColorIndex = 2         Target.Offset(0, 5).Interior.ColorIndex = 2         Target.Offset(0, 6).Interior.ColorIndex = 2End If

raymondo.free.fr · Answer

salut ye_be

merci pour ta réponse ,

je pense au répéter du code  , j'ai regarder et avec Offset(0,+ ou -) on pourrait colorier plusieurs colonnes en une seule mais je n'ai pas su faire.

Mais si une autre possibilité code VBA d'arriver au même résultat je suis preneur

Bon app et merci pour ton aide 

Cdlt Ray

raymondo.free.fr · Answer

Re salut,

Merci pour la modification du code, je viens de faire des essais ca fonctionne parfaitement bien
du coup le code est bien plus court et surtout moins répétitif, merci a toi.

Une petite question, si tu veux bien.

Dans ma colonne (E) j'ai des formules s'étendant dans la plage de (E2:E42), la formule fonctionne très bien.

Mais mon soucis est que lorsque je veux insérer ou supprimer une ligne, la formule de la ligne est effacer.

J'ai vu mais voila ou et quand ??? qu'on pouvais palier a ce genre de problème en modifiant la formule, EX
 
=SI($C$27>1;$E$26-$C$27;"") ou encore =SI(C27>1;$E26-$C27;"") mais ca marche pas.

Dit moi, svp, si c'est possible, car je souhaiterai par la suite créer une macro pour insérer des lignes ou supprimer des lignes.

'************************
=SI(C27>1;E26-C27;"")

Encore merci pour ton code, bonne après midi a toi.

Cdlt Ray

raymondo.free.fr · Answer

Re,
Cette formule ci dessous se trouve en colonne E2 et le l'ai tirer vers le bas jusqu'à E42
Donc il y a cette formule tout au long de cette colonne 
et quand je supprime ou insère une ligne la formule s'efface complètement.

=SI(C2>1;E1-C2;"")

Pour le faire par macro, je ne sais pas faire, je cherche un code pour insérer ou supprimer une ligne sans effacer la formule.

merci a toi

Cdlt Ray

raymondo.free.fr · Answer

Salut yg_be,

Pour moi ca ne fonctionne pas pourtant je l'ai déjà fait j'ai des recherches dans mes anciens fichiers et sur le net pas je retrouve pas pour la macro "insérer et supprimer" des lignes sans perte des formules.

je peux partager mon fichier si tu le souhaites car la j'ai presque fini manque plus que cette fameuse macro.

A bientôt et merci pour ton aide.

Cdlt Ray

raymondo.free.fr · Answer

Voici le lien pour le fichier, je ne touche plus au fichier j'attends de tes nouvelles prends le temps rien ne presse encore merci pour ton aide n'hésite pas de critiquer ou de dire comment j'aurai du faire, c'est bon pour la formation VBA.

bonne journée a toi et bon app

https://www.cjoint.com/c/HHpkvYTKjKz

ccm81 · Answer

Bonjour à tous les deux

En attendant le retour de yg_be (salut amical)
Tu peux raccourcir un peu en remplaçant les 5 lignes 
        'Target.Offset(0, 0).Interior.ColorIndex = 40                                  '(A2)=Brun        'Target.Offset(0, 1).Interior.ColorIndex = 40                                  '(B2)=Brun        'Target.Offset(0, 2).Interior.ColorIndex = 40                                  '(C2)=Brun        'Target.Offset(0, 3).Interior.ColorIndex = 40                                  '(D2)=Brun        'Target.Offset(0, 4).Interior.ColorIndex = 40                                  '(E2)=Brun
Par celle ci
        Target.Resize(1, 5).Interior.ColorIndex = 40  ' Axx:Exx = Brun
Cdlmnt

raymondo.free.fr · Answer

Salut yg_be,

je souhaiterai deux macros avec un bouton pour actionner l'une ou l'autre des macros, quand il y a le besoin.

Pour infos il y a des formules dans les colonnes E et F.

Je souhaiterai une première macro qui pourrai (insérer une ligne) qui s'incrémente en fonction de la formule au dessus et au dessous de la ligne insérer et qui ne supprime pas les formules des colonne E et F.

Et une autre macro qui me (supprimerai une ligne) si j'ai le besoin et bien sur qui se décrémente en fonction de la formule au dessus et au dessous de la ligne qui vient d'être supprimer afin de garder un bon suivi logique des formules et aussi si c'est possible.

Voila j'espère que je t'ai bien expliquer mon besoin, j'ai chercher sur le net, mais trouver pour moi.

Merci a toi, je te souhaite la bonne soirée.

Cdlt Ray

ccm81 · Answer

J'ai tenté quelques simplifications, vois si ça roule comme tu veux 
https://www.cjoint.com/c/HHpro26fSuB

RQ. Je n'ai pas regardé le pb du post #6

Cdlmnt

raymondo.free.fr · Answer

Re

Ex: Je sélectionne un endroit en dessous des lignes déjà utilisées ou remplies puis je clic sur le (bouton insérer ligne) pour insérer une ligne afin d'avoir une ligne de plus et on recommence si besoin encore d'une ou plusieurs lignes.

On sélectionne la ligne dont on n'a plus besoin, puis on clic le bouton(supprime ligne) et on supprime la ligne sélectionnée.

voila je vois ca comme ca, classic, c'est ce que j'ai pu lire au cours de mes lectures sur le net.

Bonne soirée a toi et merci

Cdlt Ray

ccm81 · Answer

Encore simplifié
https://www.cjoint.com/c/HHqm2l5VRkB

Cdlmnt

ccm81 · Answer

Et comme ça pour une suppression de ligne ?
https://www.cjoint.com/c/HHrjX18tEEB

RQ. Est il pertinent de prévoir une insertion de ligne en plein milieu du tableau ?

Cdlmnt

raymondo.free.fr · Answer

Salut ccm1,

Merci pour tes efforts, mais ca fonctionne pas, il y a pleins d'erreur qui se cumule, effacement de formule ou le fond de cellule qui disparait, calcul faux, etc etc etc, je ne suis pas étonné car j'ai beaucoup chercher sur le net et je n'ai pas trouver un code qui fonctionne correctement.

Donc malgré mes recherches "On va laisser tomber" je vais me contenter du programma tel qu'il est, ce n'ai pas grave.

Je te remercie bien pour ton aide et recherches plus les modifications apporter au programme.

Je te souhaite un bon W-end, encore merci a toi.

Cordialement Ray

ccm81 · Answer

1. Perso, je n'ai pas d'erreur pour
- Ajouter une date en fin de tableau
- Ajouter un commentaire en fin de tableau
- Supprimer une ligne (date ou commentaire) avec clic-droit/Supprimer

2. Je n'ai pas abordé l'insertion d'une ligne (date ou commentaire) en milieu de tableau

3. Je laisse tomber

Cdlmnt

Test sur une date pour colorer une cellule

15 réponses

Discussions similaires