XL 2021 Le grand écart

bobafric · 20 Septembre 2024

Bonjour à tous
Dans mon exemple, j'ai une colonne avec des nombres de 1 à 10. Je voudrais compter les écarts de chaque nombre de la première à la dernière ligne.
Comme on peut le voir dans mon exemple pour le N°1 le premier écart est 23 le deuxème 9 etc.
Cela est-il possible avec une macro ou autre.
merci d'avance pour votre aide

mapomme · 21 Septembre 2024

Bonjour à tous ,

Grâce à la perspicacité de @sylvanu , la même chose mais avec une formule.

Recopier la formule saisie en C2 vers la droite et vers le bas jusqu'à obtenir des lignes "vides" :

VB:

=SIERREUR(PETITE.VALEUR(SI($A$3:$A$999=C$1;LIGNE($A$3:$A$999));LIGNE($A2))-PETITE.VALEUR(SI($A$3:$A$999=C$1;LIGNE($A$3:$A$999));LIGNE($A1));"")

nota 1 : la formule est matricielle. Elle doit être validée par la combinaison des trois touches Ctrl+Maj+Entrée (au lieu de la seule touche Entrée) sauf pour les dernières versions d'Excel pour lesquelles une validation ordinaire (touche Entrée) suffit.

nota 2 : si la première colonne comprend des valeurs après la cellule A999 alors dans la...

job75 · 20 Septembre 2024

Bonjour bobafric,

Pas compris, chaque écart c'est la différence de quelles valeurs ?

A+

sylvanu · 21 Septembre 2024

Bonsoir Bobafric, Job,
Un peu ( beaucoup ) au pif un essai en PJ avec :

VB:

Sub compter()
[G2:P1000].ClearContents
T = Range("A2:A" & [A1000].End(xlUp).Row)
For u = 1 To 10
    Ligne = 2: Colonne = u + 6: Ecart = 0
    For i = 1 To UBound(T)
        Ecart = Ecart + 1
        If T(i, 1) = u Then
            If Ligne > 2 Then Cells(Ligne, Colonne) = Ecart
            Ecart = 0
            Ligne = Ligne + 1
        End If
    Next i
Next u
End Sub

Mais les résultats semblent cohérent pour 1 mais pas pour 2.

mapomme · 21 Septembre 2024

Bonjour à tous ,

Grâce à la perspicacité de @sylvanu , la même chose mais avec une formule.

Recopier la formule saisie en C2 vers la droite et vers le bas jusqu'à obtenir des lignes "vides" :

VB:

=SIERREUR(PETITE.VALEUR(SI($A$3:$A$999=C$1;LIGNE($A$3:$A$999));LIGNE($A2))-PETITE.VALEUR(SI($A$3:$A$999=C$1;LIGNE($A$3:$A$999));LIGNE($A1));"")

nota 1 : la formule est matricielle. Elle doit être validée par la combinaison des trois touches Ctrl+Maj+Entrée (au lieu de la seule touche Entrée) sauf pour les dernières versions d'Excel pour lesquelles une validation ordinaire (touche Entrée) suffit.

nota 2 : si la première colonne comprend des valeurs après la cellule A999 alors dans la formule augmentez cette valeur 999 (afin d'englober toutes les valeurs de cette colonne).

bobafric · 21 Septembre 2024

Merci les gars trop sympa, Sylvanu tu es un crac c'est pas la 1ère fois que tu m'aides, alors je te dis mille merci et à bientôt. Salut Barbatruc à plus.

XL 2021 Le grand écart

bobafric

XLDnaute Occasionnel

Pièces jointes

mapomme

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

bobafric

XLDnaute Occasionnel

Discussions similaires