colorer une cellule automatiquement

Océane1998 · 20 Août 2018

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 · 20 Août 2018

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 · 20 Août 2018

Bonjour Océane, kane, le Forum

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

VB:

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 · 20 Août 2018

kan3pz à dit:
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 · 20 Août 2018

Lone-wolf à dit:

Bonjour Océane, kane, le Forum

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

VB:

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 · 20 Août 2018

Océane1998 à dit:
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 · 20 Août 2018

kan3pz à dit:
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 · 20 Août 2018

kan3pz à dit:
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 · 20 Août 2018

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

colorer une cellule automatiquement

Océane1998

XLDnaute Nouveau

kan3pz

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Océane1998

XLDnaute Nouveau

Océane1998

XLDnaute Nouveau

kan3pz

XLDnaute Occasionnel

Océane1998

XLDnaute Nouveau

Océane1998

XLDnaute Nouveau

kan3pz

XLDnaute Occasionnel

Discussions similaires