Valeur textbox dans une cellule

Salut tout le monde,

J'ai crée un petit fichier excel avec userform quand je valide, les données de textbox1 doivent être insérer dans la première ligne vide de colonne A sur la feuille ("Historique LOG") mais j'arrive pas à le faire je doit l'intégrer à ce code.

Merci d'avance

Private Sub CommandButton1_Click()

'Si TextBox1 est vide
If TextBox1 = "" Then
'Message à l'utilisateur
MsgBox "Saisie du nom d'utilisateur obligatoire.", vbInformation
'sortie de la procédure
Exit Sub
End If
'Même chose avec TextBox2
If TextBox2 = "" Then
MsgBox "Saisie du mot de passe obligatoire.", vbInformation
Exit Sub
End If
'Lance la fonction VerifMDP en utilisant :
'- TextBox1 comme paramètre "utilisateur"
'- TextBox2 comme paramètre "MdP"
'Si la fonction renvoie FAUX :
If VerifMDP(TextBox1, TextBox2) = False Then
'c'est que le mot de passe ou l'utilisateur est faux donc
'Message à l'utilisateur
MsgBox "Erreur Mot de passe et/ou utilisateur. Merci de saisir à nouveau.", vbInformation
'on vide les 2 textbox
TextBox1 = ""
TextBox2 = ""
'on sort de la procédure
Exit Sub
End If
'A partir d'ici, le code ne se déroule que lorsque mdp et nom sont corrects.
'On peut donc afficher les feuilles correspondant à l'utilisateur saisi
AfficheFeuilles TextBox1
Worksheets("feuil1").Range("L3") = TextBox1.Value
Worksheets("feuil1").Range("Z3") = TextBox1.Value
Worksheets("feuil1").Range("AO3") = TextBox1.Value
Worksheets("feuil1").Range("BC3") = TextBox1.Value
Worksheets("feuil1").Range("BS3") = TextBox1.Value
Worksheets("feuil1").Range("CI3") = TextBox1.Value

'masque l'UserForm
Unload Me
End Sub

Bonjour,

Pas certain de tout comprend sur tout que votre code fait référence à des range. en Feuille 1

Du coup je vous laisse le choix du moment ou vous souhaitez que la textbox1 alimente la premiere cellule vide de "historique" ?

Dim derligne as long  ' déclaration variable 
derligne =Worksheets("Historique LOG")Range("A65536").End(xlUp).Row + 1
'Calcul numéro de la dernière ligne vide
Worksheets("Historique LOG")..Cells(derlinge, 1) = TextBox1.Value
'Alimentation dernière ligne colonne 1 donc colonne A.

Bonjour Xmenpl,

Merci pour votre solution j'ai réussi à adapter votre code

est ce que je peux ajouter en colonne B l'heure format (Now, "HH:MM") ? c'est à dire à coté de la cellule A de textbox1.value ?

Meilleurs salutations

xxmedxx a écrit :

Bonjour Xmenpl,

Merci pour votre solution j'ai réussi à adapter votre code

est ce que je peux ajouter en colonne B l'heure format (Now, "HH:MM") ? c'est à dire à coté de la cellule A de textbox1.value ?

Meilleurs salutations

Bonjour, vous pouvez utilisez la même rédaction de code pour remplir les informations sur la même ligne trouvée mais dans une autre colonne :

il suffit de faire varier le chiffre qui indique la colonne :

Worksheets("Historique LOG").Cells(derlinge, 1) = TextBox1.Value
' le 1 aprés derligne indique le numéro de colonne.

'si vous souhaitez ajouter l'heure en colonne B sur la même ligne  -->
Worksheets("Historique LOG").Cells(derlinge, 2) = Format(Now, "Medium Time")

Merci beaucoup pour votre réponse et désolé pour le retard cher ami Xmenpl