Discussion :

[Surinox]

Bonjour ,
Acuellement Stagiaire on me demande via UserForm de créer un tableau sur USerForm qui me permettra de saisir des données qui créeront à la fin une facture , pour être plus clair voilà le problème , j'aimerais implanter un tableau ( 10 lignes et 5 colonnes ) dans un UserForm afin de saisir des données pour les renvoyez sur une feuille excel par la suite pour à la fin l'imprimer, seul soucis impossible de savoir comment faire un tableau me permettant de saisir des données qui pourrais être renvoyer sur une feuille excel.

En vous remerciant d'avance !
Surinox

[joe.levrai]

Bonjour,

à la bonne franquette !

chaque cellule de ton tableau est un Textbox ... c'est encore la solution la plus simple et portable selon les versions
tu peux ajouter des labels pour les noms de colonnes et de lignes si t'en a besoin


sinon, il y a la solution du contrôle Listviews, mais c'est usuellement utilisé pour afficher des données plutôt que de les récolter pour les restituer dans Excel ... perso je n'ai jamais essayé
http://silkyroad.developpez.com/VBA/ListView/

[Quentin77170]

Salut,

Les textbox + combobox font bien l'affaire, sinon tu peux également utiliser une ListView comme le dit joe, sinon moi ce que je fais parfois c'est :
- 5 textbox/Combobox correspondant à tes colonnes
- une ListBox composée de 5 colonnes

Pour modifier une ligne, tu la sélectionnes dans la ListBox, ça remplit les 5 textbox/combobox avec les valeurs de la ligne sélectionnée, et quand tu changes ça change en direct dans la ListBox.

En gros, tu as la liste qui te sert de stockage des données/consultation et les textbox et combobox (et autres) qui te servent à l'édition.

Quentin

[Surinox]

Le problèmes avec les TextBox est que si je dois avoir plusieurs article à saisir comment faire pour savoir quelles sont les lignes remplis et quelles sont les lignes à renvoyer à la feuille excel :\

[Quentin77170]

Tu as besoin de 10 lignes exactement et tu dois juste les compléter, ou chaque ligne correspond à un achat, par exemple, et donc tu peux en avoir 3 comme 30 ?

[Surinox]

j'ai besoin de 10 lignes exactement voici un apperçu de ce que ça donne avec des textbox ect :

http://img11.hostingpics.net/pics/646029Capture.png

le soucis c'est il va saisir les valeur mais comment faire pour retourner correctement ces mêmes valeurs dans des cases spécifiques d'une feuille excel dans le but de faire une facture ?

[Quentin77170]

Un exemple de ce que tu peux faire :
Tout d'abord, crée ta liste sur excel avec 5 colonnes et un certain nombre de lignes, transforme-le en tableau (insertion/tableau) et laisse-le appelé Tableau1.
Ensuite, crée ton UserForm avec 5 textboxes (tes 5 colonnes) appelées de textbox1 à 5 + une listbox assez grande pour les 5 colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim MàJListe As Boolean
 
Private Sub Userform_Initialize()
 
ListBox1.RowSource = "Tableau1"
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
 
ListBox1.ListIndex = 0
MàJListe = True
 
End Sub
 
Private Sub ListBox1_Change()
If ListBox1.ListIndex = -1 Then
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
Else
    MàJListe = False
    TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 1)
    TextBox3.Text = ListBox1.List(ListBox1.ListIndex, 2)
    TextBox4.Text = ListBox1.List(ListBox1.ListIndex, 3)
    TextBox5.Text = ListBox1.List(ListBox1.ListIndex, 4)
    MàJListe = True
End If
End Sub
 
Private Sub TextBox1_Change()
If MàJListe = True Then Range("Tableau1").Cells(ListBox1.ListIndex + 1, 1) = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
If MàJListe = True Then Range("Tableau1").Cells(ListBox1.ListIndex + 1, 2) = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
If MàJListe = True Then Range("Tableau1").Cells(ListBox1.ListIndex + 1, 3) = TextBox3.Text
End Sub
Private Sub TextBox4_Change()
If MàJListe = True Then Range("Tableau1").Cells(ListBox1.ListIndex + 1, 4) = TextBox4.Text
End Sub
Private Sub TextBox5_Change()
If MàJListe = True Then Range("Tableau1").Cells(ListBox1.ListIndex + 1, 5) = TextBox5.Text
End Sub

Dis-moi si ça marche

[kiki29]

Salut, il faudrait t'intéresser ( entre autres ) aux modules de classe pour tes TextBoxes
, à OWC, si dispo pour versions récentes d'Excel.

[Surinox]

Merci je vais essayer cela cette aprés midi , mais quelque chose m'embête , car on ma donner comme indication de mettre 10 lignes et si certaines lignes sont vides je ne dois pas les faires apparaitre dans le tableau excel ( donc en gros que la lignes n'apparaissent pas sur excel ) comment puis je m'y prendre à ce niveau là ?

Re !

Donc sa à l'air de marcher mise à part un petit soucis :

▬ Le premier survient quand rien n'est selectionner sa modifier le titre des colonnes :
http://img11.hostingpics.net/pics/599146anstitre2.png


▬ J'en profite aussi pour voir avec toi grâce au tableau je dois remplir un bon de livraison comme cela :

http://img11.hostingpics.net/pics/670813Capturem.png

Donc admettons qu'il y ai 3 lignes de compléter , il faut qu'il y ai 3 lignes qui s'ajouter a la suite pour accueillir les données , je connais la ligne à écrire :
Rows(3).Insert Shift:=xlDown

( Lot | Unité | quantité ) mais du coup comment savoir quelles sont les lignes remplis sur le UserForm pour savoir combien de ligne ajouter et enfin comment ajouter les valeurs saisie sur UserForm dans ces mêmes lignes ?


je sais que j'en demande beaucoup mais je n'ai rien vue sur le VBA \Excel en première année de BTS système numérique du coup j'ai réussie à m'en sortir pour la saisie des champ Expediteur \ Destinataire \ Date \ Heure \ N° Remorque . Mais pour la suite c'est la grosse panne


PS : Le fichiers ci joint :

Test Menu = ce que j'ai fait depuis le début