ecart maximum

[patrick wargnier]

Bonjour
voila dans la colonne A1 a A100 il y a plein de chiffres 1
et je voudrai une formule dans la cellule B1 qui me renvoye le plus grand ecart entre les 1
merci de votre reponse . je vous joint un fichier comme exemple

 

[Bluenote]

Re : ecart maximum

Bonsoir,

Une proposition ci-joint, avec une colonne intermédiaire (il y a sûrement mieux )

Bonne soirée,

 

[patrick wargnier]

Re : ecart maximum

merci beaucoup, c'etait vraiment ca que je voulais bon week-end a tous

 

[mth]

Re : ecart maximum

bonsoir

sans intérêt puisque la solution a déjà été trouvée, mais juste le fun , un petit code:

Sub test()
Dim compteur1 As Integer
Dim compteur2 As Integer
Dim Cellule As Variant
For i = 1 To 100 'pour aller de la ligne 1 à la ligne 100
    Cellule = Range("A" & i).Value ' Affecte à la variable cellule la valeur de la cellule en cours
        If Cellule <> 1 Then 'si valeur<>1
            Do While Cellule = 0 And Range("A" & i).Row <= 100 'tant que les valeurs sont égales à zéro et que la ligne est <=100
                compteur1 = compteur1 + 1 'le compteur est égal au compteur précédent+1
                i = i + 1 'et on passe à la ligne du dessous
                Cellule = Range("A" & i).Value ' dont on prend la valeur
            Loop
                If compteur2 > compteur1 Then 'on prend le plus grand compteur entre compteur1 qui évolue à chaque boucle, et compteur2
                    compteur2 = compteur2
                    compteur1 = 0
                Else
                    compteur2 = compteur1
                    compteur1 = 0
                End If
        End If
Next i
Range("B1").Value = compteur2 'compteur2 est tjours le plus grand, on le place en B1
End Sub

@ +

mth