écart max

bonjour,

pas sur de comprendre;
mais voilà une fonction qui calcule les distances à l'horizontale .
Supposons que les 1 et les vides sont dns les colonnes B à Z, à partir de la
ligne 2, jusqu'à la ligne 100.
en A2, on met =maDistanceHoriz(B2:Z2)
et on tire la formule vers le bas.
en A1, on met: = max(A2:A100)
c'est donc le maxi des distances sur toutes les lignes.

Salutations

Bourby

Function maDistanceHoriz(maPlageHoriz As Range) As Variant

Dim Précédent As Integer

If maPlageHoriz.Rows.Count <> 1 Then
maDistanceHoriz = "erreur"
Exit Function
End If

For i = 1 To maPlageHoriz.Columns.Count
If maPlageHoriz(i) = 1 Then Exit For
Next i

If i >= maPlageHoriz.Columns.Count Then
maDistanceHoriz = -1 'convention pour les lignes avec 0 ou un seul 1
Exit Function
End If

maDistanceHoriz = 0
Précédent = i

For j = i + 1 To maPlageHoriz.Columns.Count
If maPlageHoriz(j) = 1 Then
If j - Précédent >= maDistanceHoriz Then
maDistanceHoriz = j - Précédent
Précédent = j
End If
End If
Next j

End Function


"raymond.moraux" <raymond.moraux@wanadoo.fr> a écrit dans le message news:
eDsK44JmEHA.3288@TK2MSFTNGP10.phx.gbl...

bonjour,
quelle est la formule à appliquer pour calculer un écart max?
mon tableau comporte des 1 et des cellules vides entre ces chiffres 1;je
désire connaitre le nombre maxi de cellules vides entre deux 1.
merci
1
1 1
1 1 1
1 1
1 1
1 1
1
1 1
1
1
1
1
1 1
1
1 1
1
1
1
1
1
1 1 1
1
1 1
1 1
1