Macro complexe

Bonjour

Je suis bloqué dans la création d une macro ,je me permets donc de vous demander votre aide.

Explication de ce que je souhaite faire :

Je recherche une macro permettant d extraire plusieurs série de 1 dans une colonne encadré de 0. Faire le cumul de chaque série de 1 puis les placer dans des cellules différentes

Merci d avance

Ps :si besoin je mettrai un fichier plus explicite

Hello,

Oui besoin d'un fichier avec un cas concret.

Mets dans une feuille ton tableau d'origine et dans une seconde le résultat souhaité.

si joint le fichier

Voilà une proposition.

Sans vraiment connaître les fonctions Excel qui feraient le travail de façon plus élégante, voici une solution qu'en tant qu'utilisateur de VB, je ferais...

Public Sub CompterlesUns()
'
Flag1 = 0
For x = 1 To 100
    Flag = 0
    If Range("E" & x).Value = 1 Then
        Flag1 = Flag1 + 1
        For y = x To 100
            If Range("E" & y) = 1 Then
                Flag = Flag + 1
            Else
                x = y
                Range("J1").Offset(Flag1, 0) = Flag
                Exit For
            End If
        Next
    End If
Next
'
End Sub

J'ai essayé sur ta feuille, ça fonctionne nickel.

A+

super merci a vous 2 d3d9x et curulis57 ,c'est exactement ce que je souhaitai

encore merci a vous

Question subsidiaire :

Comment puis-je faire pour faire la même chose mais pour analyser 86401 cellule

Car la cette macro analyse que 25178 cellules

Merci d avance

Hello frayor,

Si tu as utilisé ma macro, il te suffit de remplacer le

Dim ligne as integer

par

Dim ligne as long

PS: Le chiffre que tu avances est un peu étrange, la macro devrait bloquer à la ligne 32767+1.... (La limite d'un Integer étant 32767)

Bonjour d3x9

Super merci problème résolu grâce à toi

En ce qui concerne le nombre de cellule c'est le bon nombre que j ai mis .