Discussion :

[alexano211]

Bonjour à tous

Problème sur VBA

J'ai crée un macro VBA qui crée 12 onglets (pour 12 mois) chaque onglet contient les jours des mois (avec la mis en forme des weekend en remplissage gris et les jours fériers en rouge etc.)

For mois = 1 to 12
' Traitement mois par mois
Next mois

Le problème :
Sans que je met le point d'arrêt (débogage F8) quand j'exécute le programme il s'arrêt à ( Sheets("Juin").activate)
C'était comme quelqu'un qui a mis le point d'arrêt ici
Il y a aucune erreur mais une fois je tappe sur F5 ça continue et aucun problème
mais le souci c'est mes responsables ne sont pas des développeurs et quand ça s'arrête il ferme le fichier il comprenne pas etc...

Est-ce que quelqu'un sait pourquoi cela arrive à mon programme?
J'ai essayé même de fermer et ouvrir le fichier mais c'est la même chose (uniquement sur le mois de Juin il s'arrête )

Je vous remercie d'avance,

[Invité]

Bonjour,

Sans voir votre code, difficile de vous répondre.

[alexano211]

Ce bout de code est copié 12 fois sauf que le mois que change


' Boucle : pour mettre les dates des jours de mois sélectionné
For i = 1 To m_rep_mois(1, 2) - 1
Cells(i + 4, 1) = DateAdd("d", 1, Cells(i + 3, 1))
Next i

' Boucle pour le mois sélectionné de 1jour jusqu'au dernier jour
For i = 1 To m_rep_mois(1, 2)
rep = (Cells(i + 3, 1))

If Weekday(rep) = vbSaturday Or Weekday(rep) = vbSunday Then
Call ligne_couleur(i + 3) ' Si c'est Samedi ou dimanche alors la ligne entière sera rempli par une couleur précise
End If

If rep = jour_ferie(1) Then
Call rouge(i + 3) ' Si c'est jour férier alors remplissage en rouge
End If

If Cells(rep, 1).Interior.ColorIndex <> 48 Then
Call exception(rep, i + 3) ' Pour certain salarié qui ne travaillent pas les mercredis (mettre en différent couleur)
End If
Next i

supprimer_les_erreur ("Janvier") ' Supprimer s'il y a des erreur des courleurs qui ne sont pas à leur place (comme les weekend en gris, jour férier en rouge, et mercredi autre couleur)

[Invité]

Pourquoi ne donnez-vous pas l'ensemble de vos procédures ?

[joe.levrai]

Bonjour,

quand la procédure s'arrête, as-tu un message d'erreur de type "Execution interrompue" ou tu arrives directement en mode débogage sur la ligne qui est surlignée en jaune ?

tu as peut être un point d'arrêt fantôme, essaye de tous les effacer
Menu debogage >> Effacer tous les points d'arrêt

[alexano211]

Merci Joe levrai
c'était ça le problème je crois
là il est opérationnel sans arrêt

C'est résolu
bonne journée à tous