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 |
Partager