enregistrement de la valeur d un TexBox vers une cellule et passer à la cellule suivante

submarine22

XLDnaute Junior
Bonjour,
j' ai besoin de votre aide car je sèche.
je voudrais enregistrer la valeur d' voir de plusieurs textbox dans différentes cellules, et que lorsque je revienne ensuite les prochaine valeur s'enregistre a la suite de ces dites cellules.
exemple: le textbox1 contient une valeur "X" et s'enregistre sur la feuille active en B8, et lors d un nouveau passage sur ce textbox la nouvelle valeur s' enregistre en B9 et ainsi de suite.
j’espère avoir été assé clair.

bonne journée
 

ChTi160

XLDnaute Barbatruc
Bonjour submarine22
Bonjour le Fil ,le Forum
pas tout compris lol!
voila ce que j'ai modifié dans la procédure du bouton "validez et créer un nouvel agent"
VB:
Private Sub CommandButton1_Click()
'Application.screenUpdating = False
If TextBox1 = "" Then
MsgBox "saisir impérativement une donnée!", vbExclamation, "saisie de donnée obligatooire"
TextBox1.SetFocus
Exit Sub
End If
With ActiveSheet 'avec la feuille active
i = .Range("B" & .Rows.Count).End(xlUp).Row + 1 'premiere ligne vide en remontant dans la colonne B
If .Cells(i, 1) = "" Then 'pas compris l'utilité
   .Cells(i, 1) = TextBox1.Text '???????????? why
Else 'on colle les valeurs
.Cells(i, 2) = TextBox1.Text
.Cells(i, 3) = TextBox2.Text
.Cells(i, 4) = TextBox3.Text
.Cells(i, 5) = TextBox4.Text
.Cells(i, 6) = TextBox5.Text
.Cells(i, 7) = TextBox6.Text
End If
End With
'Application.ScreenUpdating = True
End Sub
dans l'attente
Bonne journée
jean marie
 

Discussions similaires