J
Jimmy
Guest
Bonsoir à tous ;
Tout d'abord je tiens a souhaiter une bonne et joyeuse 2005 aux participants de ce forum sans lesquels 2004 aurait été moins rose !!!
V'nons s'en à un mon problème , en 2 mots==> je desire a partir d'un bouton d'une premiere userform en ouvrir une deuxieme . Jusqu'ici pas de probleme , puis ds cette deuxieme userform .....
....; arrive deux textbox ; l'un demande un mot de passe ( txtbox avec propriété password Chard de facon a crypter la saisie. )
Et l'autre demande une entrée qlqconque
____________________________
Et moi , j'aimerais lorsque je fais un OK ( sur le Userform2 ) qu'une fois le mot2pass rentrer ( si valide bien sûr ) , que mon text contenu ds ma text box 2( l'entrée qlqconque ) vienne se placer ds la premiere cellule vide de ma colonnne (D)
En esperant avoir été assez explicite ...
Qlqu'un pourrait il m'aider ???
____________________________
Private Sub CommandButton2_Click()
Dim DerLigne As String
Dim New As String j'ai deja de gros doute sur la declart°
Dim Lendroitvoulu As String de variable ......
DerLigne = Sheets(3).Range("D65536").End(xlUp).Row
Lendroitvoulu = DerLigne + 1
If TextBox1 = "Jimmy" Then
New = TextBox2
Else
MsgBox "Merci de re-saisir le Mot de passe ", vbInformation, "Jimmy "
End If
End Sub
Tout d'abord je tiens a souhaiter une bonne et joyeuse 2005 aux participants de ce forum sans lesquels 2004 aurait été moins rose !!!
V'nons s'en à un mon problème , en 2 mots==> je desire a partir d'un bouton d'une premiere userform en ouvrir une deuxieme . Jusqu'ici pas de probleme , puis ds cette deuxieme userform .....
....; arrive deux textbox ; l'un demande un mot de passe ( txtbox avec propriété password Chard de facon a crypter la saisie. )
Et l'autre demande une entrée qlqconque
____________________________
Et moi , j'aimerais lorsque je fais un OK ( sur le Userform2 ) qu'une fois le mot2pass rentrer ( si valide bien sûr ) , que mon text contenu ds ma text box 2( l'entrée qlqconque ) vienne se placer ds la premiere cellule vide de ma colonnne (D)
En esperant avoir été assez explicite ...
Qlqu'un pourrait il m'aider ???
____________________________
Private Sub CommandButton2_Click()
Dim DerLigne As String
Dim New As String j'ai deja de gros doute sur la declart°
Dim Lendroitvoulu As String de variable ......
DerLigne = Sheets(3).Range("D65536").End(xlUp).Row
Lendroitvoulu = DerLigne + 1
If TextBox1 = "Jimmy" Then
New = TextBox2
Else
MsgBox "Merci de re-saisir le Mot de passe ", vbInformation, "Jimmy "
End If
End Sub