Mon code bloque mes autres macros

Bonjour,

J'ai mis en place ce code qui permet entre autre que le message qui apparait clignote.
Mais lorsque je clique sur le bouton "Oui", les formulaires se ferment bien, mais les autres macros sont bloquées, je ne peux plus aller sur le gestionnaire de macro "Alt + F11".

Pouvez-vous m'indiquer l'erreur que j'ai fait dans ma programmation ?
Je vous en remercie par avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CNon_Click() 'Je clique sur non, le formulaire se ferme Unload Me End Sub   Private Sub CoK_Click() 'Je clique sur oui, les 2 formulaires se ferment Unload Me Unload FrmAdhé End Sub   Private Sub UserForm_Activate() 'clignote Dim a As String a = Timer Do Do Until a + 0.6 <= Timer DoEvents Loop If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True a = Timer Loop End Sub

---

Bonjour,

J'ai testé le code et si tu met un point d'arret sur le "clique oui" tu verras ensuite
que tu ne sorts jamais de la boucle principale :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Activate() 'clignote Dim a As String a = Timer Do ' Boucle principale dont on ne sort jamais ! Do Until a + 0.6 <= Timer DoEvents Loop If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True a = Timer Loop End Sub

---

Bonjour aalex 38,

Je ne comprends pas ce que tu veux me dire. Le code que tu as joint est identique au mien.
Que dois-je faire exactement ?

Excuse moi Nec, je n'ai pas apporté de correction à ton code, je t'ai juste signalé que tu étais dans une boucle infinie.
Je regarde pour une solution

Même s'il doit y avoir plus élégant ceci fonctionne :

Code:

---

1 2 3

If UserForm1.Visible = False Then Exit Sub End If

---

Voila, en espérant que ça t'aide.

Ok aalex 38.
Je cherche également de mon côté. Si un autre internaut connaît une solution, qu'il n'hésite pas. Pour l'instant j'ai supprimé le code de mon appli car c'est vraiement trop bloquant

Bonjour

Je te propose une autre façon de faire.
Dans le module du formulaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CNon_Click() 'Je clique sur non, le formulaire se ferme bBlink = False Unload Me End Sub   Private Sub CoK_Click() 'Je clique sur oui, les 2 formulaires se ferment bBlink = False Unload Me Unload FrmAdhé End Sub   Private Sub UserForm_Activate() bBlink = True Application.OnTime Now + TimeValue("00:00:01"), "subBlink" End Sub

---

Et dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10

Public bBlink As Boolean   Public Sub subBlink() If bBlink Then UserForm1.Label1.Visible = Not (UserForm1.Label1.Visible) Application.OnTime Now + TimeValue("00:00:01"), "subBlink" Else UserForm1.Label1.Visible = True End If End Sub

---

Le clignotement sera plus lent, mais il n'y a plus de boucle d'attente, ce qui est nettement mieux.

PGZ

Citation:

---

Envoyé par aalex_38

Bonjour,

J'ai testé le code et si tu met un point d'arret sur le "clique oui" tu verras ensuite
que tu ne sorts jamais de la boucle principale :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Activate() 'clignote Dim a As String a = Timer Do ' Boucle principale dont on ne sort jamais ! ''CONDITION ICI Do Until a + 0.6 <= Timer DoEvents Loop If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True a = Timer Loop ''OU CONDITION ICI End Sub

---

---

Comme te la stipulé aalex tu à un probleme de boucle si tu regarde bien sur ton premier Do Loop il n'y a aucune condition de sortie de boucle.

Donc tu auras beau continuer tout ça tu ne sortiras jamais :)

Il est en effet important de souligner ces points:
-VB/VBA ça marche comme le C/C++ ou bon nombre de langages: un seul code exécuté à la fois; d'ailleurs si quelqu'un connaît un langage où plusieurs codes peuvent être exécutés en même temps je suis curieux de connaître, car je pense pas que ça existe.
-lorsque l'on a l'impression que plusieurs programmations sont réalisées en même temps (dans les jeux vidéo notamment), en réalité ce n'est que du code linéaire codé en boucle qui s'exécute à très grande vitesse, avec un timer d'attente à la fin de chaque boucle, ce qui donne un rafraichissement de l'écran (ou autre) à peu près constant et donne l'impression que plusieurs codes fonctionnent simultanément
-tu n'as toujours qu'un seul programme géré à la fois par le processeur, et sur le même principe que le jeu vidéo, c'est non pas plusieurs programmes exécutés à la fois, mais chacun l'un après l'autre en utilisant chacun un temps processeur plus ou moins long: quand ton gestionnaire des taches dit que ton programme utilise 1% du processeur, ça veut dire qu'il occupe le processeur au max de ses capacités (il sait faire que du tout ou rien), mais seulement 1% du temps. Si tu as déjà fait un programme lourd, tu auras sans doute remarqué que celui-ci utilisait 100% du processeur (ou de l'un des processeurs si tu as plusieurs coeurs: moi ça me fait 50% vu que j'ai un dual core sur le PC de bureau).

Bref tout ça pour te dire: ne jamais espérer faire fonctionner 2 codes en même temps et un code à la fois. ;)

En l'occurence, ici, le code de pgz se termine après le ontime. Après, comment ça relance une procédure: ça c'est Excel qui gère, et ça ne tient plus du VBA.

Désolé d'avoir sorti un pavé pour expliquer un des principes fondamentaux de la prog, mais bon un peu de culture ça ne peut pas faire de mal. :mrgreen:

Ouah! que de choses apprises. Je suis novice en matière de programmation et je n'en connaît pas toutes les subtilités. J'ai pu m'apercevoir que sur ce site il y a des experts en la matière. Je tatonne et souvent je me plante.

Je vais mettre en place les propositions qui me sont faites. Je vous tiens au courant.

Super ça marche. L'accès aux outils de programmation n'est plus bloquée.
Merci à tous pour votre aide
A+:)