calcul écarts à partir de 2 lignes groupées

[JJ1]

Bonjour,
Je souhaite calculer des écarts de numéros (je pense avec la fonction ligne).
Ca ne marche pas .
Je voudrais grouper les 2 dernières lignes du tableau et les comparer avec les lignes précédentes pour calculer les écarts des 14 numéros, puis passer aux 2 lignes au dessus groupées et calculer aussi les écarts et ainsi de suite...
Pas simple.....
je joins un petit exemple de ma recherche.
Merci pour votre aide.
Bon lundi .....je ne défile pas !

 

[JHA]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour JJ1, le forum,

Pas tout compris avec les 2 & 3, mais un essai avec NB.SI().
ou decaler() pour tout mettre sur une ligne.

JHA

 

[JJ1]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour JHA,
pas tout compris non plus dans ton calcul? merci en tout cas pour ton aide
Je cherche une formule qui compte les lignes séparant 2 numéros identiques (écarts), sauf que les lignes pour lesquelles je cherche l'écart sont groupées par 2.
Donc on part du bas du tableau, les 2 dernières lignes sont groupées (comme s'il y avait les 14 numéros sur une ligne unique et on recherche les écarts des 14 numéros), puis on remonte avec les 2 lignes au dessus groupées et on recommence...
je joins un autre exemple explicatif que j'ai fait "à la main"

Je possède une formule mais qui ne fonctionne pas en lignes groupées, uniquement ligne par ligne:
par ex pour l'écart de la cellule A4810:

=(NB.SI($A$1:$G4809;A4810)>0)*SOMMEPROD(LIGNE()-MAX(($A$1:$G4809=A4810)*LIGNE($A$1:$G4809)))-1
(le -1 sert pour avoir 0 si présent dans la ligne au dessus au lieu d'avoir 1)

merci et bon am

 

[Tibo]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour,

Dans ton exemple, les lignes groupées sont les lignes 4783 et 4784.

Sont-ce toujours ces 2 lignes là qui doivent être groupées ?

Pourquoi ton tableau commence en ligne 4775 ?

Bref, c'est sans doute clair dans ta tête, mais mes neurones, en ce 14 juillet, sont à la peine.

A te (re)lire

@+

 

[Pierrot93]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour jj1, jha, Tibo

en attendant les formulistes, un essai par vba, si j'ai bien compris, par contre les derniers résultats sur les premières lignes...

bonne journée
@+

 

[Tibo]

Re : calcul écarts à partir de 2 lignes groupées

re,

Un essai, qui devrait fonctionner avec ton fichier réel (celui avec toutes les lignes complétées) :

en H4783 :

=SI($A4784="";LIGNE()-2-MAX(($A$4770:$G4781=A4783)*LIGNE($A$4770:$A4781));
LIGNE()-1-MAX(($A$4770:$G4782=A4783)*LIGNE($A$4770:$A4782)))

Formule matricielle à valider par CTRL + MAJ + ENTREE

à recopier vers la droite et vers le bas.

La formule étant matricielle et ton fichier comportant un grand nombre de lignes, les temps de calcul risquent d'être longs, voire ... très longs.

Attention, sur la base du fichier joint, la formule retourne des valeurs non souhaitées. C'est parce que le fichier joint n'est pas complet (lignes 1 à 4774 vides)

Si pas ça, reviens avec plus d'explications.

@+

 

[JJ1]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour Tibo,

les lignes groupées vont 2 par 2 en remontant le tableau.
4783-4784 comparées aux lignes précédentes (non groupées, elles)
4781-4782 comparées aux lignes précédentes(non groupées)
etc..
le tableau commence en 4775 car c'est la fin de mon fichier (extrait) pour faire un exemple.
si vous avez une idée ?

Pierrot93, Bonjour et merci pour ta macro, je vais tester.
A +

 

[JJ1]

Re : calcul écarts à partir de 2 lignes groupées

Re,
Voici l'amélioration des écarts dans la macro, le 2ème tirage doit être groupé avec le 1er.
je joins l'exemple.
merci
Bon am

 

[JJ1]

Re : calcul écarts à partir de 2 lignes groupées

Re,
J'ai mis en place ta formule (pa simple !)
elle fonctionne pour les 2 dernières lignes du fichier et quand je copie vers le haut, 1 ligne est systématiquement fausse (le 2ème du paquet) alors qu'en fin de fichier elle est juste??? A ne rien comprendre?
je te joins le copier pour que tu voies.
merci

 

[Tibo]

Re : calcul écarts à partir de 2 lignes groupées

re,

Bonjour Tibo,

les lignes groupées vont 2 par 2 en remontant le tableau.
4783-4784 comparées aux lignes précédentes (non groupées, elles)
4781-4782 comparées aux lignes précédentes(non groupées)
etc..
A +

Bah oui, sans doute évident (pour toi), mais c'eut été mieux de le dire avant.

C'eut été mieux également de mettre un exemple un peu plus complet, car dans ton exemple, tu fais référence à des lignes 11, 23, ... qui ne sont pas présentes dans ton fichier.

Donc, nouvelle formule, basée sur la précédente avec une très légère adaptation. On part du principe (enfin, moi...) que les 2 lignes groupées sont placées :

- pour la 1ère : sur un n° de ligne Excel impair
- pour la 2ème : sur un n° de ligne Excel pair

La formule (en H4775) :

=SI(MOD(LIGNE();2)=0;LIGNE()-2-MAX(($A$4770:$G4773=A4775)*LIGNE($A$4770:$A4773));
LIGNE()-1-MAX(($A$4770:$G4774=A4775)*LIGNE($A$4770:$A4774)))

Formule toujours matricielle donc à valider par CTRL + MAJ + ENTREE

à recopier vers la droite et vers le bas

Même propos que message précédent, l'absence des données (au-dessus de la ligne 4775) génère des résultats incohérents, mais qui devraient disparaître avec le fichier complet.

@+

 

[Pierrot93]

Re : calcul écarts à partir de 2 lignes groupées

Re

Aarf, en fait je viens de m'appercevoir d'un truc, je n'ais pas pris en compte le fait que tu voulais grouper 2 tirages, ci dessous code modifié :

Private Sub CommandButton1_Click()
Dim plage As Range, l As Integer, c As Byte, l2 As Integer, n As Byte, x As Range, i As Byte
Set plage = Range("B2:H" & Range("B65536").End(xlUp).Row)
For l = 1 To plage.Rows.Count - 2 Step 2
    For c = 1 To 7
        For i = 0 To 1
            n = 0
            For l2 = (l + 2) - i To plage.Rows.Count
                Set x = Range(Cells(l2 + 1 + i, 2), Cells(l2 + 1 + i, 8)).Find(plage(l + i, c).Value, , xlValues, xlWhole, , , False)
                If Not x Is Nothing Then
                    plage(l, c).Offset(i, 8).Value = n
                    Exit For
                Else
                    n = n + 1
                End If
            Next l2
        Next i
    Next c
Next l
End Sub

mieux vaut tard que jamais🙄... désolé...

bonne soirée
@+

 

[JJ1]

Re : calcul écarts à partir de 2 lignes groupées

Bonjour, merci Pierrot et Tibo,
Merci à vous, c'est parfait, j'ai enfin un résultat cohérent.
C'est vrai que c'est jamais simple à décrire pour ceux qui vous aident.
Merci en tout cas et bonne journée