Macro qui ne s'exécute pas
Bonjour
Lorsque j'exécute une macro à l'aide d'un bouton, une fenête affiche: Impossible d'executer le code en mode arret
Merci de me supporter
Bonjour Bigari, bonjour le forum,
Bah, on en a supporté des pires !...
Si tu as ce message, cela signifie que ta macro a planté ou que tu a mis un point d'arrêt quelque part dans ton code. Va dans VBE (Visual Basic Editor) tu verras qu'une ligne jaune est soulignée. Soit elle contient une erreur qu'il te faut corriger, soit elle contient un point d'arrêt qu'il te faut supprimer...
Bonjour,
Quand vous avez la macro affichée dans l'éditeur VBA cliquez sur le carré bleu dans la zone des menus en haut de l'écran
Bonjour bigari,
Peux-tu joindre le fichier incriminé?
As-tu ajouté un point d'arrêt dans ton programme? L'utilisation de certains objets et/ou fonctions est incompatible avec les points d'arrêt. (Par exemple le Schedule).
Voici le code
Sub debut()
Application.OnTime Now + TimeValue("01:00:00"), "transfert"
End Sub
Sub transfert()
y = Hour(Now)
If y = 0 Then y = 24
x = 1
For n = 65 To 121
If Application.WorksheetFunction.IsNumber(Sheets(2).Range("Q" & n)) Then
x = x + 1
Sheets(5).Cells(x, y + 2) = Sheets(2).Range("Q" & n)
End If
Next n
debut
End Sub
Lorsque je fais F8...
If Application.WorksheetFunction.IsNumber(Sheets(2).Range("Q" & n)) Then
S'emboite en jaune normalemant.
En faisant à nouveau F8 La flèche jaune saute par dessus les deux lignes suivantes:
x = x + 1
Sheets(5).Cells(x, y + 2) = Sheets(2).Range("Q" & n)
Et s'arrete sur:
End if
Si tu ne rentres pas dans ta boucle c'est que ta condition n'est pas remplie.
De plus le message d'erreur vient de
Application.OnTime Now + TimeValue("01:00:00"), "transfert"qui n'est rien d'autre qu'un événement planifié. Ce évènement ne peut PAS fonctionner en mode pas à pas (ou en point d'arrêt).
PS: pour la syntaxe du delta de temps, je trouve la commande
Now +timeSerial(nbHeures,nbMinutes,nbSecondes)beaucoup plus propre et malléable.