PROGRAMME 1
MBESS
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
alena20 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
alena20 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
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
- Mettre en veille un programme - Guide
- Message programmé iphone - Guide
- Programme word gratuit - 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