Compter les écarts entre les séries de nb

Bonsoir à tous,

J'essaie de calculer les écarts entre chaque série de nombre identique, j'ai bien cherché mais vu mon niveau je n'y arrive pas.

Je ne comprend pas grand chose au code et formule. Pouvez vous m'aider ?

Bien cordialement

Et merci

Bonjour,

Malheureusement ... ta requête reste très obscure ... mêm après plusieurs re-lectures ...

Pourrais-tu expliciter ... et annoter ton fichier ... pour décrire pas à pas ... comment tu pars de tes données de base pour arriver aux décomptes de tes écarts ...

Bonjour,

Une piste pour commencer, une fonction perso qui retourne un tableau donc, tu sélectionnes un nombre de cellules sur une ligne, tu entre la fonction avec ses arguments et tu valides en matricielle :

Function CALCULSERIE(Plage As Range, Valeur As Variant) As Variant()

    Dim Tblserie() As Variant
    Dim I As Integer
    Dim J As Integer
    Dim Debut As String
    Dim Fin As String
    Dim NB As Integer
    Dim Ini As Boolean

    For I = 1 To Plage.Count

        If Plage(1, I).Value = Valeur Then

            NB = NB + 1

            If Plage(1, I).Value = Plage(1, I + 1).Value Then

                If Debut = "" Then Debut = Plage(1, I).Address(0, 0)
                Fin = Plage(1, I + 1).Address(0, 0)
                NB = NB - 1

            Else

                If Debut <> "" And Fin <> "" Then

                    If Ini = True Then

                        J = J + 1
                        ReDim Preserve Tblserie(1 To J)
                        Tblserie(J) = NB - 1

                    End If

                    Debut = ""
                    Fin = ""
                    NB = 0
                    Ini = True

                End If

            End If

        End If

    Next I

    If J = 0 Then

        ReDim Preserve Tblserie(1 To 1)
        Tblserie(1) = "FAUX"

    End If

    CALCULSERIE = Tblserie()

End Function

La fonction appelée dans les cellules avec la recherche des séries de 2 :

=CALCULSERIE($B$1:$AU$1;2)

Si une valeur n'est pas trouvée, FAUX est retourné et si la plage est plus grande que les valeurs retournées par la fonction, #N/A sera inscrit dans les cellules sélectionnées en trop. A adapter !

je regarde un peu plus tard pour le reste

Bonsoir à tous,

James007 voir en feuille 2 les explications colorié en ornage.

Theze j'ai mis en macro votre proposition mais ne sachant pas l'utiliser le résultat affiché est #valeu!

Merci de votre contribution

Bonjour,

Je te poste ton classeur avec la fonction. J'ai rajouté une autre fonction qui retourne le nombre d'éléments que retourne la fonction CALCULSERIE() afin de faire correspondre le nombre de cellules de la matrice avec le nombre d'éléments retournés

Bonjour le forum, Theze,

Super ça marche pour le tableau A, pour la L6 je peux m'accommoder.

Est ce possible de voir pour le tableau B ?

Merci pour cette réponse, je tourne en rond depuis plusieurs jours en cherchant sur le site des discussions similaires,

comme je maitrise peu c'est long.

A+

Bonsoir,

Voici le classeur avec les fonctions perso pour ce que tu demandes, tableau A et B.

Bonsoir,

C'est OK pour cette proposition.

Merci beaucoup

A bientôt

Bonjour,

Après un essai, il m'est impossible de modifier la formule, il est noté "impossible de modifier une partie de matrice".

J'aimerais adapté ce tableau avec une centaine de ligne, je n'y arrive pas.

merci