Mettre une pause en VB

Bonjour,

J'ai 3 graphes sur une feuille. La macro s'exécute et affiche une boite de dialogue en demandant de sélectionner un des graphes. En fait, cette UserForm fait une pause en attendant qu'un des graphes soie sélectionné :

Dans ma UserForm1, je mets le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Activate() Dim ChrtSelect As Chart Set ChrtSelect = ActiveChart Do While (Worksheets(ActiveSheet.Name).Cells(1, 1).Value = "") Set ChrtSelect = ActiveChart If Not ChrtSelect Is Nothing Then Worksheets(ActiveSheet.Name).Cells(1, 1).Value = ActiveChart.Parent.Name End If Loop UserForm1.Hide End Sub

---

Et dans mon module je mets le code suivant :

Code:

---

UserForm1.show False 'Affichage non modal

---

Mais ça ne fonctionne pas. L'affichage non modal fait continuer le code et ne rentre pas dans la boucle d'attente de sélection graphique...

J'ai trouvé un post dans le forum disant qu'il faut utiliser un autre userform mais je n'ai pas compris le truc...

Merci pour votre aide

@+

bonjour

au premier coup d'oeil je ne vois pas mais ...

Citation:

---

J'ai trouvé un post dans le forum disant qu'il faut utiliser un autre userform mais je n'ai pas compris le truc...

---

Si tu pouvais mettre un lien vers ce post ça nous aiderais à t'aider.

Un pote m'a filé ce code... Il suffisait de rajouter un Doevents dans ma boucle. Cela évite que la boucle tourne à l'infini...

Code:

---

1 2 3 4 5 6 7 8 9

Dim ChrtSelect As Chart Set ChrtSelect = ActiveChart   MsgBox "Sélectionnez un graphe"   Do DoEvents Set ChrtSelect = ActiveChart Loop Until (Not ChrtSelect Is Nothing)

---