Une macro événementielle à copier dans la feuille de code de la feuille concernée
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Offset(0, -1) <> "" Then
If UCase(Target) = "OK" Then Target.Offset(0, -1).Interior.ColorIndex = 4
End If
End Sub
J'ai copier coller ton code dans un fichier vierge, creer Macro
mais ça ne fonctionne pas
En A1 je met 21/08/2015 et en B1 je met OK (maj ou min)
Bah... la cellule A1 reste blanche
Patman
Se positionner sur la feuille concernée, faire clic droit sur l'onglet de la feuille, choisir Visualiser le code puis coller le code proposé dans la feuille qui vient de s'ouvrir.
Sur MAC un peu différent mais j'ai trouvé et ça fonctionne
mais quand je met la date en colonne A il me met une fin de debogage avec comme message
le méthode Offset de l'objet range a échoué
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Offset(0, -1) <> "" And UCase(Target) = "OK" Then Target.Offset(0, -1).Interior.ColorIndex = 4
End Sub
En complément comment faire.?
En A1 j'ai la date du jour (ma référence)
En colonne B j'ai des dates dans chaque cellule
si la date de la cellule est egale ou inferieur de 24h ou dépassée par rapport a la date reference elle doit clignote rouge
mais si je met OK elle se met en vert fixe (mise en forme conditionnelle du post precedent)