Couleur cellule dans un tableau

[Philippe]

Bonjour à tous,

J'ai un tableau de 5 colonnes (M:Q) avec un titre en en-tête (sur la ligne 4).

Dans la première colonne (DATE) variable en longueur, il y a des cellules ayant un format (mm-yyyy).

Ce que j'aimerais, c'est que VBA me trouve la cellule correspondant au mois en cours et qu'elle la grise, ainsi que les4 cellules contigües.

J'espère avoir été clair, et merci pour la réponse

 

[Vériland]

Bonsoir Philippe et toi le Forum,

Nul besoin de VBA...tu peux traiter cette requête avec un format conditionnel...

Format/Mise en forme conditionnelle​

Tiens pour avoir un support concret je te suggère d'utiliser le fichier d'Alain Vallon...il est très complet pour cela...

CLIQUER SUR L'IMAGE EQUIVAUT A TELECHARGER LE PROGRAMME

http://imagesdeti.free.fr/Fichiers/FormCond_Vallon.jpg​

Voilà pour l'instant...normalement je crois bien qu'il y a la réponse dedans...et même d'autres...

 

[Vériland]

Oups...j'ai oublié l'image...donc je reprends...

CLIQUER SUR L'IMAGE EQUIVAUT A TELECHARGER LE PROGRAMME

​

 

[Ronan]

Bonsoir,

Cela fonctionne :

Sub compte()
Dim plage_mois, valeur As Range
Dim mois, annee, mois_en_cours, annee_en_cours As Integer
Dim date_valeur As Date
Application.ScreenUpdating = False
With Sheets("feuil1")
ligne = .Cells(65536, 13).End(xlUp).Row
.Range("m4:q" & ligne).Select
Selection.Interior.ColorIndex = xlNone
.Range("m4").Select
Set plage_mois = .Range("m5:m" & ligne)
mois_en_cours = Month(Date)
annee_en_cours = Year(Date)
For Each valeur In plage_mois
date_valeur = valeur.Value
mois = Month(date_valeur)
annee = Year(date_valeur)
If mois = mois_en_cours And annee = annee_en_cours Then
ligne = valeur.Row
.Range("m" & ligne & ":q" & ligne).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
.Range("m4").Select
Exit For
End If
Next
End With
Application.ScreenUpdating = True
End Sub

@+
Ronan

 

[Philippe]

Merci Ronan, mais tu dois y passer ta nuit à pister une nouvelle question qui te mettra à contribution. Enfin ce que je trouve sympa, c'est de trouver des gens comme toi qui puisse aider des gens comme moi, pour ton info moi même j'aide des gens dans d'autres domaines, c'est çà la convivialité sans retour sauf si un GRAND MERCI.

A+
Philippe

 

[Philippe]

Un grand MERCI pour l'envoi de ce fichier, avec le code VBA de Ronan, je suis comblé, mais alors que de choses dans le fichier zippé, à garder au chaud pour plein d'autres choses.

MERCI

@+

 

[denis Flamand]

Pour info tu peux télécharger le petit essai Scooryams mis en ligne depuis peu qui utilise beaucoup les couleurs Cellulex A +