Discussion :

[aA189]

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

[jmfmarques]

si tu veux quitter l'appli (je crois comprendre que c'est celà que tu cherches), la commande est "END" (à inserrer dans le commandButton_click de ton choix.

Regardes STP END dans l'aide en ligne

[jmfmarques]

Excuses*moi (pas vu que tu n'étais pas en VB).

Dans ton cas l'instruction est STOP (pas END)

[AlainTech]

Euh...

Et Unload Me, ça marche pas???

[jmfmarques]

Si Me est la seule forme ouverte..., oui celà marchera sans aucun doute..

[AlainTech]

Non!

Me est toujours le parent du contrôle dont on capture l'événement

[jmfmarques]

Bonjour Alaintech

Essayes donc, avec un projet avec 2 forms Form1 et Form2 :

un bouton de command sur form1 ==>> load Form2

toujours dans form1 (puisque tu y es resté, te contentant de charger form2) :

un autre bouton ===>> unload me

et constates (je viens de le faire)...



EDIT Les forms n'ont pas forcément toutes des parents et les parents n'ont pas forcément des enfants....

[SfJ5Rpw8]

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 ?

tu rajoute tout simplement une commande hide à la fin de ta procédure commandButton

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
...
 
hide
End Sub

[jmfmarques]

Avez-vous vraiment compris qu'il veut pouvoir quitter l'appli ???????? et reprendre la main sans passer par

Pour sortir de cette dernière je dois cliquer sur le bouton de fermeture , ce qui n’est pas pratique

: :


A aA189 qui risque de ne pas s'y retrouver :

En VBA l'instruction STOP interromp totalement l'appli, quelles que soient les Forms (parents, enfants, etc...)

[bouley]

Bonjour aA189,

Pour fermer ton interface utilisateur rajoute

Code :

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

1
2
 
me.boutonFermeture = true

à la fin de ta procedure CommandButton1_Click()

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
 
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" 
 
    me.boutonFermeture = true
 
End If 
 
End Sub

@+

[jmfmarques]

Hé Bé !!!
J'abandonne...

Salut à tous

[SfJ5Rpw8]

En VBA l'instruction STOP interromp totalement l'appli, quelles que soient les Forms (parents, enfants, etc...)

Non voir

Interrompt l'exécution.

Syntaxe

Stop

Remarques

Vous pouvez placer des instructions Stop n'importe où dans les procédures afin d'en interrompre l'exécution. Utiliser l'instruction Stop revient à placer un point d'arrêt dans le code.

L'instruction Stop interrompt l'exécution d'un programme, mais contrairement à End, elle ne ferme pas les fichiers et n'efface pas les variables, sauf si elle est placée dans un fichier exécutable (.EXE) compilé.

l'instruction Stop est une instruction à utiliser pour le débuggage...

je maintient pour fermer une UserForm la commande c'est Hide...

[aA189]

Pour ce qui est de mes essais je constate que :
stop est une instruction pour le débuggage
end fonctionne mais efface les variables
Unload ne m'a pas convaincu un peu dans la même veine que "end" cad efface ce qui est en mémoire
me.boutonfermeture = true ; pas de chance je n'aie pas cette méthode dans ma console
hide fonctionne ouf !Et ce n'est pas trop brutal .

Conclusion : je pense que c'est pas trés élégant mais bon ...
La bonne solution serait de construire un bouton "Ok" proprement .Je me suis contenté de redimensionner un commandButton et de renommer sa caption en "Ok" .Probable que la propriété-instruction "hide" doit être calée quelque part dans les propriétés du bouton "Ok" .Si quelqu'un sait ...

[bouley]

aA189

Quand tu disais

Pour sortir de cette dernière je dois cliquer sur le bouton de fermeture

Je pensais que tu avais programmé un CommandButton nommé fermeture.
Comme apparement cela n'est pas le cas il te suffit de comme bil t'as dis
mets un me.hide avant le end sub de ton bouton CommandButton1_Click()
@+

[aA189]

Ok merci à tous