Module qui compte les écarts maxi

Bonjour,

J'ai un module qui compte l'écart maxi rencontrer dans une colonne,

exemple: 1.2 - "" "" "" 1.5 "" "" "" "" 2 "" "" 2.5

dans cet exemple l'écart maxi est de 4. jusque là tout va bien.

Le probléme c'est lorsque j'utilise les Filtres..

le résultat ne change pas et c'est là que je séche complétement.

Voici le code:

Function ecartmax(Tableau As Range)

nbvide = 0

For Each i In Tableau

If i.Value = "" Then

nbvide = nbvide + 1

Else

If nbvide > ecartmax Then

ecartmax = nbvide

End If

nbvide = 0

End If

Next i

End Function

Comment faire pour que le resultat se fasse aussi en fonction des filtres??

Merci d'avance

Bonjour,

Une proposition, en vérifiant si la ligne de la cellule en cours n'est pas masquée :

Function ecartmax(Tableau As Range)
    Dim nbvide As Integer
    Dim i As Variant
    nbvide = 0
    For Each i In Tableau
        If Rows(i.Row).Hidden = False Then
            If i.Value = "" Then
                nbvide = nbvide + 1
            Else
                If nbvide > ecartmax Then
                    ecartmax = nbvide
                End If
                nbvide = 0
            End If
        End If
    Next i
End Function

C'est Parfait, le code marche nickel!

je suis trop content, Merci beaucoup!!