Userform et tableaux multiples

Version imprimable

12/08/2013, 14h10
mathieu38950

Userform et tableaux multiples

Bonjour à tous,

Je me suis remis depuis peu dans VBA, et je vous sollicites car je bloque sur problème.

je créé un fichier afin de pouvoir répondre à des demandes de délais pour différents produits. (2 pour simplifier)
-CA
-CU

et pour chaque produits j'ai plusieurs tailles. 10, 12, 14, ....

j'ai un onglet par produits,
et pour chaque produits j'ai 12 tableaux (1 pour chaque mois de l'année) que je complète au fur et à mesure.

mon but est de simplifier la saisie avec une UserForm qui regroupe tous mes produits et les tailles de produits.
et la validation remplierait le tableau automatiquement en fonction du produit (récupéré dans la frame qui correspond à l'onglet), mois demandé pour la livraison et les quantité.

je sais qu'il vaut mieux éviter de poster un fichier dès le premier post ...

mais je crois que dans mon cas, ca sera beaucoup plus clair pour vous avec le fichier.

de plus, est-il possible lors du remplissage des tableaux, de classer (regrouper) les commandes par client et ensuite par dates ??

Dans ma version le tableau repère bien la dernière ligne vide mais je ne sais pas comment séparer les mois ? du coup il se place en décembre.

et je ne sait pas comment orienter mon copier collé dans les onglets approprié en fonction du nom de la frame.

merci de votre aide.

le fichier joint est la : http://cjoint.com/?0HmoeznELBt
12/08/2013, 15h22
Philippe Tulliez

Bonjour,

Citation:

je sais qu'il vaut mieux éviter de poster un fichier dès le premier post ...
mais je crois que dans mon cas, ca sera beaucoup plus clair pour vous avec le fichier.

Pas du tout, il faut juste expliquer correctement ce que l'on souhaite faire, comment sont organisées les données et ici il y a des gens avec une intelligence normale qui je pense peuvent comprendre les choses quand elles sont correctement détaillées.
Il y a 15 ans sur les forums, on ne pouvait pas inclure des fichiers et curieusement cela ne nous a pas empêché d'avancer.
Pour revenir à ton problème, je me tournerais vers un module de classe pour traiter les tailles.
Un peu de lecture pour commencer Création et utilisation de classes personnalisées en VB 6.0 et VBA (partie 1)
14/08/2013, 09h17
mathieu38950

Merci de ta réponse, et de ce lien très utiles qui m'a appris pas mal de chose.

Par contre je n'arrive pas à comprendre l'utilité de ce module pour mon problème ...

pour moi, je pensai qu'avec des conditions, ce que l'on écrit dans la "frame" est orienté sur le bon onglet (qui correspond à la frame), et ce que l'on écrit dans la "textbox" date elle t'oriente dans le bon tableau de l'onglet pour le mois.

me trompe-je ??
14/08/2013, 09h35
EngueEngue
Bonjour,

Tu te trompes, avec des classes c'est faisable.

Pour repérer les mois je te conseille de faire un select case dont voilà une petite application.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim x As Date x = 11 / 12 / 2012 MsgBox Month(x) Select Case Month(x) Case 12 MsgBox ("hello") End Select End Sub
Je ne comprends pas ce que tu veux dire par frame...

Si c'est ta feuille il suffira de mettre dans ton select case un autre select case ?

Code:

Sheets("CUF").cells(....)=textbox1
14/08/2013, 10h02
mathieu38950

si tu regarde dans mon userform il y a un "cadre" qui entoure mes 2 produits qui s'appel "frame" dans vba.
14/08/2013, 10h08
EngueEngue

Code:

MsgBox (Frame1.TextBox1.Text)

Alors récapitulons, en début de bouton valider tu cherches la ligne correspondant au mois à remplir avec un select case.

Une fois trouvée.

Tu vas affecter les valeurs de tes textbox aux bons endroits. Tu as le sheet, la colonne et la ligne... Que veux tu d'autre ?

Fini.
14/08/2013, 10h14
EngueEngue

Un frame dans ton cas ne va servir à rien qu'à faire joli.

Donc la seule chose que tu peux en faire c'est l'appeler en tant que parent de tes textbox...

Frame1.textbox va pointer vers ta textbox1 contenue dans ton frame1
14/08/2013, 10h19
mathieu38950

j'ai supprimé mon précédent msg je n'avais pas vu la fin du tien. dsl.

pour récapituler:

je veux que,

les quantités rentrées dans les textbox la Frame1 "CUF" soient copiées dans l'onglet CUF,

et que les quantités rentrées dans les textbox de la Frame2 "CAF" elles soient copiées dans l'onglet CAF.

le tout (pour corser la chose) doit se remplir dans le tableau approprié au bon mois renseigné dans la textbox "date" du userform.

en fait c'est faire un trie des renseignement et les copier au bon endroit.
14/08/2013, 10h25
EngueEngue
Bon

Tu fais un select Case sur ta textbox date que tu définis comme une date..
Puis à chaque case tu lui donnes la ligne du tableau dans laquelle tu dois copier tes données qui sont les mêmes pour CUF et CAF.

Une fois ceci fait.

Tu fais des:
Code:

1 2 3 If Frame1.Textbox1.text<>Empty then Sheets("CUF").cells(lindicedeslignesquetuastrouvéavectonselectcase,7)=Frame1.Textbox1.text End If
Et ainsi desuite...

Je ne peux pas être plus clair, ça fait trois fois que je te le dis.

Edit: Je viens de saisir que tes feuilles n'auront pas la même structure vu que le nombre de commandes peut être différent... Solution de contournement, stocker pour chaque mois le numéro de la ligne que tu vas devoir remplir et l'incrémenter à chaque nouvelle commande

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 Private Sub CommandButton1_Click() Dim L As Integer L = Sheets("CUF").Range("B65536").End(xlUp).Row + 1 Sheets("CUF").Activate With Sheets("CUF") If TextBox1 <> Empty Then .Range("G" & L).Value = TextBox1.Value .Range("H" & L).Value = TextBox3.Value .Range("I" & L).Value = TextBox4.Value .Range("D" & L).Value = TextBox2.Value .Range("B" & L).Value = TextBox8.Value .Range("C" & L).Value = TextBox9.Value .Range("E" & L).Value = TextBox10.Value End If End With L = Sheets("CAF").Range("B65536").End(xlUp).Row + 1 Sheets("CAF").Activate With Sheets("CAF") If TextBox5 <> Empty Then .Range("G" & L).Value = TextBox5.Value .Range("H" & L).Value = TextBox6.Value .Range("I" & L).Value = TextBox7.Value .Range("D" & L).Value = TextBox2.Value .Range("B" & L).Value = TextBox8.Value .Range("C" & L).Value = TextBox9.Value .Range("E" & L).Value = TextBox10.Value End If End With TextBox1.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox2.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" End Sub
Voila un ce que j'ai pu faire pour le moment mais çà va pas bien plus loin ...
j'ai du me surestimer !!! :cry::cry:

j'oriente bien mes quantités dans la bonne feuille et les bonnes case, dans la dernière ligne vide de mon tableau. mais pas du tout dans le bon mois.

la fonction if marche à moitié ... en faite c'est juste pour dire si il n'y a rien dans les textbox CUF ca ne sert a rien de copier le client, le N° de commande dans l'onglet CUF ....

et en ce qui concerne la date je n'ai toujours pas compris ton histoire de select case . i'm sorry.

pour simplifier cette histoire de date, j'ai rajouter une comboBox avec les 12 mois de l'année.

ça sera plus simple ou non ?

Bonjour Mathieu !

Voici comment tu pourrais faire inscrivant ta date au complet:

Tu créer un module en insèrent ceci:

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
Public Function conversion(num As Integer) As String
Select Case num
Case 1
conversion = "Janvier"
Case 2
conversion = "Février"
Case 3
conversion = "Mars"
Case 4
conversion = "Avril"
Case 5
conversion = "Mai"
Case 6
conversion = "Juin"
Case 7
conversion = "Juillet"
Case 8
conversion = "Aout"
Case 9
conversion = "Septembre"
Case 10
conversion = "Octobre"
Case 11
conversion = "Novembre"
Case 12
conversion = "Décembre"
End Select
End Function

puis dans ton bouton 1 ceci :

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
Private Sub CommandButton1_Click()
Dim DateMois As Variant
Dim DateMoisSup As Variant
Dim L As Integer
Dim Mystre
Dim Cptr As String
Dim cz As Range
 
 
DateMois = Format(TextBox2, "mm") + 1 'recherche le numéro du mois +1
'If DateMois = 13 Then DateMois = 12
DateMoisSup = conversion(Val(DateMois))
 
'******
If TextBox1 <> Empty Then 'savoir si on insère unu ligne en CUF
 
Cptr = DateMoisSup
Set cz = Sheets("CUF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    L = cz.Row
    L = L - 2
    Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
    L = Sheets("CUF").Range("B65536").End(xlUp).Row + 1 ' si on est en décembre
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CUF")
 
.Range("G" & L).Value = TextBox1.Value
.Range("H" & L).Value = TextBox3.Value
.Range("I" & L).Value = TextBox4.Value
 
.Range("D" & L).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & L).Value = DateValue(Mystre)
.Range("B" & L).Value = TextBox8.Value
.Range("C" & L).Value = TextBox9.Value
.Range("E" & L).Value = TextBox10.Value
 
End With
End If
'*****
If TextBox5 <> Empty Then 'savoir si on insère unu ligne en CAF
 
Cptr = DateMoisSup
Set cz = Sheets("CAF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    L = cz.Row
    L = L - 2
    Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
    L = Sheets("CAF").Range("B65536").End(xlUp).Row + 1
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CAF")
 
.Range("G" & L).Value = TextBox5.Value
.Range("H" & L).Value = TextBox6.Value
.Range("I" & L).Value = TextBox7.Value
 
.Range("D" & L).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & L).Value = DateValue(Mystre)
.Range("B" & L).Value = TextBox8.Value
.Range("C" & L).Value = TextBox9.Value
.Range("E" & L).Value = TextBox10.Value
 
End With
End If
 
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox2.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
 
End Sub

Sur ce bouton il faudra certainement installer des conditions de saisie de date et. .......

Bon reste à améliorer certainement !

ça fonctionne parfaitement.

un grand merci à toi et aux autres.

je me permettrai de revenir vers vous si je bloque une nouvelle fois sur une modification à apporter.

Ha si peu être une info,

au lieu de mettre :
Code:

1 2 If TextBox1 <> Empty Then 'savoir si on insère une ligne en CUF
comment faire pour dire si toute les cases sont vide ?

parce que dans ce cas la si j'ai pas de CUF12 mais du 14 et du 16 et bien ça ne rempli pas ma ligne.

et la seconde chose,
Code:

1 2 3 4 5 If DateMois <> 13 Then L = cz.Row L = L - 2 Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ici je voudrai que ça me trouve la dernière ligne vide de la colonne B entre chaque Mois et que ça m’insère une nouvelle ligne plutôt que de faire 'L-2'

après ça je crois que se sera parfait.

Merci

pour mon second probleme, j'ai bricolé un truc qui fonctionne à moitié:
Code:

1 2 3 4 5 6 7 8 9 Set cz = Sheets("CUF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole) If DateMois <> 13 Then L = cz.Row L = Sheets("CUF").Range("B" & L).End(xlUp).Row + 1 Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Else L = Sheets("CUF").Range("B65536").End(xlUp).Row + 1 ' si on est en décembre End If
ça me trouve bien ma dernier ligne vide en colonne B et me rajoute ma commande, mais ça ne l’insert pas de ligne (ça copie à la suite et empiète sur le mois d’après)

pour ton dernier post, tu trouveras la solution pour éviter le L-2, mais je reste persuadé que la 1ère solution fonctionne! De plus tu pourras selon tes textbox différents de vides attribuée la feuille concernée !

donc voici :

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
93
94
95
96
97
98
99
100
101
102
Private Sub CommandButton1_Click()
Dim DateMois As Variant
Dim DateMoisSup As Variant
Dim L As Integer
Dim Mystre
Dim Cptr As String
Dim cz As Range
Dim OKCFU As Boolean
Dim OKCFA As Boolean
 
 
DateMois = Format(TextBox2, "mm") + 1 'recherche le numéro du mois +1
'If DateMois = 13 Then DateMois = 12
DateMoisSup = conversion(Val(DateMois))
 
'******
OKCFU = False
If TextBox1 <> Empty Then OKCFU = True
If TextBox3 <> Empty Then OKCFU = True
If TextBox4 <> Empty Then OKCFU = True
 
If OKCFU = True Then 'savoir si on insère unu ligne en CUF
 
Cptr = DateMoisSup
Set cz = Sheets("CUF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    L = cz.Row
    Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    L = Sheets("CUF").Range("B" & L).End(xlUp).Row + 1
    Else
    L = Sheets("CUF").Range("B65536").End(xlUp).Row + 1 ' si on est en décembre
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CUF")
 
.Range("G" & L).Value = TextBox1.Value
.Range("H" & L).Value = TextBox3.Value
.Range("I" & L).Value = TextBox4.Value
 
.Range("D" & L).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & L).Value = DateValue(Mystre)
.Range("B" & L).Value = TextBox8.Value
.Range("C" & L).Value = TextBox9.Value
.Range("E" & L).Value = TextBox10.Value
 
End With
End If
'*****
OKCFA = False
If TextBox5 <> Empty Then OKCFA = True
If TextBox6 <> Empty Then OKCFA = True
If TextBox7 <> Empty Then OKCFA = True
 
If OKCFA = True Then 'savoir si on insère unu ligne en CUF
 
Cptr = DateMoisSup
Set cz = Sheets("CAF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    L = cz.Row
    L = L - 2
    Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
    L = Sheets("CAF").Range("B65536").End(xlUp).Row + 1
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CAF")
 
.Range("G" & L).Value = TextBox5.Value
.Range("H" & L).Value = TextBox6.Value
.Range("I" & L).Value = TextBox7.Value
 
.Range("D" & L).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & L).Value = DateValue(Mystre)
.Range("B" & L).Value = TextBox8.Value
.Range("C" & L).Value = TextBox9.Value
.Range("E" & L).Value = TextBox10.Value
 
End With
End If
 
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox2.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
 
End Sub

20/08/2013, 08h58
mathieu38950

en effet hier soir j'ai trouvé la solution pour insérer la ligne, ca fonctionne parfaitement.

je regarde pour cet histoire de case vide ..

merci bcp

et là ? :

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
Private Sub CommandButton1_Click()
Dim DateMois As Variant
Dim DateMoisSup As Variant
Dim L As Integer
Dim M As Integer
Dim Mystre
Dim Cptr As String
Dim cz As Range
 
 
DateMois = Format(TextBox2, "mm") + 1 'recherche le numéro du mois +1
'If DateMois = 13 Then DateMois = 12
DateMoisSup = conversion(Val(DateMois))
 
'******
If TextBox1 <> Empty Or TextBox3 <> Empty Or TextBox4 <> Empty Then 'savoir si on insère unu ligne en CUF
 
Cptr = DateMoisSup
Set cz = Sheets("CUF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    L = cz.Row
    L = L - 2
    Sheets("CUF").Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
    L = Sheets("CUF").Range("B65536").End(xlUp).Row + 1 ' si on est en décembre
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CUF")
 
.Range("G" & L).Value = TextBox1.Value
.Range("H" & L).Value = TextBox3.Value
.Range("I" & L).Value = TextBox4.Value
 
.Range("D" & L).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & L).Value = DateValue(Mystre)
.Range("B" & L).Value = TextBox8.Value
.Range("C" & L).Value = TextBox9.Value
.Range("E" & L).Value = TextBox10.Value
 
End With
End If
'*****
If TextBox5 <> Empty Or TextBox6 <> Empty Or TextBox7 <> Empty Then 'savoir si on insère une ligne en CAF
 
Cptr = DateMoisSup
Set cz = Sheets("CAF").Columns("A:A").Find(What:=Cptr, LookAt:=xlWhole)
   If DateMois <> 13 Then
    M = cz.Row
    M = M - 2
    Sheets("CAF").Rows(M).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
    M = Sheets("CAF").Range("B65536").End(xlUp).Row + 1
  End If
If cz Is Nothing Then
MsgBox "votre date doit-être Incorrecte !"
Exit Sub
End If
 
With Sheets("CAF")
 
.Range("G" & M).Value = TextBox5.Value
.Range("H" & M).Value = TextBox6.Value
.Range("I" & M).Value = TextBox7.Value
 
.Range("D" & M).Value = Date$
  Mystre = Format(TextBox2.Value, "dd/mm/yy")
.Range("D" & M).Value = DateValue(Mystre)
.Range("B" & M).Value = TextBox8.Value
.Range("C" & M).Value = TextBox9.Value
.Range("E" & M).Value = TextBox10.Value
 
End With
End If
 
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox2.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
 
End Sub

20/08/2013, 14h15
mathieu38950

la première solution fonctionne parfaitement. merci.:ccool:

je regarde maintenant si il est possible d'obtenir un classement par nom de client lors du remplissage des tableaux ...