Discussion :

[jerem7w]

Bonjour,

je mets une macro en pause en ouvrant un UserForm en Modal 0 pour pouvoir modifier manuellement le contenu de ma feuille Excel.
Lorsque c'est terminé, un click dans un le UserForm relance la macro.

Ce qui cloche, c'est que je ne peux pas modifier la feuille alors que le UserForm est ouvert. Je peux cliquer dans les cellules, mais rien ajouter/supprimer.

voici les codes. merci

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
 
Public Pause As String
 
Sub user_form_pause()
 
Pause = 1
 
Cmd_1.Show 0
 
Do While Pause = 1
 
DoEvents 'ici je fais les modifs que souhaite dans la feuille excel. C'est ici que ça coince, le sablier se met en route et ne s'arrête que lorsque je clique sur mon UserForm. La modif n'est pas faite.
 
Loop
 
 
End Sub

Une fois les modifs terminé, je clique sur OK de mon userform.

Code :

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

1
2
3
4
5
6
Private Sub Cmd_Click_Click()
 
Pause = 0
Unload Cmd_1
 
End Sub

[fring]

Bonjour,

Essaie comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Pause As Boolean
 
Sub user_form_pause()
 
Pause = True
 
Cmd_1.Show 0
 
Do While Pause = True
 
DoEvents 'ici je fais les modifs que souhaite dans la feuille excel. C'est ici que ça coince, le sablier se met en route et ne s'arrête que lorsque je clique sur mon UserForm. La modif n'est pas faite.
 
Loop

Code :

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

1
2
3
4
5
6
Private Sub Cmd_Click_Click()
 
Pause = False
Unload Cmd_1
 
End Sub

[jerem7w]

Salut Fring,

j'ai essayé ta proposition, mais cela n'a tien changé.

par contre j'ai remarqué en faisant du mode pas à pas que je pouvais bien modifier ma feuille excel !
J'ai donc décidé de placer un temps de pause avant d'entrer dans la boucle. Et cela fonctionne bien mais je ne sais pas pourquoi.

voici le 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
Sub user_form_pause()
 
Pause = True
 
 
 
Cmd_1.Show 0
'petite pause d'une seconde avant d'entrer dans la boucle afin d'avoir la main sur le fichier Excel.
Application.Wait (Now + TimeValue("0:00:01"))
 
Do While Pause = True
 
DoEvents
Loop
 
End Sub

merci A+