Calcul du même nombre à la suite

Mister G

XLDnaute Nouveau
Bonjour à toutes et tous,

J'aurais besoin de votre aide concernant un calcul sur Excel.

En fait, j'ai créé une fonction SI et mis la valeur 1 pour VRAI et 0 pour FAUX. Il y a donc des 1 et des 0 à la suite sur 200 colonnes.
Je tente de calculer la plus haute nombre de fois que les 0 se suivent et les 1 se suivent. Je fais ça manuellement et ça me prend beaucoup de temps. Il y a-t-il moyen de faciliter cette exercice?
Par exemple, dans la colonne ci-bas la plus haute nombre de fois que les 0 se suivent et les 1 se suivent sont de 4 pour le 0 et 3 pour le 1.
1
0
0
0
0
1
1
1
0
0
etc.

Merci d'avance!
Bien à vous,

Mister G
 

Pièces jointes

  • Example 1 et 0.xlsx
    11.4 KB · Affichages: 8
Dernière édition:

laurent3372

XLDnaute Impliqué
Supporter XLD
Voici une solution avec une macro (je ne vois pas comment faire uniquement avec des formules).
VB:
Sub majColonnes()
    Dim col As Range, c As Range
    Dim v As Byte, vold As Byte
    Dim nb(0 To 1) As Byte
    Dim max(0 To 1) As Byte
    max(0) = 0: max(1) = 0
    For Each col In ActiveSheet.UsedRange.Columns
        For Each c In col.Cells
            If c.Value = "" Then Exit For
            If c.Row = 1 Then
                vold = c.Offset(1, 0).Value
            Else
                v = c.Value
                If v = vold Then
                    nb(v) = nb(v) + 1
                Else
                    nb(v) = 1
                    If nb(vold) > max(vold) Then max(vold) = nb(vold)
                    nb(vold) = 0
                End If
                vold = v
            End If
        Next c
    col.Cells(1) = "max. 0 : " & max(0) & vbCrLf & "max. 1 : " & max(1)
    Next col
End Sub
Je ne savais pas comment présenter les résultats, alors je les fournis sous forme de texte en haut de chaque colonne.

HTH,
--
LR
 

Pièces jointes

  • Example 1 et 0 V1.0.xlsm
    23.8 KB · Affichages: 7

excfl

XLDnaute Barbatruc
Bonjour le forum,

Max nombre de 1 successifs :

VB:
=MAX(FREQUENCE(SI(A2:A149=1;LIGNE(A2:A149));SI(A2:A149=0;LIGNE(A2:A149))))
1 successifs.png
 

frederio

XLDnaute Impliqué
bonjour a tous

j ai n'a pas trouve chercher
vous connais comment faire nombre un fois sur domicile et extérieur Si tu veux être d’accord avec moi ???
vous m’aidez a expliqué comme Excel Merci
 

Pièces jointes

  • nombrev1.xlsm
    848.1 KB · Affichages: 17

Statistiques des forums

Discussions
312 103
Messages
2 085 311
Membres
102 860
dernier inscrit
fredo67