VBA excel : continuer une macro par un click [Résolu]

Réponse 2 / 9

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Option Explicit 
Dim Continue As Boolean 
Sub Attendre() 
   'Le début du code.. 
   '........... 
    While Not Continue 
        DoEvents 
    Wend 
    Continue = False 
   'La suite du code.. 
   '........... 
     
End Sub 

Private Sub CommandButton1_Click() 
    Continue = True 
End Sub

Mais le plus simple serait de mettre la suite du code de la macro dans le code du bouton.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Réponse 3 / 9

vanessa002 Messages postés 11 Date d'inscription Statut Membre Dernière intervention 1

Lermite,

merci là je vois ce que tu veux faire avec ton code. Je pourrai tester ton code sans me poser de question mais c'est plus fort que moi. J'aurai encore 2 petites questions au sujet de ton code :

- Le Doevents sert à quoi? je ne peux pas tout simplement mettre une boucle vide?

- Je suppose que l'instruction 'continue = false' après la boucle while permettera au code d'attendre à nouveau le click de l'utilisateur pour l'encodage de la donnée suivante? (mon code se trouve en fait dans une boucle for et l'utilisateur doit entrer ses données à chaque cycle de la boucle for)

Encore merci pour votre aide, je debute en VBA et en programmation en général.

Réponse 4 / 9

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Bonjour,

Peut-^tre tout simplement avec une msgbox ?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour tout le monde,

Voire même une inputbox si tu dois avoir une saisie.
Ex :
Message = "Entrez une valeur comprise entre 1 et 3"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)

eric

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

vanessa002 Messages postés 11 Date d'inscription Statut Membre Dernière intervention 1

eriiic,

j'ai essayé avec une inputbox mais serait il possible que l'utilisateur puisse taper sa valeur dans une cellule d'excel et que cette valeur soit assignée à une variable en appuyant sur un bonton click?
La macro devrait attendre que l'utilisateur remplisse cette cellule et clique sur le bouton pour reprendre son cours...

merci d'avance

Réponse 6 / 9

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
Avec une boucle conditionnelle ?

Sub Attendre()
   'Le début du code..
   '...........
    While Range("B5") = ""
        DoEvents
    Wend
   'La suite du code..
   '...........
End Sub

A+

Réponse 7 / 9

vanessa002 Messages postés 11 Date d'inscription Statut Membre Dernière intervention 1

Merci eriiic,

j'avais déja essayé avec les userform mais j'ai trouvé cela un peu compliqué.

Lermite,

avec ce code, je sort de la boucle While une fois que la cellule "B5" est remplie par l'utilisateur, pas vrai?
Mais alors serait-il possible de sortir de la boucle que lorsque l'utilisateur clique sur un bouton, après avoir encodé sa valeur dans la cellule "B5"? Ma question devient plus précise parce que je sens qu'on se rapproche du but.

Merci d'avance à vous.

Réponse 8 / 9

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Le DoEvents permet à l'appli de continuer, sans cette fonction Excel est bloquer.

Pour continue = false... C'est excat

Réponse 9 / 9

vanessa002 Messages postés 11 Date d'inscription Statut Membre Dernière intervention 1

Merci à vous pour votre aide.

VBA excel : continuer une macro par un click

9 réponses

Votre réponse

Discussions similaires