pb de userform

[neness]

bonjour à tout le monde,

j'ai un soucis ac l'ouverture de mes userforms. Comment puige faire pour faire apparaitre une userform ou la faire disparaitre? Mise en place d'un boutton commande?


merci

A bientôt

 

[PascalXLD]

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

 

[neness]

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

 

[PascalXLD]

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

 

[neness]

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

 

[PascalXLD]

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

 

[neness]

repascal

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

merci

A bientôt

 

[PascalXLD]

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]

 

[neness]

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

 

[neness]

rebonjour à tous

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

merci à tous ceux qui m'aideront

 

[PascalXLD]

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)

 

[neness]

re

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

 

[neness]

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]

 

[PascalXLD]

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

 

[neness]

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]