Besoin d'aide

bonjour,

svp je veux un msg box qu'il m'affiche des nombres qui debute et fini par 0 selon un ordre

voila mon fichiers pour b1 comprendre par exmple

pour la colonne A:

1/chercher le nombre 0 // 0->1 du client A au clien B

2/la suite et de chercher dans la colonne A le nombre 1 //alors de A vers B c'est 1->2

3/et ainsi de suite chercher 2 dans A // alors de A vers B c'est 2->0 jusqu'à ce qu'on arrive à 0

MsgBox est: 0->1->1->2->2->0

0->3->3->0

Bonsoir,

une proposition

Dim derlig
Sub zerozero()
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To derlig
If Cells(i, 1) = 0 Then
s = "0->" & suivant(Cells(i, 2))
MsgBox s
End If
Next i
End Sub

Function suivant(k)
For i = 2 To derlig
 If Cells(i, 1) = k Then
 s = s & k & "->" & k & "->"
 If Cells(i, 2) = 0 Then suivant = s & 0: Exit Function
 suivant = s & suivant(Cells(i, 2))
 Exit Function
 End If
 Next i
 suivant = k & " non trouvé en colonne 1"
End Function

merci bcp ça marche trés b1