TextBox - activer touche Enter

Le
j-pascal
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) )
J'ai créé un bouton "Ok", mais
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton "Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ).

Question : Est-il possible de valider le texte saisi dans un TextBox, sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4675861
Bonjour,

Dans la propriété Default du bouton, spécifier True

JB
http://boisgontierj.free.fr/


On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton " Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox, sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP


j-pascal
Le #4675351
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JB
http://boisgontierj.free.fr/


On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox, sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP


tissot.emmanuel
Le #4675341
Bonsoir,

A ajouter dans le code du formulaire (sans oublier de prévoir un autre moyen
de le fermer)

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Cordialement,

Manu/
"j-pascal" uk$
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix en haut à droite du UserForm, ça shunte le mot de passe et ça lance
la macro !
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JB
http://boisgontierj.free.fr/


On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP






JB
Le #4675331
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB


On 2 sep, 01:05, "j-pascal"
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JBhttp://boisgontierj.free.fr/

On 1 sep, 10:20, "j-pascal"


Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox, s ans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



j-pascal
Le #4675241
Bonjour,

Je vois que ton code est quelque peu différent du mien (mes tests étaient
apparemment un peu lourds ;-) ).

"témoin" est de quel type ? Byte ?

J'ai ajouté un bout de code pour sortir car si le MdP est erroné et que je
clique sur Annuler (ou sur la croix) le fichier s'ouvre quand même !

Le tout est ici :

'----------------------------------------
Dim témoin
Private Sub Bouton_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
'------------------Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
'-------------------------
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not témoin
End Sub
'--------------------------------------------------

Bon dimanche,

JP
"JB"
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB


On 2 sep, 01:05, "j-pascal"
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la
macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JBhttp://boisgontierj.free.fr/

On 1 sep, 10:20, "j-pascal"


Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



j-pascal
Le #4675181
Bonjour Emmanuel,

Merci !

JP

"tissot.emmanuel"
Bonsoir,

A ajouter dans le code du formulaire (sans oublier de prévoir un autre
moyen de le fermer)

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Cordialement,

Manu/
"j-pascal" uk$
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix en haut à droite du UserForm, ça shunte le mot de passe et ça lance
la macro !
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JB
http://boisgontierj.free.fr/


On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP










JB
Le #4757321
Bonsoir,

Témoin est du type booléen.

Témoin=True

JB


On 2 sep, 11:28, "j-pascal"
Bonjour,

Je vois que ton code est quelque peu différent du mien (mes tests éta ient
apparemment un peu lourds ;-) ).

"témoin" est de quel type ? Byte ?

J'ai ajouté un bout de code pour sortir car si le MdP est erroné et q ue je
clique sur Annuler (ou sur la croix) le fichier s'ouvre quand même !

Le tout est ici :

'----------------------------------------
Dim témoin
Private Sub Bouton_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
'------------------Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
'-------------------------
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not témoin
End Sub
'--------------------------------------------------

Bon dimanche,

JP
"JB"
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB

On 2 sep, 01:05, "j-pascal"


Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lan ce la
macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JBhttp://boisgontierj.free.fr/

On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bout on
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




j-pascal
Le #4757061
Merci.

JP

"JB"
Bonsoir,

Témoin est du type booléen.

Témoin=True

JB


On 2 sep, 11:28, "j-pascal"
Bonjour,

Je vois que ton code est quelque peu différent du mien (mes tests étaient
apparemment un peu lourds ;-) ).

"témoin" est de quel type ? Byte ?

J'ai ajouté un bout de code pour sortir car si le MdP est erroné et que je
clique sur Annuler (ou sur la croix) le fichier s'ouvre quand même !

Le tout est ici :

'----------------------------------------
Dim témoin
Private Sub Bouton_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
'------------------Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
'-------------------------
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not témoin
End Sub
'--------------------------------------------------

Bon dimanche,

JP
"JB"
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB

On 2 sep, 01:05, "j-pascal"


Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la
macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JBhttp://boisgontierj.free.fr/

On 1 sep, 10:20, "j-pascal"
Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le
bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




LSteph
Le #4757011
Bonsoir,

Il me semble que dans ce cas il convient de mettre

Dim témoin as boolean

Sinon témoin est par défaut un variant

que VBA sait parfaitement interprèter si on enlève l'option explicit.
Toutefois il est préférable d'utiliser l'option explicit et de déclarer
la variable et son type.
Si certains se sont penché sur cette question pour affirmer que la
différence en terme de performance serait négligeable, il demeure
qu'avec des programmes importants et de nombreuses données à traiter la
différence peut devenir considérable, même si cela reste assez peu
important il est vrai au regard de la puissance de certains ordinateurs.

En revanche, prendre l'habitude de le faire, oblige à considérer à
chaque fois le type de variable utilisé et outre de finir par savoir ce
qu'on fait et ce qu'on utilise permet une mise au point et une relecture
du code bien plus aisée.

Cordialement.

lSteph

Bonsoir,

Témoin est du type booléen.

Témoin=True

JB


On 2 sep, 11:28, "j-pascal"
Bonjour,

Je vois que ton code est quelque peu différent du mien (mes tests étaient
apparemment un peu lourds ;-) ).

"témoin" est de quel type ? Byte ?

J'ai ajouté un bout de code pour sortir car si le MdP est erroné et que je
clique sur Annuler (ou sur la croix) le fichier s'ouvre quand même !

Le tout est ici :

'----------------------------------------
Dim témoin
Private Sub Bouton_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
'------------------Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
'-------------------------
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not témoin
End Sub
'--------------------------------------------------

Bon dimanche,

JP
"JB"
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB

On 2 sep, 01:05, "j-pascal"


Bonjour,
Merci, c'est parfait !
Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la
macro
!
Peut-on inhiber ce clic ?
Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()
MotdePasse = TextBox1.Value
If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)
If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False
ThisWorkbook.Close True
Exit Sub '18/08
End If
End If
Unload MenuMdP
End Sub
'------------------------------------------------
@+ ?
JP
"JB"
Bonjour,
Dans la propriété Default du bouton, spécifier True
JBhttp://boisgontierj.free.fr/
On 1 sep, 10:20, "j-pascal"
Bonjour,
J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).
Question : Est-il possible de valider le texte saisi dans un TextBox,
sans
passer par le bouton "Ok" ?
Merci ;-)
--
Cordialement @+
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -









LSteph
Le #4756981
Bonsoir

Dim témoin

témoin est variant puisque le type n'est pas indiqué

il est plus lourd mais peut s'accomoder de tout contenu!

témoin=true

on lui affecte un booleen mais il reste un variant

Pour savoir dans chaque cas et vérifier
Affiche le volet Expion
et colles y une variable
puis execute le code en mode pas à pas tu sauras de quel type elle est.

Cordialement.

lSteph



Bonjour,

Je vois que ton code est quelque peu différent du mien (mes tests
étaient apparemment un peu lourds ;-) ).

"témoin" est de quel type ? Byte ?

J'ai ajouté un bout de code pour sortir car si le MdP est erroné et que
je clique sur Annuler (ou sur la croix) le fichier s'ouvre quand même !

Le tout est ici :

'----------------------------------------
Dim témoin
Private Sub Bouton_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
'------------------Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
'-------------------------
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not témoin
End Sub
'--------------------------------------------------

Bon dimanche,

JP
"JB"
Bonjour,

Dim témoin
Private Sub B_Ok_Click()
If TextBox1.Value = "0000" Then
témoin = True
Unload Me
Else
If MsgBox("Code erroné !", vbRetryCancel) = vbRetry Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Else
témoin = True
Unload Me
End If
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Cancel = Not témoin
End Sub

JB


On 2 sep, 01:05, "j-pascal"
Bonjour,

Merci, c'est parfait !

Néanmoins, je viens de me rendre compte que si on clique sur la petite
croix
en haut à droite du UserForm, ça shunte le mot de passe et ça lance la
macro
!
Peut-on inhiber ce clic ?

Le code de mon UF :
'--------------------------------------------
Private Sub Bouton_Ok_Click()

MotdePasse = TextBox1.Value

If MotdePasse <> "0000" Then 'modif 30/08
Unload MenuMdP
réponse6 = MsgBox("Code erroné !", vbRetryCancel)

If réponse6 = vbRetry Then '(l'utilisateur recommence)
Unload MenuMdP
MenuMdP.Show
Else
Application.EnableCancelKey = xlDisabled
On Error GoTo fin
MsgBox "Terminé !"
fin:
Application.EnableEvents = False

ThisWorkbook.Close True
Exit Sub '18/08
End If
End If

Unload MenuMdP
End Sub
'------------------------------------------------

@+ ?

JP
"JB"
Bonjour,

Dans la propriété Default du bouton, spécifier True

JBhttp://boisgontierj.free.fr/

On 1 sep, 10:20, "j-pascal"


Bonjour,

J'ai un TextBox dans lequel j'entre un MdP (avec des étoiles :o) ) ...
J'ai créé un bouton "Ok", mais ...
Si j'entre le MdP et que je tape sur la touche "Enter", c'est le bouton
"Ok"
qui se sélectionne (et qu'il faut donc que je clique ensuite ...).

Question : Est-il possible de valider le texte saisi dans un
TextBox, > sans

passer par le bouton "Ok" ?

Merci ;-)

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -







Publicité
Poster une réponse
Anonyme