Bonsoir mon bouton « Ok » (Un CommandButton) ne me permet pas de sortir de mon interface utilisateur .Pour sortir de cette dernière je dois cliquer sur le bouton de fermeture , ce qui n’est pas pratique .Que faire ?

Le code s'arrête au niveaux des "end sub" ce qui fait que je ne sors pas de mon interface ...

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
 
Private Sub CommandButton1_Click()
 
If OptionButton1.Value = True Then
 
 Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "EQUERRE"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" L= 1 ML"
 
End If
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub OptionButton1_Click()
 
End Sub
 
Private Sub OptionButton2_Click()
 
End Sub