Impossible modifier feuille excel quand UserForm ouvert

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:

---

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:

---

1 2 3 4 5 6

Private Sub Cmd_Click_Click()   Pause = 0 Unload Cmd_1   End Sub

---

Bonjour,

Essaie comme ceci

Code:

---

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:

---

1 2 3 4 5 6

Private Sub Cmd_Click_Click()   Pause = False Unload Cmd_1   End Sub

---

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:

---

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+