[VBA word]CommandButton récalcitrant (newbie question)

Version imprimable

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:

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

20/01/2006, 21h31
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

:)
20/01/2006, 21h36
jmfmarques

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

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

:oops:
20/01/2006, 22h45
AlainTech

Euh...

Et Unload Me, ça marche pas???
20/01/2006, 23h09
jmfmarques

Si Me est la seule forme ouverte..., oui celà marchera sans aucun doute..
:)
21/01/2006, 10h01
AlainTech

Non!

Me est toujours le parent du contrôle dont on capture l'événement
21/01/2006, 11h07
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....
21/01/2006, 11h12
SfJ5Rpw8

Re: [VBA word]CommandButton récalcitrant (newbie question)
Citation:

Envoyé par 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 ?

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

1 2 3 4 5 6 Private Sub CommandButton1_Click() ... hide End Sub
:!:
21/01/2006, 11h21
jmfmarques

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

Citation:

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

:oops: :roll: :roll: :oops: :P :P :?: :?:

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...)

:!: :!:

Bonjour aA189,

Pour fermer ton interface utilisateur rajoute

Code:

1
2
 
me.boutonFermeture = true

à la fin de ta procedure CommandButton1_Click()

Code:

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

21/01/2006, 11h40
jmfmarques

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

Salut à tous

:evil: :twisted: :lol:
21/01/2006, 11h42
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

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

:!: :!:

Non voir :f1:

Citation:

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... :!:
21/01/2006, 13h01
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 ...
21/01/2006, 13h34
bouley

aA189

Quand tu disais

Citation:

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()
@+
21/01/2006, 17h05
aA189

[résolu]

Ok merci à tous