Discussion :

[botterc]

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 :

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

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 :

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

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

@+

[zyhack]

bonjour

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

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.

[botterc]

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 :

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

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)