Couleur lignes de 3 ou 4 numéros

Bonjour le Forum

Ma nouvelle demande consiste à colorer les cellules dont 3 ou 4 chiffres se suivent sur une même ligne

merci de vos réponses

Cdt

Gabinos

Bonjour,

Un essai :

Sub gabinos()

For i = 5 To 21
compteur = 0
    For e = 9 To 14
        If Cells(i, e) + 1 = Cells(i, e + 1) And Cells(i, e + 1) + 1 = Cells(i, e + 2) Then
        compteur = compteur + 3
        End If
    Next e
        If compteur >= 3 Then
            For a = 9 To 14
                If Cells(i, a) + 1 = Cells(i, a + 1) Or Cells(i, a) - 1 = Cells(i, a - 1) And Cells(i, a - 1) <> "" Then
                Cells(i, a).Interior.Color = RGB(50, 200, 255)
                Else
                Cells(i, a).Interior.Color = xlNone
                End If
            Next a
        Else
        Range(Cells(i, 9), Cells(i, 14)).Interior.Color = xlNone
        End If
 Next i
End Sub

Merci de votre réponse rapide

mais pas réussi a mettre en fonction sur mon test

désolé je suis pas une expert en formule

cdt

Re

Le fichier :

merci de votre rapidité de réponse

mais je suis encore sous excel2003

je ne peut pas lire votre fichier

A oui pardon,

je ne sais pas si c'est fonctionnel comme ça :

merci

mais dommage cela fonctionne pas?

a lire le programme envoyer cela devrais fonctionner , mais pas de chance

je n'arrive à aucun résultat "merci" poupou" lol

lol, mais il se passe quoi ? rien du tout ? Car dans le doc envoyé les cellules sont déjà en couleur donc il faut d'abord les repasser en blanc pour voir un changement.

Je t'avoue que sans avoir la version 2003 c'est difficile de pouvoir faire des essais ...

suite désolé

même en laissant les cellules blanche rien ne se passe ?

Donc une formule plus simple juste dans l'exemple trouvé 3 ou 4 de la colonne "N" suivant le résultat des colonnes "I à M"

sans les couleurs

es ce possible

Voila le résultat est top après quelques modifications de mon programme

cela fonctionne parfaitement

MERCI