Mon code s'arrête sans raison
Bonjour,
J'ai un problème que je comprend pas, mon code s'arrête
tout seul, sans afficher de message de bug et sans que j'ai mit
de points d'arrêt, quelqu'un pourrait il m'aider s'il vous plait, merci
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Function dhaut(ByVal elem As Variant, _
ByVal col As Long, ByVal ldeb As Long, ByVal lfin As Long)
Dim i As Long: i = ldeb
Do
If elem < Cells(i, col).Value Then
Cells(i - 1, col).Value = elem: Exit Function
End If
Cells(i - 1, col).Value = Cells(i, col).Value" ' c'est à cette ligne qu'il s'arrête tout seul sans afficher de bug, ni de boite de dialogue, il arrête juste l'exécution comme s'il y'avait un point d'arrêt, alors qu'il n'y en pas"
i = i + 1
If i > lfin Then
Cells(lfin, col).Value = elem
Exit Function
End If
Loop
End Function |
