Discussion :

[michel.amoakon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonsoir.

Il est pas trop beau ce code!

Tu as écrit une fonction qui ne renvoie rien. Pourquoi pas une procédure sub?
Tu fais une boucle Do Loop avec un compteur de ldeb à lfin. Pourquoi pas une boucle For ... Next?
Tu t'adresses directement aux cellules de la feuille active. Il serait plus propre d'avoir une instance de la feuille de calcul et de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oSh.Cells(...)

Ton code n'est pas indenté (mais c'est peut-être parce que tu as omis les balises de code.
Quelles sont les valeurs des arguments quand tu as le pb?

Voilà. Tu peux faire ce ménage. Si ça ne donne rien, tu pourras joindre un classeur simplifié pour illustrer le pb.


Cordialement,

PGZ

[michel.amoakon]

j'ai déjà essayé ce dont tu parles, mais ça ne marche toujours pas, je vois vraiment pas d'où vient le problème. il n’y a pas de bug, mais il s'arrête tout seul à cette ligne, ci joint un fichier, avec la fonction.

Merci de votre aide.

[pgz]

Bonsoir.

Tu as écris une fonction qui ne renvoie rien, et tu l'appelles d'une cellule de feuille. Ce n'est pas bien.

En plus cette fonction fait des écritures dans des cellules de la feuille, ce qui n'est pas autorisé dans Excel : une fonction appelée dans une formule de cellule ne peut pas modifier d'autres cellules. Le code s'arrête à la première tentative d'écriture.

Je ne sais pas exactement ce que tu veux faire mais comme cela ce n'est pas possible.

Tu expliques ce que tu cherches à faire et on cherchera une méthode.

Cordialement,

PGZ