Colorer des cellules si une serie de 5 chiffres consécutif

Bonjour,

je m'explique voila mon exemple, dans une colonne j'introduis une serie de numéros de 1 à 3, je voudrais que lorsque 5 fois le 3 sort consécutivement, que les 5 céllules se colorent,

j'ai tester beaucoup de choses...hélas rien de marche, on m'avais conseiller cette formule

dans condition1 "La formule est" : =NB.SI(A:A;A1)=5 couleur Jaune

dans condition2 "La formule est" : =NB.SI(A:A;A1)>5 couleur Verte

voila un ex

1

1

2

3

1

2

[b]3

3

3

3

3[/b]

2

1

la série de 5 devrait se colorer...

merci par avance, malgré plusieurs tentatives, je ne m'en sors pas.

je joins un fichier, si ça peut être utile

le but serait serait les grosses séries comme 9,10 ou 11 chiffres consécutif

merci

Bonsoir kaizen17,

Un essai dans le fichier joint. On colore les séries de chiffres 3 consécutifs (de 5 ou plus éléments). On applique à la colonne A2:A15951 la MFC de formule ci-dessous:

=OU(SI(A2=3;NB.SI(DECALER(A2;0;0;5;1);3)=5);SI(NB($A$2:A2)<1;FAUX;SI(A2=3;NB.SI(DECALER(A2;-1;0;5;1);3)=5));SI(NB($A$2:A2)<2;FAUX;SI(A2=3;NB.SI(DECALER(A2;-2;0;5;1);3)=5));SI(NB($A$2:A2)<3;FAUX;SI(A2=3;NB.SI(DECALER(A2;-3;0;5;1);3)=5));SI(NB($A$2:A2)<4;FAUX;SI(A2=3;NB.SI(DECALER(A2;-4;0;5;1);3)=5)))

nota: on doit pouvoir faire plus condensé!

Bonsoir,

une proposition de solution avec un fonction personnalisée, que l'on peut utiliser dans la mise en forme conditionnelle

insérer le code suivant dans un module VBA

appeler la fonction

par exemple en B2

=Seriecons(A2)

ou dans une MFC, choisir formule

=Seriecons(A2)=10 et choisir le format pour 10 cellules consécutives

=Serieocns(A2)<10 et choisir le format pour - de 10 cellules consécutives

etc ...

Function seriecons(r As Range)
' r est la cellule de référence

' limite pour le comptage des cellules consécutives
'(de -15 à +15 cellules par rapport à la cellule de référence)
'
limit = 15

' c= compteur de cellules consécutives contenant la valeur de la cellule de référence
c = 1
' boucle pour examiner les cellules au-dessus de la cellule de référence
For i = r.Row - 1 To r.Row - limit Step -1
'si numéro de ligne <1 on sort de la boucle
  If i < 1 Then Exit For
' si on trouve une cellule avce la même valeur que la cellule de référence
' on ajoute 1 au compteur
  If Cells(i, r.Column) = r.Value Then
   c = c + 1
  Else
' sinon on sort de la boucle
   Exit For
  End If
Next i

' boucle pour examiner les cellules en-dessous de la cellule de référence
For i = r.Row + 1 To r.Row + limit
 If Cells(i, r.Column) = r.Value Then c = c + 1 Else Exit For
Next i

' on retourne le nombre de cellules consécutives trouvées dans l'intervalle
' cellule de référence - limit à cellule de référence + limit

seriecons = c
End Function

Bonsoir et merci

@ MaPoire génial, ça a l'air de tres bien marcher.

je vais me debrouiller pour pouvoir augmenter le chiffre de 5 à 10 par exemple.

j'ai une question, si je veux inclure dans ma serie, le zéro, car ( comme c'est pour tester des méthodes sur le jeux de la roulette ) le zéro est considéré perdant donc une serie de 8 trois par exemple peut être constituée d'un ou de plusieurs zéros.

encore merci

@ h2so4

merci pour le code je vais vraiment essayer de comprendre, car j'ai un peu de mal, entre MFC et le code

si j'ai compris c'est une macro associer avec une MFC, je désolé je suis pas très fort

mais encore merci je vais faire l'effort d'essayer de comprendre

Bonsoir,

exemples de MFC avec la fonction personnalisée, appliqués à ton fichier

si serie de 10 en rouge

si série de 5 en jaune

si série >5 en orange

ça à l'air de fonctionner impeccable

je vais essayer de copier mes 87534 boules.

sinon est il possible au dela de 5 numéros consécutif, d'inclure le zero

exemple

[b]3

3

0

3

3

3[/b]

je sais ça complique les choses, mais comme le zéro ne paye pas, mais sinon c'est pas grave encore merci je suis très satisfait, juste essayer de voir si je peux coller mes 87534 boules dans le fichier

encore merci

Bonsoir,

fonction adaptée pour tenir compte du zéro.

le zéro n'interrompt pas la série, mais ne compte pas pour une valeur de la série

3303033 donne une série de 5 et non de 7

c'est génial j'ai pu coller mes boules sans soucis

encore merci, je vais gagner un temps précieux

encore merci je marque résolu


le zéro pose un problème, mais c'est pas grave, je verifierais toutes les séries supérieures à 6/7 de toutes façon

(re) Bonsoir kaizen17, h2so4,

Toujours avec une formule (bien plus courte) en MFC (en autorisant les zéros intercalés):

=NB.SI(INDIRECT("A"&MAX(SI((($A$2:A2<>3)*($A$2:A2<>0))>0;LIGNE($A$2:A2);""))+1&":A"&MIN(SI(((A2:$A$16000<>3)*(A2:$A$16000<>0))>0;LIGNE(A2:$A$16000);""))-1);3)>=5

Pour indiquer le nombre minimum de 3 dans la série, changer en fin de formule >=5 par la valeur souhaitée.

encore un grand merci

beaucoup de temps de gagner

merci

MaPoire a écrit :

Bonsoir kaizen17,

Un essai dans le fichier joint. On colore les séries de chiffres 3 consécutifs (de 5 ou plus éléments). On applique à la colonne A2:A15951 la MFC de formule ci-dessous:

=OU(SI(A2=3;NB.SI(DECALER(A2;0;0;5;1);3)=5);SI(NB($A$2:A2)<1;FAUX;SI(A2=3;NB.SI(DECALER(A2;-1;0;5;1);3)=5));SI(NB($A$2:A2)<2;FAUX;SI(A2=3;NB.SI(DECALER(A2;-2;0;5;1);3)=5));SI(NB($A$2:A2)<3;FAUX;SI(A2=3;NB.SI(DECALER(A2;-3;0;5;1);3)=5));SI(NB($A$2:A2)<4;FAUX;SI(A2=3;NB.SI(DECALER(A2;-4;0;5;1);3)=5)))

nota: on doit pouvoir faire plus condensé!

Bonjour, comment pourrais-je faire pour changer la valeur, je voudrais tester sur 3 ou 4 sans le zéro?

merci par avance

c'est bon je me suis débrouillé

Rechercher des sujets similaires à "colorer serie chiffres consecutif"