[VBA] sub en pas a pas ou en execution

Question

bonjour,
je voudrais vous demander si vous saviez pourquoi certaines lignes de code fonctionnent très bien lorsqu'elles sont exécutées en pas à pas et plus lorsqu'elles le sont en exécution normal. j'ai déjà rencontré plusieurs fois ce même problème et je n'en vois vraiment pas la raison, surtout que çà ne semble pas être une erreur de code...
merci

jmf0 · Answer

Bonjour,

Difficile de te répondre sans voir le code incriminé ...
Je dirais (en utilisant mon "renifleur") volontiers qu'il est probalble que ton code nécessite l'utilisation d'un DoEvents ici et/ou là ...
Ouvre ton aide en ligne sur le ,ot DoEvents, pour comprendre ce dont je parle.
..

zipohi · Answer

salut
voilou mon code si çà peut t'aider

Sub legueux_change()

Dim a As Double




If ActiveCell.Column = 6 Then
            a = ActiveCell.Row
            
            
        If ActiveCell.Text = "g" Then
          
            Range("A" & a & ":F" & a).Font.ColorIndex = 3
            Range("G" & a).FormulaR1C1 = "=RC[-2]*RC[-3]-RC[-2]"



         ElseIf ActiveCell.Text = "p" Then
          
            Range("A" & a & ":F" & a).Font.ColorIndex = 4
            Range("G" & a).FormulaR1C1 = "=-RC[-2]"



         Else



            Range("A" & a & ":F" & a).Font.ColorIndex = 6
            Range("G" & a).Value = vbNull



         End If



End If
End Sub

Renfield · Answer

code dangereux...

a voir si ton code n'est pas "recursif", dans une certaine mesure...

si un premier passage de boucle ne déclenche pas de legeux_change

pour detecter, suffirait surement de placer un message de Debug au début :

Sub legeux_change
    Debug..Print Now, ActiveCell.Column, ActiveCell.Row
    ...

[VBA] sub en pas a pas ou en execution

3 réponses

Votre réponse

Discussions similaires