PROGRAMME 1
MBESS
Messages postés
1
Statut
Membre
-
alena20 Messages postés 24 Statut Membre -
alena20 Messages postés 24 Statut Membre -
Bonjour,
Je suis en train de concevoir un programme avec VBA de excel qui me permet de remplir de des cellules d'excel de A1 à J1 puis de A2 à J2 comme suit :
Private Sub CommandButton2_Click()
Dim limite As Long
Sheets("Feuil1").Select
If Range("A1") = "" Then
limite = Range("A65635").End(xlUp).Row
Else
limite = Range("A65635").End(xlUp).Row
End If
Range("A" & limite).Select
ActiveCell.Offset(1, 0) = UserForm1.TextBox1.Text
ActiveCell.Offset(1, 1) = UserForm1.TextBox2.Text
ActiveCell.Offset(1, 2) = UserForm1.TextBox3.Text
ActiveCell.Offset(1, 3) = UserForm1.TextBox4.Text
ActiveCell.Offset(1, 4) = UserForm1.TextBox5.Text
ActiveCell.Offset(1, 5) = UserForm1.TextBox6.Text
ActiveCell.Offset(1, 6) = UserForm1.TextBox7.Text
ActiveCell.Offset(1, 7) = UserForm1.TextBox8.Text
ActiveCell.Offset(1, 8) = UserForm1.TextBox9.Text
ActiveCell.Offset(1, 9) = UserForm1.TextBox10.Text
End Sub
Je voudrais en saisisant sur un autre UserForm et dans un TextBox une donnée de A1 à J2 que les autres données dans les autres cellules de la même ligne apparaissent.
Je suis en train de concevoir un programme avec VBA de excel qui me permet de remplir de des cellules d'excel de A1 à J1 puis de A2 à J2 comme suit :
Private Sub CommandButton2_Click()
Dim limite As Long
Sheets("Feuil1").Select
If Range("A1") = "" Then
limite = Range("A65635").End(xlUp).Row
Else
limite = Range("A65635").End(xlUp).Row
End If
Range("A" & limite).Select
ActiveCell.Offset(1, 0) = UserForm1.TextBox1.Text
ActiveCell.Offset(1, 1) = UserForm1.TextBox2.Text
ActiveCell.Offset(1, 2) = UserForm1.TextBox3.Text
ActiveCell.Offset(1, 3) = UserForm1.TextBox4.Text
ActiveCell.Offset(1, 4) = UserForm1.TextBox5.Text
ActiveCell.Offset(1, 5) = UserForm1.TextBox6.Text
ActiveCell.Offset(1, 6) = UserForm1.TextBox7.Text
ActiveCell.Offset(1, 7) = UserForm1.TextBox8.Text
ActiveCell.Offset(1, 8) = UserForm1.TextBox9.Text
ActiveCell.Offset(1, 9) = UserForm1.TextBox10.Text
End Sub
Je voudrais en saisisant sur un autre UserForm et dans un TextBox une donnée de A1 à J2 que les autres données dans les autres cellules de la même ligne apparaissent.
A voir également:
- PROGRAMME 1
- Programme demarrage windows - Guide
- Programme word gratuit - Guide
- Message programmé iphone - Guide
- Mettre en veille un programme - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
2 réponses
Bonjour MBESS,
Condition inutile (à mon avis).
Je ne comprends pas ta demande !
Je voudrais en saisisant sur un autre UserForm et dans un TextBox une donnée de A1 à J2
Tu saisis plusieurs données (A1 à J2) dans un seul "Textbox" ?
.. que les autres données dans les autres cellules de la même ligne apparaissent.
Les données saisies dans la "Textbox" ne sont pas encore écrites dans les cellules "A1" à "J2" ?
Condition inutile (à mon avis).
Je ne comprends pas ta demande !
Je voudrais en saisisant sur un autre UserForm et dans un TextBox une donnée de A1 à J2
Tu saisis plusieurs données (A1 à J2) dans un seul "Textbox" ?
.. que les autres données dans les autres cellules de la même ligne apparaissent.
Les données saisies dans la "Textbox" ne sont pas encore écrites dans les cellules "A1" à "J2" ?
Bonjour,
Si j'ai bien compris votre problem, vous voulez remplir A1->J1 et apres A2->J2 avec un userform (textbox)
Voici la solution possible pour votre problem.
https://www.cjoint.com/?BKgkJ4LvDLM
J'espere que j'ai pourrais vous aider,
Cord
Alena
Si j'ai bien compris votre problem, vous voulez remplir A1->J1 et apres A2->J2 avec un userform (textbox)
Voici la solution possible pour votre problem.
https://www.cjoint.com/?BKgkJ4LvDLM
J'espere que j'ai pourrais vous aider,
Cord
Alena
