colorer une cellule automatiquement

[Océane1998]

Bonjour,

J'ai un tableau de consommation d'eau sur excel 2013, je voudrai qu'à chaque fois que je change la date du relevé de compteur (colone B) celle-ci s'affiche en couleur automatiquement, mais qu'elle se remette en blanc lorsque j'ajoute une autre date en dessous (et donc que cette autre date se colore, etc). Sauriez-vous comment faire ?

Je vous remercie d'avance !

 

[kan3pz]

Salut,

Un essai en PJ par MFC, si j'ai bien compris la problématique (il est plus facile de répondre a une demande avec un fichier exemple avec le résultat attendu).

A dispo,

 

[Lone-wolf]

Bonjour Océane, kane, le Forum 🙂

Une proposition en VBA, à mettre dans le module de la feuille.

Private Sub Worksheet_Change(ByVal R As Range)
Application.EnableEvents = False
If Not Intersect(R, Range("b2:b8000")) Is Nothing Then
If IsDate(ActiveCell.Offset(-1, 0)) Then ActiveCell.Offset(-1, 0).Interior.Color = vbYellow

If Day(R.Offset(0, 0)) > Day(R.Offset(-1, 0)) Or Month(R.Offset(0, 0)) > Month(R.Offset(-1, 0)) Then
R.Offset(0, 0).Interior.Color = vbYellow
R.Offset(-1, 0).Interior.Color = xlNone
End If
End If
Application.EnableEvents = True
End Sub

 

[Océane1998]

Salut,

Un essai en PJ par MFC, si j'ai bien compris la problématique (il est plus facile de répondre a une demande avec un fichier exemple avec le résultat attendu).

A dispo,

Salut,

Un essai en PJ par MFC, si j'ai bien compris la problématique (il est plus facile de répondre a une demande avec un fichier exemple avec le résultat attendu).

A dispo,

C'est exactement ce que je souhaite faire ! Comment avez-vous fait ?

 

[Océane1998]

Bonjour Océane, kane, le Forum 🙂

Une proposition en VBA, à mettre dans le module de la feuille.

Private Sub Worksheet_Change(ByVal R As Range)
Application.EnableEvents = False
If Not Intersect(R, Range("b2:b8000")) Is Nothing Then
If IsDate(ActiveCell.Offset(-1, 0)) Then ActiveCell.Offset(-1, 0).Interior.Color = vbYellow

If Day(R.Offset(0, 0)) > Day(R.Offset(-1, 0)) Or Month(R.Offset(0, 0)) > Month(R.Offset(-1, 0)) Then
R.Offset(0, 0).Interior.Color = vbYellow
R.Offset(-1, 0).Interior.Color = xlNone
End If
End If
Application.EnableEvents = True
End Sub

Merci de votre réponse mais c'est trop compliqué pour moi, je suis encore très novice !

 

[kan3pz]

C'est exactement ce que je souhaite faire ! Comment avez-vous fait ?

Regarde dans le menu de MFC > Gérer les règles :

Formule si cellule B n <> "" ET B n+1 = "" Alors on colore en rouge à adapter au besoin.

 

[Océane1998]

Regarde dans le menu de MFC > Gérer les règles :
Regarde la pièce jointe 1016928

Formule si cellule B n <> "" ET B n+1 = "" Alors on colore en rouge à adapter au besoin.

Super merci beaucoup !

 

[Océane1998]

Regarde dans le menu de MFC > Gérer les règles :
Regarde la pièce jointe 1016928

Formule si cellule B n <> "" ET B n+1 = "" Alors on colore en rouge à adapter au besoin.

Et si je veux que ce soit la 1ere cellule vide (apres la derniere date) qui se colore, c'est la même formule ?

 

[kan3pz]

Dans ce cas : =(B2="")*(B1<>"")
Par contre si la cellule est vide il faut colorer la cellule et non le texte.