procedure a corriger

Le
Lionel
bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui "debloque"
des bouton qui donne acces a des fonctions supplementares.. Oui mais ce ne
fonctionne pas j'ai du oublier un detail . Quelqu'un pourrait il me dire
lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation +
vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #4262221
*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub


bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui "debloque"
des bouton qui donne acces a des fonctions supplementares.. Oui mais ce ne
fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me dire
lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation +
vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Lionel
Le #4315961
bonsoir
j'ai modifier le code comme suggere malgre cela le code s'arrete sur une
erreur d'execution 424 : objet requis.
J'ai encore besoin de votre aide!
merci
"JLuc"
*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub


bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui
"debloque"


des bouton qui donne acces a des fonctions supplementares.. Oui mais ce
ne


fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me
dire


lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation
+


vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





JLuc
Le #4315951
*Bonjour Lionel*,
Sur quelle ligne ?

bonsoir
j'ai modifier le code comme suggere malgre cela le code s'arrete sur une
erreur d'execution 424 : objet requis.
J'ai encore besoin de votre aide!
merci
"JLuc"
*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub


bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui "debloque"
des bouton qui donne acces a des fonctions supplementares.. Oui mais ce ne
fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me dire
lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation +
vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Lionel
Le #4315931
re...

le code s'arrete su commandbuttonX.visibleúlse
si j'en supprime un l'erreur se produit aussi sur le suivant.

"JLuc"
*Bonjour Lionel*,
Sur quelle ligne ?

bonsoir
j'ai modifier le code comme suggere malgre cela le code s'arrete sur une
erreur d'execution 424 : objet requis.
J'ai encore besoin de votre aide!
merci
"JLuc"
*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub


bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui
"debloque"




des bouton qui donne acces a des fonctions supplementares.. Oui mais
ce ne




fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me
dire




lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical +
vbExclamation +




vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







JLuc
Le #4315491
Il faut surement préciser à quel endroit se trouvent tes
CommandButton...
Peut être :
Sheets("Feuil1").CommandButton60.Visible...

re...

le code s'arrete su commandbuttonX.visibleúlse
si j'en supprime un l'erreur se produit aussi sur le suivant.


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Publicité
Poster une réponse
Anonyme