Colorier des cellules suivant une condition

Question

Dans le fichier ci-joint j'ai des nombres dans les colonnes sorties. Ce que je voudrais obtenir c'est de colorier les cellules qui remplissent la condition suivante : colorier les cellules (colonne "Sorties") du mois qui précèdent 5 mois celui en cours. Exemple : nous sommes au mois d'avril, donc il faudrait colorier tous les nombres qui sont se trouvent dans les cellules des colonnes "Sorties" 5 mois avant le mois en cours, donc dans le fichier joint colorier les cellules des mois de décembre 2015, novembre 2015, etc... Ou mieux si possible, afficher dans un Msgbox via un bouton les nombres concernés. J'espère m'être bien fait comprendre. Merci...

Dan · Answer

Deux choses que je vois sur ce fichier et qu'il faudrait modifier Supprimer la colonne AL mettre les mois au format date et non pas en dur comme cela est maintenant. Donc faire ceci 1/1/2016, 1/2/2016. Ensuite on met cela au format date pour voir le nom des mois Possible cela ? Crdlt...

Dan · Answer

Re

Pour faire plus simple, il est préférable de supprimer la colonne en question...

Comment doit se faire le coloriage ? A l'ouverture du fichier, via un bouton, ... en gros sur base de quelle action

Crdlt

Dan · Answer

Re Possible mais ce sera nettement plus complexe que de colorier. Le bouton oui mais pas une msgbox mais plutot une userform qu'il faudra créer avec toute la programmation derrière Crdlt...

Dan · Answer

Re

Fais simple pour commencer.

Voici déjà un code à essayer. Associe le à un bouton sur ta feuille pour exécuter le code

Sub test()
Dim a As Date
Dim lig As Integer, dlg As Integer
a = CDate("1/" & Month(Now) & "/" & Year(Now))
col = Rows(4).Find(a).Column
For i = col - 3 To col - 15 Step -3
    dlg = Cells(Rows.Count, i - 1).End(xlUp).Row
    Range(Cells(6, i - 1), Cells(dlg, i - 1)).Font.ColorIndex = 3
Next
End Sub

Cordialement

Dan · Answer

Re

Si tes couleurs sont déjà en rouge, cela ne change rien. Mets tes chiffres en couleur noir puis clique sur le bouton

Par contre en relisant, le code colorie les 5 mois précédents... c'est bon cela ou il ne faut que la couleur sur le 5ieme mois précédent ?

Crdlt

Peuwi · Answer

Pourquoi ne pas utiliser la mise en forme conditionnelle pour colorier des cellules ?

Une mise en forme sur la cellule B6 :

=ET(ESTNUM(B6);ESTNUM(C$4);MOIS.DECALER(AUJOURDHUI();-4)>C$4)

et cette mise en forme peut être étendue à tout le tableau.

Le premier test vérifie que la cellule est saisie, la seconde que la date est saisie (donc que l'on est dans la bonne colonne), et le troisième vérifie la date.

Dan · Answer

Re Avant de poster le code, j'ai vérifié. A nouveau j'ouvre le dernier fichier que tu as posté et cela fonctionne. donc.... . Tous les mois depuis la colonne B du fichier ?? Crdlt...

Dan · Answer

Re Modifie le code comme suit Sub test() Dim a As Date Dim col As Integer, dlg As Integer, i As Integer a = CDate("1/" &amp; Month(Now) &amp; "/" &amp; Year(Now)) col = Rows(4).Find(a).Column For i = col - 12 To 2 Step -3 dlg = Cells(Rows.Count, i - 1).End(xlUp).Row Range(Cells(6, i - 1), Cells(dlg, i - 1)).Font.ColorIndex = 3 Next End Sub Cordialement Edit : attention de ne pas mettre les mois en cellule fusionnées (comme c'était le cas pour décembre 2015 dans ton fichier)...

Dan · Answer

Re

Ok je viens de comprendre. Tu me parlais de "nom" avant et là ...je ne voyais. En réalité c'est le nom "sortie" qui avait un souci

Voici le code corrigé

Sub test()
Dim a As Date, col As Integer
Dim lig As Integer, dlg As Integer, i As Integer
a = CDate("1/" & Month(Now) & "/" & Year(Now))
col = Rows(4).Find(a).Column
For i = col - 12 To 2 Step -3
    dlg = Cells(Rows.Count, i - 1).End(xlUp).Row
    If dlg > 5 Then Range(Cells(6, i - 1), Cells(dlg, i - 1)).Font.ColorIndex = 3
Next
End Sub

Cordialement