Discussion :

[Baldurr]

Rebonjour tout le monde,

J'ai fait une petite macro et j'ai un problème :

1 - C'est un QCM. L'utilisateur choisit une réponse parmi celles proposées en cliquant dessus. Dans la cellule apparaît sa réponse puis un commentaire et, dans une autre cellule, une définition. Voici ma macro pour vous éclairer :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ier()
w = WorksheetFunction.CountBlank(Range("c11:c619"))
If w = 0 Then Exit Sub
    ligne = ActiveCell.Row
    soluce = Worksheets("solutions").Cells(ligne, 6).Value
    ActiveCell.FormulaR1C1 = "IER"
    ActiveCell.AddComment
    With ActiveCell.Comment.Shape
        .Width = 64 'Largeur commentaire
        .Height = 14 'Hauteur
        .OLEFormat.Object.Font.Size = 11 'Taille du texte
       ' .OLEFormat.Object.Interior.Color = RGB(Worksheets("solutions").Cells(ligne, 6).Value)
 'Couleur de fond
        .TextFrame.Characters.Font.ColorIndex = 1 'Couleur de la police
      '  .TextFrame.Characters.Font.Bold = True 'Ecriture gras
        .OLEFormat.Object.Font.Name = "Times New Roman" 'Type de police
    End With
    ActiveCell.Comment.Visible = True
    ActiveCell.Comment.Text Text:=soluce
    ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.Left = ActiveCell.Left + 0
Selection.ShapeRange.Top = ActiveCell.Top - 0
' Selection.ShapeRange.Fill.ForeColor.SchemeColor = Worksheets("solutions").Cells(ligne, 6).Value
   Au_suivant
   Do Until i = 10000 Or topmaj = True
Randomize
Z = Int((Rnd * Now) / 64)
If Z = 0 Then Z = 1
If Cells(Z, 3).Value = "" And Z < 620 Then
Cells(Z, 3).Select
topmaj = True
Else
i = i + 1
End If
Loop
End Sub
 
Sub Au_suivant()
   UserForm1.Show
   End Sub

En gros, après avoir affiché soluce + commentaire, il affiche un Userform. On clique dessus pour qu'il continue la macro.
Mon souci : tant que l'Userform est affiché, je n'ai plus la main. Je voudrais juste que la macro n'avance pas tant que j'ai pas cliqué sur l'Userform (je peux sélectionner une autre cellule pendant ce temps par exemple) et qu'elle ne continue ("Au_Suivant"), comme maintenant, qu'après que j'ai cliqué.

J'ai essayé en non-modal : il me laisse la main mais continue la macro (je peux laisser une tempo mais ce n'est pas le but)

Une idée, les champions ?

Merci et au plaisir !

[Gorfael]

Salut Baldurr et le forum
Il faut que tu fasses un bouton sur ton USF qui le ferme, et ça devrait continuer.
A+

[Baldurr]

C'est le cas. Quand l'USF s'ouvre (avec un bouton "OK ?"), la macro stagne, attendant que je valide. D'ailleurs, c'est la seule action que je puisse faire à ce moment. Et la macro continue.

Je souhaite donc juste avoir la main entre l'apparition de l'USF et le clique sur "OK ?"

Pas facile hein ?

A +

[patricktoulon]

bonjour
peut etre que tu pourais apeler ton usf en mode non modale

userform1.show 0 'le 0 permer de pouvoir utiliser le reste du fichier




au plaisir

[Baldurr]

Si je la mets en non-modale, j'ai certes la main mais la macro continue à s'exécuter.

Je pourrai faire cela mais en mettant comme condition dans la macro :

continue la lecture de la macro si et seulement si je clique sur "OK". Ca doit être jouable. Je vais essayer.

Si idées, n'hésitez pas !

[Baldurr]

J'ai trouvé !

Merci à tous.

Voici ma méthode, pour ceux que ça interesse :

Je coupe ma macro en 2 :

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
[...] Selection.ShapeRange.Left = ActiveCell.Left + 0
Selection.ShapeRange.Top = ActiveCell.Top - 0
' Selection.ShapeRange.Fill.ForeColor.SchemeColor = Worksheets("solutions").Cells(ligne, 6).Value
   Au_suivant
   End Sub
   Sub suite_mac()
   Do Until i = 10000 Or topmaj = True
Randomize
Z = Int((Rnd * Now) / 64)
If Z = 0 Then Z = 1
If Cells(Z, 3).Value = "" And Z < 620 Then
Cells(Z, 3).Select
topmaj = True
Else
i = i + 1
End If
Loop
End Sub

Et modifié le code de la userform (en mettant False à "ShowModal") :

Code :

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

1
2
3
Sub Au_suivant()
   UserForm1.Show
   End Sub

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Unload Me
suite_mac
End Sub

Etvoilà !

Reste un problème de couleurs qui fait l'objet d'une autre question sur ce forum

MERCI