Fonctionnement INPUTBOX

[Rikikiller]

Bonjour à tous,

Dans mon USF 1, le bouton 1 donne, après avoir entré un mot de passe dans une INPUTBOX, accès à l'USF 2. Le code de l'INPUTBOX est le suivant :

Private Sub CommandButton1_Click()

Dim nbressais As Byte

retour:
NomBoite = InputBox("Entrez le mot de passe", "L'accès à cette fonction est réservé")

If NomBoite = "TOTO" Then

UserForm2.Show
Else
nbressais = nbressais + 1

If nbressais = 3 Then
MsgBox "Ce classeur va se fermer"
ThisWorkbook.Close
End If

MsgBox "Mot de passe incorrect"

GoTo retour

End If

End Sub
Mon code fonctionne bien quand :
- le mot de passe est KO  MsgBox "Mot de passe incorrect"
- 3 essais KO  fermeture classeur
- le mot de passe est OK  Ouverture USF 2
Par contre, si je clique sur la "croix" de fermeture ou sur "annuler", la réaction est la même que si je cliquais sur "OK" avec mot de passe KO  MsgBox "Mot de passe incorrect"

Quelqu'un peut il me dire les modifications à apporter afin que si je clique sur la "croix" de fermeture ou sur "annuler", je revienne à mon USF 1.
D'avance merci à toutes et à tous de votre aide.
Bonne journée ensoleillée.

Rikikiller

 

[Pierrot93]

Re : Fonctionnement INPUTBOX

Bonjour Rikikiller

pas top la couleur de police de ton code, perso vois rien... le mieux est un fichier en PJ, sans données confidentielles, plus facile pour t'aider.

@+

 

[Rikikiller]

Re : Fonctionnement INPUTBOX

Bonjour Pierrot, le forum,

Effectivement je me suis aperçu après que la couleur de la police rendait mon code illisible . Je le remet en noir cette fois ci et travaille à la préparation d'un fichier light pour le joindre ensuite. Merci pour tout.

Dans mon USF 1, le bouton 1 donne, après avoir entré un mot de passe dans une INPUTBOX, accès à l'USF 2. Le code de l'INPUTBOX est le suivant :

Private Sub CommandButton1_Click()

Dim nbressais As Byte

retour:
NomBoite = InputBox("Entrez le mot de passe", "L'accès à cette fonction est réservé")

If NomBoite = "TOTO" Then

UserForm2.Show
Else
nbressais = nbressais + 1

If nbressais = 3 Then
MsgBox "Ce classeur va se fermer"
ThisWorkbook.Close
End If

MsgBox "Mot de passe incorrect"

GoTo retour

End If

End Sub


Mon code fonctionne bien quand :
- le mot de passe est KO  MsgBox "Mot de passe incorrect"
- 3 essais KO  fermeture classeur
- le mot de passe est OK  Ouverture USF 2
Par contre, si je clique sur la "croix" de fermeture ou sur "annuler", la réaction est la même que si je cliquais sur "OK" avec mot de passe KO  MsgBox "Mot de passe incorrect"

Quelqu'un peut il me dire les modifications à apporter afin que si je clique sur la "croix" de fermeture ou sur "annuler", je revienne à mon USF 1.
D'avance merci à toutes et à tous de votre aide.
Bonne journée ensoleillée.

Rikikiller

 

[Pierrot93]

Re : Fonctionnement INPUTBOX

Re

regarde le code ci-dessous, sort de la procédure si tu cliques sur annuler, la croix ou si rien de renseigné dans l'inputbox :

Option Explicit
Private Sub CommandButton1_Click()
Dim nbressais As Byte, NomBoite As String
retour:
NomBoite = InputBox("Entrez le mot de passe", "L'accès à cette fonction est réservé")
If NomBoite = "TOTO" Then
    UserForm2.Show
Else
    If NomBoite = "" Then Exit Sub
    nbressais = nbressais + 1
    If nbressais = 3 Then
        MsgBox "Ce classeur va se fermer"
        ThisWorkbook.Close
    End If
    MsgBox "Mot de passe incorrect"
    GoTo retour
End If
End Sub

@+

 

[Rikikiller]

Re : Fonctionnement INPUTBOX

Bonjour à Pierrot, bonjour à tous,

Voici le fichier light. J'espère que cela permettra de trouver la solution à mon problème. Au plaisir de vous lire.

Rikikiller

 

[Pierrot93]

Re : Fonctionnement INPUTBOX

Re

pas sur que tu ais vu ma réponse de 14h19....

@+

 

[Rikikiller]

Re : Fonctionnement INPUTBOX

Re Pierrot,

En effet, lorsque j'ai posté mon message, je n'avais pas lu ta réponse de 14 h 19. Je viens de tester ton code et cela fonctionne à merveille et je t'en remercie. Question subsidaire : comment indiquer sur ce post qu'il est résolu ?? Merci de ton aide.

Rikikiller

 

[Pierrot93]

Re : Fonctionnement INPUTBOX

Re

sur ce forum, il n'y a pas cette possibilité de "flaguer" un post comme étant résolu, tu le dis et c'est très bien comme ceci.

@+