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
Partager