Changer la couleur d'une cellule tous les 14 jours
J'ai un fichier de suivi du courrier. Je dois faire des relances tous les 14 jours et j'aimerai qu'à chaque fois que j’atteins 14 jours en plus la cellule change de couleur.
Je vous présente le code que j'ai essayé de rédiger mais qui ne fonctionne pas correctement.
Besoin de votre aide pour le rendre fonctionnel.
Private Sub Workbook_Open()
Dim i As Integer
Dim Col As Long
For i = 2 To 99
Range("F" & i).Select
Col = ActiveCell.Row
If Range("F" & Col).Value <= 14 Then
Range("F" & Col).Interior.Color = 32768
End If
If Range("F" & Col).Value >= 15 And Range("F" & Col).Value <= 29 Then
Range("F" & Col).Interior.Color = 6723891
End If
If Range("F" & Col).Value >= 30 And Range("F" & Col).Value <= 44 Then
Range("F" & Col).Interior.Color = 52377
End If
If Range("F" & Col).Value >= 45 And Range("F" & Col).Value <= 59 Then
Range("F" & Col).Interior.Color = 65280
End If
If Range("F" & Col).Value >= 60 And Range("F" & Col).Value <= 74 Then
Range("F" & Col).Interior.Color = 16711680
End If
If Range("F" & Col).Value >= 75 And Range("F" & Col).Value <= 89 Then
Range("F" & Col).Interior.Color = 16763904
End If
If Range("F" & Col).Value >= 90 And Range("F" & Col).Value <= 104 Then
Range("F" & Col).Interior.Color = 16776960
End If
If Range("F" & Col).Value >= 105 Then
Range("F" & Col).Interior.Color = 16777215
End If
Next
Range("F3").Select
End Sub
Merci de votre aide
Bonjour,
Pourquoi opter pour une macro ?
Pourquoi ne pas faire une MFC ? c'est beaucoup plus simple.