Mise en forme conditionnelle. Résolu/Fermé

Question

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 ?


Configuration: Windows Vista / Firefox 10.0.2

Gyrus · Answer

Bonjour,

A tester
Sub 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+

Luna · Answer

Superbe, ça fonctionne ! Je suis trop contente....

Merci merci merci. :-)

via55 · Answer

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

Luna · Answer

Merci, c'est pas mal non plus. Comme ça j'ai l'embarras du choix ! :-) ;-)

Merci mille fois.

Mise en forme conditionnelle.

4 réponses

Discussions similaires