Macro qui ne reagit pas toujours bien !

[yves03]

Bonsoir,
J'ai une macro qui me permet de mettre en couleur des cellules en fonction des dates de fin de mois
Vert: de la fin du mois + 15 jours
Jaune: de 16 a 20 jours
Rouge: + de 20 jours

Par moment tout fonctionne bien et a d'autres moment ce qui devrait etre vert est rouge ou vice versa.
Si vous pouviez m'aider a fiabiliser le code;
Merci d'avance

PS: je demarre a partir de Janvier 2009

 

[Gael]

Re : Macro qui ne reagit pas toujours bien !

Bonsoir Yves03,

J'ai remplacé le code de ta macro Worksheet_change par un code plus simple avec des boucles.

Je n'ai pas tout testé mais ça a l'air de marcher. Voir exemple joint.

Cela répond-t-il à ton problème?

@+

Gael

 

[yves03]

Re : Macro qui ne reagit pas toujours bien !

Merci Gael, cela fonctionne bien.
Comment peux t'on eviter de selectionner a chaque fois la colonne B, en fait si cela etait possible de ne pas voir la selection a l'ecran
Merci

 

[Gael]

Re : Macro qui ne reagit pas toujours bien !

Re,

Pour ne plus voir la sélection à l'écran, il suffir de rajouter une sélection de cellule en fin de procédure. J'ai choisi "B6" mais tu peux changer.

J'ai supprimé le module 1 qui est remplacé par une procédure plus simple dans le code du Userform:

Private Sub UserForm_Initialize()
Dim tabcoul() As Integer
j = 0
For i = 7 To 17
ReDim tabcoul(3)
    For Each cell In Range(Cells(i, 3), Cells(i, 14))
        If cell.Interior.ColorIndex = 4 Then tabcoul(0) = tabcoul(0) + 1
        If cell.Interior.ColorIndex = 6 Then tabcoul(1) = tabcoul(1) + 1
        If cell.Interior.ColorIndex = 3 Then tabcoul(2) = tabcoul(2) + 1
    Next cell
        For k = 0 To 2
        j = j + 1
        If tabcoul(k) > 0 Then Me.Controls("TextBox" & j) = tabcoul(k)
        Next k
Next i
End Sub

Cf exemple joint.

Ce sera également plus facile à gérer par la suite si tu veux te servir du même Userform pour toutes les régions.

@+

Gael

 

[yves03]

Re : Macro qui ne reagit pas toujours bien !

Merci de ton aide, c'est vraiment sympa
😉

 

[yves03]

Re : Macro qui ne reagit pas toujours bien !

J'ai un petit probleme avec la macro sur le mois de Decembre.
Peut importe la date que l'on affiche , la cellule passe en rouge.
Elle devrait etre en vert si la date est entre le 01/01/2009 et le 15/01/2010 en jaune entre le 16/01/2010 et le 20/01/2010 et en rouge au-dela du 20/01/2010.
Si quelqu'un a une petite idée pour m'aider à modifier la macro.
Merci d'avance

 

[Gael]

Re : Macro qui ne reagit pas toujours bien !

Bonsoir Yves03,

Effectivement, si on arrive en Décembre, il faut mettre une date de fin de mois au 31/12 de la même année, donc modifier la formule de calcul.

Corrigé dans le fichier joint.

@+

Gael

 

[yves03]

Re : Macro qui ne reagit pas toujours bien !

Merci beaucoup Gael.
Ca fonctionne super bien !!
😉