Suivi de compta

[eliot raymond]

Bonjour Tout le monde, et le Forum bien sur.

Voila encore un souci pour moi, afin de progresser sur mon programme
J'ai colonne E une liste de date sous cette forme Mercredi 18 Février 2009 qui commence en ligne E2 Si possible je souhaiterai que sur un Test =SI fin de mois ou premier jour du mois peut-importe, je verrai, colorer toutes les cellules comportant le mois soit en cours ou précédent (dépendra du test adopter)
Janvier en jaune, Février en bleu, Mars en jaune, Avril en bleu, Mai en jaune et ainsi de suite jusqu'à Décembre (quand on y sera).Ceci afin de bien dissocier chaque mois.
PAS DE MFC. Un petit code VBA a me proposer, je suis preneur et merçi d'avance

EXCEL 2007-Vista Encore merci et a bientot de vous lire.
RAYMOND

 

[soenda]

Re : Suivi de compta

Bonsoir Raymond

PAS DE MFC

Hum, c'est dommage 🙄

A plus

 

[eliot raymond]

Re : Suivi de compta

Bonjour Soenda Forum tous le monde,

Merci d'avoir regarder le petit fichier, pour le MFC c'est que je préfère en VBA vu que je suis en plein dedans et voudrais savoir comment on peut faire ca, dit moi si possible ou pas.

Alors si tu peux me coder un chti truc ca serai sympa, j'ai revu mon programme et mis un peu ordre effectivement c'est plus lisible il y a t'il une regle a respecter ??

a bientot de te lire bonne journée encore merci grace a toi tout marche bien et surtout j'apprends et ca, ca me plait

PS: HELP voudrai colorier plage A1 a I1 couleur 6 par EX: avec WITH j'ai cherché mais pas trouvé

sinon merci pour tout et dit moi si tu peux faire quelque chose

RAYMOND

 

[Excel-lent]

Re : Suivi de compta

Bonsoir Raymond

Ne pouvant pas ouvrir ton fichier (je suis réfractaire à Excel 2007 😀)

Voici une réponse concernant ta première question.

Si la date en A1 tombe le premier jours du mois, la cellule se colorie en jaune automatiquement!

Macro à mettre sur ta feuille et non pas dans un "module"

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Day(Range("A1")) = 1 Then Range("A1").Interior.ColorIndex = 6

End Sub

Je ne vois pas l'intérêt du "With / End with" puisque la macro est de toute façon sur la bonne feuille, mais si tu veux vraiment, tu peux le rajouter 😉

Bonne soirée

 

[Excel-lent]

Re : Suivi de compta

Re,

en VBA (..) dit moi si possible ou pas.

Oui, cf. mon post précédent

Code testé sur Excel 2003, mais devrait fonctionner sur Excel 2007 😀

voudrai colorier plage A1 a I1 couleur 6

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Row = 1 and Target.column < 10 And Day(Range("A1")) = 1 Then Cells(1, Target.column).Interior.ColorIndex = 6

End Sub

Bon WE

 

[soenda]

Re : Suivi de compta

Bonsoir à tous, Excel-lent

Je ne vois pas l'intérêt du "With / End with" puisque la macro est de toute façon sur la bonne feuille...

Avec ton exemple:

Private Sub Worksheet_Change(ByVal Target As Range)

With target
    If .Row = 1 and .column < 10 And Day(Range("A1")) = 1 Then Cells(1, .column).Interior.ColorIndex = 6
end with

End Sub

A plus

 

[Excel-lent]

Re : Suivi de compta

Bonsoir Soenda,

Oui très juste, je n'avais pas pensé à utiliser With/End With ainsi!

Je pensais à With sheets(...

Tant qu'à simplifier, simplifions encore 🙂

Private Sub Worksheet_Change(ByVal Target As Range)

With target
    If .Row = 1 and .column < 10 And Day([COLOR="Red"][B][A1][/B][/COLOR]) = 1 Then Cells(1, .column).Interior.ColorIndex = 6
end with

End Sub

Merci pour l'astuce Soenda, je la met dans un coin de ma tête!

A charge de revanche.

 

[eliot raymond]

Re : Suivi de compta

Bonjour a toi excel-lent, Forum bonjour

Merci d'avoir regarder mon petit programme, ca marche bien pas de soucis

Je te souhaite un excel-lent W-end et encore merci

PS: pense a investir dans excel 2007 (humour) mdr

Raymond

 

[eliot raymond]

Re : Suivi de compta

Bonjour Soenda et le Forum,

J'ai ajouter le code a mon programme et bien sur ca marche, et moi j'avance hihihi en tout cas merci beaucoup du coup de main, je te souhaite un très bon W-end.

Merci encore Raymond

a bientot il y a des chances