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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour