erreur en vga

[nrdz83]

Bonjour à tous quelqu'un pourrait il me conseiller sur mon erreur ci jointe :
Option Explicit
Dim MdpAdm As String

Private Sub BnAnnuler_Click()
FlgOk = False
Me.Hide
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub BnValider_Click()
' Demander le mot de passe Administrateur
If Me.TextBox1 = MdpAdm Then
FlgOk = True Else
FlgOk = False
End If
Me.Hide
End Sub


Private Sub UserForm_Initialize()
Me.TextBox1.Value = ""
MdpAdm = "nrdz83"
End Sub
merci d'avance , amitiés 😎

 

[Compte Supprimé 979]

Re : erreur en vga

Salut Nrdz83,

Erreur en VGA, moi je suis en XVGA 😀

Il faut mieux mettre des retours à la ligne quand tu utilises un If Then Else

If Me.TextBox1 = MdpAdm Then
  FlgOk = True
Else
  FlgOk = False
End If

Voilà 😉

 

[Cousinhub]

Re : erreur en vga

Salut,

la syntaxe pour If,... Then...., End if est établie comme ceci :

If Me.TextBox1 = MdpAdm Then
FlgOk = True
Else
FlgOk = False
End If

Décidement, tu carbures au super, Bruno

PS, tu peux également utiliser la fonction IIF, équivalent de SI d'Excel

FlgOk = IIf(Me.TextBox1 = MdpAdm, True, False)

 

[Compte Supprimé 979]

Re : erreur en vga

Salut Bh²

Décidément on se suit cet ap. 😀

A+

 

[nrdz83]

Re : erreur en vga

merci bruno m45 et bhbh
c'est une formule que j'ai piqué sur le forum et c'est bruno qui la confectionné.
mercu je vais tester amitiés a tous

 

[nrdz83]

Re : erreur en vga

toujours moi j'ai pas réussi toujours la même erreur elle s'affiche dans la piece jointe . Comprend pas je fais pourtant bien les retour à la ligne comme le preconise bruno , merci 😡

 

[Compte Supprimé 979]

Re : erreur en vga

Re,

Tu ne peux pas nous joindre ton fichier ?
Pour voir ce serait plus facile ....

A+

 

[nrdz83]

Re : erreur en vga

oui oups j'ai oublié excuse moi lolvoici le lien ci-joint car trop volumineux le fichier amitiés
Cijoint.fr - Service gratuit de dépôt de fichiers.

 

[Compte Supprimé 979]

Re : erreur en vga

Re,

Et là, avec un fichier, c'est jackpot à tous les coups ....
FlgOk variable non défini

Il faut mettre dans ton Module1 en toute première ligne
Public FlgOK As Boolean

Tu vas voir ça va aller nettement mieux 😉

Superbe ton interface, vraiment chouette ....

 

[nrdz83]

Re : erreur en vga

merci bruno 45 l'interface on va dire que j'arrive a me debrouiller, pour les formules c'est encore autre chose bhbh m'a enormement aidé sur ce classeur.
Super plus de message d'erreurs, par contre tu vas pas me croire la feuille choix ne se cache pas lol
suis vraiment lourdeau la non ?