Tableau dans USerFOrm

Version imprimable

29/05/2015, 10h02
Surinox

Tableau dans USerFOrm

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
29/05/2015, 10h14
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/
29/05/2015, 10h49
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
29/05/2015, 10h55
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 :\
29/05/2015, 11h06
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 ?
29/05/2015, 11h37
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 ?

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:

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 :)

29/05/2015, 11h43
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.
29/05/2015, 14h31
Surinox

1 pièce(s) jointe(s)

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 :x

PS : Le fichiers ci joint :

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

Je vais essayer de regarder ton fichier dès que j'aurai le temps, en attendant je te propose en repartant de mon code :

Code:

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
47
48
49
50
51
52
53
54
55
56
57
Dim MàJListe As Boolean
 
Private Sub Userform_Initialize()
 
ListBox1.RowSource = "Tableau1"
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
 
MàJListe = True
 
If ListBox1.ListCount = 0 Then Call ActiverTextBox(False) Else ListBox1.ListIndex = 0
 
End Sub
 
Private Sub ActiverTextBox(VraiFaux As Boolean)
    TextBox1.Enabled = VraiFaux
    TextBox2.Enabled = VraiFaux
    TextBox3.Enabled = VraiFaux
    TextBox4.Enabled = VraiFaux
    TextBox5.Enabled = VraiFaux
End Sub
 
Private Sub ListBox1_Change()
MàJListe = False
If ListBox1.ListIndex = -1 Then
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    Call ActiverTextBox(False)
Else
    Call ActiverTextBox(True)
    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)
End If
MàJListe = True
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

J'ai rajouté le verrouillage des textbox si rien de sélectionné...

En espérant que ça t'aide un peu :)

J'ai commencer à écrire le code qui pourrais me permettre d'afficher les lignes d'un feuille excel vers une autre feuille excel :

Donc voici tout d'abord le tableau que je veut transferer ( uniquement les 3 colonnes ) :

http://img11.hostingpics.net/pics/279771tab.png

Et ici où est ce que je veut les mettre :

http://img11.hostingpics.net/pics/910678form.png

Donc comme vous le voyez pour la première ligne tout va bien , voici le code :
Code:

1 2 3 4 5 6 7 8 n = 2 x = Application.WorksheetFunction.Sum(Range("A" & n & ":IV" & n)) If x = 0 Then n = 0 Else Sheets(2).Rows(19).Insert Shift:=xlDown Sheets("Feuil2").Range("C19:E19").Value = Sheets("Feuil3").Range("C2:E2").Value End If
mais dés que je tente d'en ajouter une seconde tout part en vrille , la seconde s'affiche mais la première disparaît :

http://img11.hostingpics.net/pics/200325form2.png

Et voici le code pour les deux :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 n = 2 x = Application.WorksheetFunction.Sum(Range("A" & n & ":IV" & n)) If x = 0 Then n = 0 Else Sheets(2).Rows(19).Insert Shift:=xlDown Sheets("Feuil2").Range("C19:E19").Value = Sheets("Feuil3").Range("C2:E2").Value End If n = 3 x = Application.WorksheetFunction.Sum(Range("A" & n & ":IV" & n)) If x = 0 Then n = 0 Else Sheets(2).Rows(19).Insert Shift:=xlDown Sheets("Feuil2").Range("C20:E20").Value = Sheets("Feuil3").Range("C3:E3").Value End If
Je ne comprend pas trop d'où cela pourrais venir j'ai essayer pas mal de chose en vain :x

En vous remerciant d'avance .

Surinox

1 pièce(s) jointe(s)

J'ai réussie à trouver comment faire :

Code:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
'Transfert des données saisie sur le formulaire d'impression
n = 2
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(19).Insert Shift:=xlDown
Sheets("Feuil2").Range("C19:E19").Value = Sheets("Feuil3").Range("C2:E2").Value
End If
 
'////////////////////////////////////
n = 3
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(20).Insert Shift:=xlDown
Sheets("Feuil2").Range("C20:E20").Value = Sheets("Feuil3").Range("C3:E3").Value
End If
 
n = 4
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(21).Insert Shift:=xlDown
Sheets("Feuil2").Range("C21:E21").Value = Sheets("Feuil3").Range("C4:E4").Value
End If
 
n = 5
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(22).Insert Shift:=xlDown
Sheets("Feuil2").Range("C22:E22").Value = Sheets("Feuil3").Range("C5:E5").Value
End If
 
n = 6
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(23).Insert Shift:=xlDown
Sheets("Feuil2").Range("C23:E23").Value = Sheets("Feuil3").Range("C6:E6").Value
End If
 
n = 7
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(24).Insert Shift:=xlDown
Sheets("Feuil2").Range("C24:E24").Value = Sheets("Feuil3").Range("C7:E7").Value
End If
 
n = 8
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(25).Insert Shift:=xlDown
Sheets("Feuil2").Range("C25:E25").Value = Sheets("Feuil3").Range("C8:E8").Value
End If
 
 
n = 9
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(26).Insert Shift:=xlDown
Sheets("Feuil2").Range("C26:E26").Value = Sheets("Feuil3").Range("C9:E9").Value
End If
 
n = 10
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(27).Insert Shift:=xlDown
Sheets("Feuil2").Range("C27:E27").Value = Sheets("Feuil3").Range("C10:E10").Value
End If
 
n = 11
x = Application.WorksheetFunction.Sum(Sheets("Feuil3").Range("A" & n & ":IV" & n))
If x = 0 Then
n = 0
Else
Sheets(2).Rows(28).Insert Shift:=xlDown
Sheets("Feuil2").Range("C28:E28").Value = Sheets("Feuil3").Range("C11:E11").Value
End If

Le soucis qui s'expose à moi désormais est le fait que lorsque une ligne est vide sa casse tout au niveau de la mise en page , je montre une image pour m'expliquer , je veut afficher les 10 produits par exemple , avec une ligne manquante comme ceci :

http://img11.hostingpics.net/pics/152710Capture2.png

Et lorsque j'affiche sur le formulaire d'impression tout ce retrouve décaler .

http://img11.hostingpics.net/pics/482499Capture3.png

En vous remerciant d'avance !

08/06/2015, 09h28
Surinox

Bonjour , je reviens vers toi , tout d'abord merci de ton aide qui m'a beaucoup était utile , j'ai un soucis avec mon tableau désormais , et je pense que cela est due au fait que j'ai jouter une zone de liste à la place d'un textbox ( ou cela n'a peut être rien voir ) . J'ai essayer de debug en pas à pas mais impossible de trouver d'où cela provient . Si tu pouvais m'aider un petit peu ce serrait super sympa ;) . Je t'avais expliquer en détail en privé les soucis que je rencontrer et normalement tu doit avoir le fichier avec par liens .

En te remerciant d'avance .