pb de userform

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #2

Bonjour

Tu as plusieurs possibilités

1 - avec un bouton de commande dans le style de ce que je t'ai donné hier soir ou sur l'evenement click du bouton tu mets du code du genre userform1.show

2 - sur un événementiel par exemple à l'ouverture de ton classeur

3 - dans le code d'une marco en train de se dérouler

Bref il faut savoir exactement quel est le but de l'UF pour bien le déclencher au bon moment

Bonne journée

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #3

re

alors ce serait pour qu'à la fin de l'identification de l'utilisateur et du mot de passe, la userform consacrée à ca se ferme et une autre s'ouvre pour y inscrire les taches et tout ce qui s'en suit


merci

A bientôt

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #4

Re

Alors dans le code du click du bouton de ton 1er userform tu ajoutes ceci

Private Sub CmdButtonok_Click()

Const fin = 4
Dim VerifCode As Boolean

For i = 2 To fin
If Me.TxtBoxtype_utilisateur = Range('a' & i).Value Then
If Me.TxtBoxmot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
VerifCode = True
Exit For
Else
MsgBox 'erreur_identification'
VerifCode = False
End If
End If
Next i

If VerifCode = True Then
Unload Me
userform2.Show
End If

End Sub

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #5

repascal

ca y est, j'ai fait ce que tu m'as dis mais alors le pb c'est qu'il me dit ds les déclarations que 'fin' est ambigüe
pk?

merci

A bientôt

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #6

Re

Modifies comme ceci

Private Sub CmdButtonok_Click()

Dim VerifCode As Boolean

For i = 2 To Range('A65536').End(xlUp).Row
If Me.TxtBoxtype_utilisateur = Range('a' & i).Value Then
If Me.TxtBoxmot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
VerifCode = True
Exit For
Else
MsgBox 'erreur_identification'
VerifCode = False
End If
End If
Next i

If VerifCode = True Then
Unload Me
UserForm2.Show
End If

End Sub

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #7

repascal

voilà c'est fait. Je vais encore t'embeter car il me remet erreur d'identification comme hier. Pk?

merci

A bientôt

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #8

Je t'envoie mon essai

[file name=projetinfo_20050426084842.zip size=12797]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/projetinfo_20050426084842.zip[/file]

 

Pièces jointes

• projetinfo_20050426084842.zip

  12.5 KB · Affichages: 19

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #9

repascal

merci pour ton essai

j'ai exactement comme toi
il m'indique membre de méthode ou de données introuvables au niveau de 'Me.TxtBoxutilisateur '
pk?

merci

A bientôt

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #10

rebonjour à tous

est ce que quelqu'un aurait une idée à mon pb svp?

merci à tous ceux qui m'aideront

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #11

Re

bizarre chez moi ça marche impec je l'ai fait tourner sans problème

Tu peux envoyer ton fichier en le mettant en zip (tu dois pouvoir avec winrar)

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #12

re

voilà mon fichier
je ne comprends pas c bizarre que ca marche pas

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #13

re

excuse j'ai oublié le fichier


merci

A bientôt

[file name=projet info_20050426103728.zip size=15097]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/projet info_20050426103728.zip[/file]

 

Pièces jointes

• projet info_20050426103728.zip

  14.7 KB · Affichages: 15

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 26 Avril 2005

• #14

Oh là là

tu ne recopies ce qu'on te mets

tu as Private Sub CmdButtonok_Click()
For i = 2 To Range('A65536').End(xlUp).Row
If Lblutilisateur = Range('a' & i).Value And Lblmot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
VerifCode = True
Exit For
Else
MsgBox 'erreur_identification'
VerifCode = False
End If
Next i
If VerifCode = True Then
Unload Me
organisation.Show
End If
End Sub

alors que tes textbox s'appellent

TxtBoxtype_utilisateur et non Lblutilisateur
et
TxtBoxmot_de_passe et non Lblmot_de_passe

Sans compter que là tu boucles obligatoirement sur tout tu n'as pas suivi ma démo

Bonne journée

 

Vote positif 0 Vote négatif

N

neness

Guest

• 26 Avril 2005

• #15

re

si mais excuse moi je ne t'ai pas envoyé la derniere version
excuse moi encore

voilà la bonne

merci

A bientôt

[file name=projet info_20050426104757.zip size=13613]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/projet info_20050426104757.zip[/file]

 

Pièces jointes

• projet info_20050426104757.zip

  13.3 KB · Affichages: 18

Vote positif 0 Vote négatif