Voila imaginons que dans une feuille excel, j'ai (de facon verticale):
2
3
0
0
5
4
0
7
8
41
0
0
0
0
0
5
2
0
0
0
4
...

j'aimerais que excel me sorte le nombre 5 correspondant a la suite de 0 la plus longue (ici 5 "0" a coté)

j'ai cherché dans les formules mais je ne trouve pas...

merci d'avance

Hello.
J'ai jamais travailler sur Excel avec Vb donc comment tu récupères les données... j'en sais franchement rien... mais bon après pour la logique tu fais quelque chose du genre :

MonTableau() as Integer 'C'est un tableau d'entier avec tous tes nombres 2,3,0...là c'est à toi de le remplir je connais pas Excel...

Private Function Calcul (MonTableau() as  Integer) as Integer
Dim i as Integer
Dim NbMaxElementDuTableau as Integer
Dim LaPlusGrandeSuite as Integer
Dim MaSuite as Integer
'Initialisation
NbMaxElementDuTableau = ??? 'à toi de le dire!!!
LaPlusGrandeSuite = 0
MaSuite = 0

'Détermination
For i=0 to NbMaxElementDuTableau - 1
   If MonTableau(i) = 0 then
      MaSuite = MaSuite + 1
   Else
      If MonTableau(i-1) = 0 Then
         If MaSuite > LaPlusGrandeSuite then
            LaPlusGrandeSuite = MaSuite 
            MaSuite = 0
         End If
      End If
   End If
Next

'Restitution
Calcul = LaPlusGrandeSuite

End sub

J'ai pas testé mais je pense que ça doit fonctionner.
@+

Bonjour,

Il te faute créer une macro specifique.

Créé un bouton sur la feuille concernée et associe la macro suivante :

Private Sub CommandButton1_Click()
NbzeroMax = 0
ValMem = ""

For ligne = 1 To 100000
k = Cells(ligne, 1)

If k = 0 Then
NbzeroMax = NbzeroMax + 1
If Cells(ligne + 1, 1) <> 0 And (NbzeroMax > ZeroMem) Then
ValMem = Cells(ligne + 1, 1)
ZeroMem = NbzeroMax
NbzeroMax = 0
ligne = ligne + 1
End If
End If

If Cells(ligne + 1, 1) = "" Then
ligne = 100000
End If
Next

m = MsgBox(ValMem, vbOKOnly)

End Sub

Oups...j'viens d'voire une erreur... sorry...
à la ligne  "If MonTableau(i-1) = 0 Then " si i=0 (c'est à dire que le premier élément de ton tableau  n'est pas un 0) alors y a une erreur  ça fera ""If MonTableau(-1) = 0 Then " et c'est pas posiible... donc il faut que tu test "If  i<>0 Then alors tu continu sinon tu passe.

encore désolé...