Userform avec Mot 2 Passe

[Jimmy]

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

 

[Wilfried]

Salut Jimmy

Voici une petit suggestion avant essai complémentaire :

Private Sub CommandButton2_Click()

If TextBox1.value = "Jimmy" Then
range("D1").select
activecell.end(xldown).select
activecell.offset(1,0).formula= TextBox2
Else
MsgBox("Merci de re-saisir le Mot de passe ", vbInformation)
End If
End Sub

Je vais faire quelque essais at te recontacte sur ce post dans la journée.

A+ Wilfried ;-p

 

[Jimmy]

Salut Wilfried ;


Meric bcp de cette aide , de mon coté je merepenche un peu dessus , a partir de ton exemple *


Encore merci
Bonne journée
Jimmy

 

[Jimmy]

MERCI WILFRIED .

CA MARCHE TRES TRES BIEN ,MERCI !!!

ENCORE MERCI DE TON AIDE
Jimmy