Calcul du même nombre à la suite

  • Initiateur de la discussion Initiateur de la discussion Mister G
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour