Mise en forme conditionnelle.
Résolu
Bonjour,
J'ai un petit souci et j'espère que vous pourrez m'éclairer.
En colonne T6 à T55 j'ai plusieurs chiffres qui se suivent de 1 à 10 et je souhaiterais que lorsque 4 chiffres se suivent les cellules se mette en couleur.
Petite précision les cases contenant ses chiffres contiennent une formule.
Ex.
1
1
2
3
4
5
5
4
3
Dans ce cas là le 2345 doivent se mettre en couleur.
Pouvez-vous m'aider ?
J'ai un petit souci et j'espère que vous pourrez m'éclairer.
En colonne T6 à T55 j'ai plusieurs chiffres qui se suivent de 1 à 10 et je souhaiterais que lorsque 4 chiffres se suivent les cellules se mette en couleur.
Petite précision les cases contenant ses chiffres contiennent une formule.
Ex.
1
1
2
3
4
5
5
4
3
Dans ce cas là le 2345 doivent se mettre en couleur.
Pouvez-vous m'aider ?
4 réponses
-
Bonjour,
A testerSub Colorer() Dim K As Integer, i As Integer K = 1 Range("T6:T55").Interior.ColorIndex = xlNone For i = 7 To 55 If Range("T" & i).Value = Range("T" & i).Offset(-1, 0).Value + 1 Then K = Application.Min(4, K + 1) If K = 4 Then Range("T" & i).Offset(-3, 0).Resize(4, 1).Interior.ColorIndex = 3 End If Else K = 1 End If Next i End Sub
A+ -
Bonjour Luna,
sélectionnes ta plage T6:T55
Mise en forme conditionnelle
nouvelle règle
Utiliser une formule
et tu entres la formule suivante avant de choisir la couleur :
=OU(ET(T6=T7-1;T6=T8-2;T6=T9-3);ET(T6=T5+1;T6=T7-1;T6=T8-2);ET(T6=T4+2;T6=T5+1;T6=T7-1);ET(T6=T3+3;T6=T4+2;T6=T5+1))
Cdlmnt
-
Superbe, ça fonctionne ! Je suis trop contente....
Merci merci merci. :-) -
Merci, c'est pas mal non plus. Comme ça j'ai l'embarras du choix ! :-) ;-)
Merci mille fois.
