Statistiques sur cellules de couleur

Bonjour

je ne suis pas certain que le titre soit très clair mais j'ai pas trouvé mieux et en recherchant sur le forum je n'ai pas trouvé la réponse à ma question qui est la suivante :

j'ai créée un fichier excel avec des cases formatées qui changent de couleur en fonction d'une valeur, rien de bien compliqué

j'aimerais avoir des statistiques sur mes colonnes comme par exemple :

• le plus grande nombre de cellules rouges à la suite (si queuql'un peut répondre juste à ça ce serait déjà génial )
• le nombre de fois où cette suite est apparue
• les autres suites et leurs récurrences

pour que ce soit bien clair imaginons ma colonne avec des x et des o (je fais des lignes mais ce sont des colonnes hein )

xxxxxoooxxoxoxooooxxxxxxxooooxoxoxooooooooxxxxxxxxxxxoxoxooooooxooxooxxxxxooo

• le plus grand nombre de X à la suite (ici 12 )
• le plus grand nombre de O à la suite (ici 8 )
• combien de fois ces suites sont apparues ( celle de 12 = 1 fois celle de 8 = une fois )
• les autres suites ( 1/2/3/4 etc )
• combien de fois elles sont apparues (ex: suite de 1o est apparue 6 fois dans la liste )

voilà j'espère que tout est clair et si je dois clarifier par de problème merci d'avance pour votre aide

Bonjour,

Problème récurrent : il faut apprendre une bonne fois qu'un format conditionnel n'est le format de la cellule, les couleurs que l'on voit ne sont pas celles des cellules. On ne peut donc tester les cellules sur ces couleurs qu'elles n'ont pas.

Il faut donc revoir ton objectif pour tester sur les conditions qui générent ces couleurs par MFC.

Cordialement.

bonjour,

une proposition basée sur la condition de la mise en forme conditionnelle

Sub aargh()
    Dim seq(100, 1)
    dl = Cells(Rows.Count, 1).End(xlUp).row
    For i = 2 To dl + 1
        If Cells(i, "D") > Cells(i, "G") Then
            c = c + 1
        Else
            If c > 0 Then
                seq(c, 1) = seq(c, 1) + 1
                If c > Max Then Max = c
                c = 0
            End If
        End If
    Next i
    k = 1
    'affichage resultat
    Cells(k, "M") = "longueur"
    Cells(k, "N") = "nombre"
    For i = Max To 1 Step -1
        k = k + 1
        Cells(k, "M") = i
        Cells(k, "N") = seq(i, 1)
    Next i
End Sub

merci pour vos réponses

qu'est-ce que je fais du code ?? je le place dans une cellule tout en bas ??

pour activer le code

sélectionner le code sur le forum

le copier avec CTRL-C

aller dans excel

faire ALT-F11 (ceci active l'éditeur VBA)

choisir menu,> insérer>module

coller le code avec CTRL-C

faire alt-F11 pour revenir à excel

à partir de ce moment la macro aargh est disponible.

lancer la macro par ALT-F8

un grand merci h2so4 j'vais essayer ça tout de suite

bon alors euhhhh j'ai cherché sur excel starter pas moyen de trouver c'est possible de rajouter du code ?? sur leur site ils disent que non

bon j'ai open office j'ai trouvé où rentrer la macro mais là problème il me donne une erreur "erreur d'exéuction du basic variable d'objet non définie " ...

Bonjour,

en effet excel starter ne permet pas les macros et la macro n'est pas conçue pour fonctionner avec open office, il faudra travailler sans macro.

solution sans macro

merci t'es trop fort