XL 2016 Formule calcul

djam28 · 10 Mai 2021

Bonjour à tous,
Je sollicite vos connaissances pour résoudre un petit problème sur excel. J'ai un fichier (ci-joint avec les explications) avec 3 colonnes: temps , DC (binaire 1/0) et une colonne censure où je voudrais mettre une formule qui compte le total des 0 entre entre chaque 1 de la colonne DC (voir les explications sur le fichier ).
Je vous remercie de ce que vous ferez

DE

sylvanu · 10 Mai 2021

Bonjour Djam,
Un essai en PJ avec une fonction perso :

VB:

Function NB0(Ligne%)
    If Cells(Ligne, 2) = 0 Then NB0 = "": Exit Function
    If Ligne = 2 And Cells(Ligne, 2) = 1 Then NB0 = 0: Exit Function
    For L = Ligne - 1 To 1 Step -1
        If Cells(L, 2) = 1 Then Exit Function
        NB0 = NB0 + 1
    Next L
End Function

La syntaxe est =NB0(LIGNE())
Dans la PJ la formule est utilisée colonne 7.
A noter certaines erreurs ( colonne 10 ) mais après recomptage, j'ai bien peur que cela soit dans vos résultats et non les miens.

djam28 · 10 Mai 2021

Bonjour Sylvanu,
Mille mercis , au top. Une dernière requête, mon vrai tableau ne commence pas à la première ligne et la colonne cible (DC) est différente, peux-tu adapter la macro, je suis vraiment nul, je t'en serai reconnaissant!!
Meci+++

Phil69970 · 10 Mai 2021

Bonjour @djam28, Sylvain

Je te propose une variante en VBA

@Phil69970

djam28 · 10 Mai 2021

Bonjour Phil69970,
Merci pour cette proposition mais la solution Sylvanu est plus appropriée aux données que je voudrais traiter
Merci en tout cas. J’attends le retour de Sylvanu
Bonne soirée à vous tous

sylvanu · 10 Mai 2021

Re le fil,
Si le tableau peut être n'importe où alors il faut lui préciser où il commence.
Un ex avec :

VB:

Function NB0(Ligne%, Colonne%, LigneDébut%)
    Application.Volatile
    If Cells(Ligne, Colonne - 1) = 0 Then NB0 = "": Exit Function
    If Cells(Ligne, Colonne - 1) = 1 And Cells(Ligne - 1, Colonne) = "Censure" Then NB0 = 0: Exit Function
    For L = Ligne - 1 To LigneDébut + 1 Step -1
        If Cells(L, Colonne - 1) = 1 Then Exit Function
        NB0 = NB0 + 1
    Next L
End Function

djam28 · 10 Mai 2021

Merci bcp Sylvanu, nickel!

djam28 · 10 Mai 2021

Phil69970 à dit:
Bonjour @djam28, Sylvain

Je te propose une variante en VBA

@Phil69970

Bonsoir Phil,
Je voudrais reprendre ta suggestion, avec comme critère le compte des 0 entre les 1 et non le nombre des lignes , ci joint l'exemple. (en rouge le résultat attendu) ..si c'est possible en formule ou sinon en VBA macro
Merci beaucoup
DE

Phil69970 · 11 Mai 2021

Re le fil

Voici le fichier modifié :

Comme il y a une erreur en "J18" et en "J23" j'ai mis les résultats dans la colonne L

@Phil69970

djam28 · 11 Mai 2021

Super! Un grand merci Phil

djam28 · 11 Mai 2021

Phil69970 à dit:
Re le fil

Voici le fichier modifié :

Comme il y a une erreur en "J18" et en "J23" j'ai mis les résultats dans la colonne L

@Phil69970

Bonsoir Phil,
Désolé de vous déranger à nouveau, votre stratégie répond à mes attentes. Cela étant, j'ai changé ma façon de faire et je voudrais apporter un petit changement à ta macro. Je voudrais faire la somme de la colonne rouge entre chaque 1 (en jaune). J'ai mis un exemple plus parlant. MERCI INFINIMENT

Phil69970 · 12 Mai 2021

Re le fil

Voici le fichier modifié :

djam28 à dit:
Cela étant, j'ai changé ma façon de faire et je voudrais apporter un petit changement à ta macro

*Il serait bon de ne pas changer tout le temps mais de réfléchir à la manière de concevoir votre fichier

@Phil69970

djam28 · 12 Mai 2021

Merci beaucoup Chef. Très bonne journée

XL 2016 Formule calcul

djam28

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

djam28

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

djam28

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

djam28

XLDnaute Occasionnel

djam28

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

djam28

XLDnaute Occasionnel

djam28

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

djam28

XLDnaute Occasionnel

Discussions similaires