Discussion :

[linkcr15]

Bonjour a tous!

Voila j'aimerais interrompre l’exécution de mon code sous certaine condition pour afficher un UserForm qui permet à l'utilisateur de choisir une date pour la rajouter dans un tableau. Une fois que l'utilisateur à choisit sa date et que la macro d'ajout est terminée, je souhaite reprendre mon code là où je m'étais arrêté.

Est-ce que cela est possible svp?

[jfontaine]

Bonjour,

Est-ce que cela est possible svp?

oui c'est possible

Mais était-ce vraiment ça la question ?

[linkcr15]

Mais était-ce vraiment ça la question ?

Non, et voici la question sous-entendue :
Comment on fait?

Je pensais pas à avoir à la développer mais bon...

[jackborogar]

Peut-être peux tu nous envoyé ton code, sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub attente 
 
UserFormPause.show 
do while ValPause = 1 
doevents 
loop 
 
exit sub

[linkcr15]

Et bien en fait je n'ai pas de code pour le moment, seulement un If sans corps à l'intérieur.

Tu peux me dire à quoi correspond ton ValPose stp?

[jfontaine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If macondition
 
    MaUseformDate.Show      
 
end if

L'appel de la userform bloquera le code jusqu'a la sortie de cette dernière

[linkcr15]

jfontaine, l'appel au UserForm ne bloque pas le code, le UserForm s'affiche mais le code continue de s'éxécuter.

jackborogar m'a donné la bonne solution, il fallait juste trouvé la condition pour le loop et pour moi c'était la visibilité du UserForm, ainsi voici mon code final :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If possible = False Then
    Usr_Creer.Show 0
    Do While Usr_Creer.Visible = True
    DoEvents
    Loop
End If

Merci à vous deux pour votre aide

[jfontaine]

Je suis désolé de te contredire, mais l'ouverture d'un USEFORM en non modal (par défaut en VBA) bloque le code jusqu'a fermeture de a userform

Le code ci dessous affichera le message "coucou" à la fermeture de Userform1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
UserForm1.Show ou Userform1.Show 1
MsgBox "coucou"

par contre en ouverture modal, le code continue son exécution et affichera la userform & le message "coucou"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
UserForm1.Show 0
MsgBox "coucou"

[linkcr15]

J'ai pas testé en non modal, désolé, c'est l'habitude.

[jfontaine]

J'ai pas testé en non modal, désolé, c'est l'habitude.

[linkcr15]

Un nouveau problème a été détecté aujourd'hui!

L'UserForm s'affiche bien, que ce soit en modal ou non est effectue bien ce que je veux en laissant le premier code en pause.
Le problème survient quand l'utilisateur clique sur la croix rouge en haut a droite du UserForm. Là il faudrait que tout le code s'arrête, cependant le code du UserForm s'arrête bien mais pas mon premier code qui lui se déroule une fois que mon UserForm n'est plus visible.
Je dois changer ma conditionnelle pour mon code, mais je ne vois pas comment la changer... Faudrait-il détecter le click sur la croix rouge?

Est-ce que quelqu'un peut m'aider svp?

[jfontaine]

Bonjour,

Tu peux gérer cela sur l'évènement QueryClose

Ici on test si la textbox1 est vide. Si c'est le cas, on empêche la sortie en affectant la valeur 1 à la variable Cancel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1.Text = "" Then Cancel = 1
End Sub

[linkcr15]

Le problème est que j'ai déjà mis une valeur par défaut dans le textbox (DTPicker chez moi mais le principe est le même ^^)
J'ai trouvé une solution, pas optimale mais bon.
Donc j'arrive bien mon programme, et juste en dessous, je vérifie qu'une nouvelle date a été ajoutée, sinon j'exit sub.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If possible = False Then
    Usr_Creer.Show 0
    Do While Usr_Creer.Visible = True
    DoEvents
    Loop
End If
 
'On vérifie qu'une nouvelle réunion a été créée, sinon on stop le programme
For compteur = ligne + 1 To 20000
 
    If Sheets("Compte rendu").Cells(compteur, 1).Interior.ColorIndex = xlNone Then
        If Sheets("Compte rendu").Cells(compteur, 1) = "" Then
            Exit Sub
        End If
        Exit For
    End If
 
Next compteur

Si quelqu'un à mieux, je suis preneur

[jfontaine]

En adaptant le queryclose en gérant une variable IntFermeture qui pilotera la fermeture

Si on clic sur la croix de fermeture rien ne se passe.
Il faut passer par le Bouton "cmdQuitter" pour pouvoir sortir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim IntFermeture As Integer
 
Private Sub UserForm_Initialize()
IntFermeture = 1
End Sub
 
Private Sub cmdQuitter_Click()
IntFermeture = 0
Unload Me
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = IntFermeture
End Sub

[linkcr15]

Oui j'ai pensé faire un bouton pour quitter et interdire l’accès à la croix rouge mais bon, je préfère limite refaire une boucle For.
Je suis une feignasse je sais
Merci à vous tous en tout cas pour votre aide et votre temps!