Bonjour à tous (a nouveau)

je dois faire une macro qui me permet d'obtenir a partir d'un document qui liste les commandes par jours (4-5 lignes par dates qui correspondent aux differents produits commandés par jour) avec le nombre de produits commandés qui sont répartis par box. Je dois obtenir le nombre de box par jour. et ainsi determine rle nombre de pains de glaces et de grilles par box

J'avais donc commencé a établir cette macro pour determiner le nombre de ligne utilisées par jour (en fonction du nombre de produits demandés)
sauf que j'ai un depassement de capacité des ma premiere boucle. donc peut etre qu'en rentrant ma date manuellement meme au format excel mm/jj/aaaa, ensuite il n'arrive pas a les retrouver dans ma colonne D
si vous avez une solution merci merci merci

le voici :

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
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
Sub nbbox()
 
Dim i As Byte
Dim debut As Byte
Dim fin As Byte
Dim dat As Date
 
 
 
'Entrer la date
dat = InputBox("Date Format mois/jour/annee", "Date livraison")
 
 
'Worksheet("BBD").Activate
i = 10
 
While Cells(i, 4) <> dat
    i = i + 1
Wend
 
debut = i
 
Do Until Cells(i, 4) <> dat
    i = i + 1
Loop
 
fin = i - 1
MsgBox ("debut")
MsgBox debut
 
MsgBox ("fin")
MsgBox fin
 
maplage = Range(Cells(debut, 4), Cells(fin, 4))  'range de celules avec la date colonne 4
 
'nb box : somme colonnes diff de 0 n=14
Dim der As Long
der = Range(Cells(9, 14)).End(xlToRight).Column 'nb de box vides ou pleines
 
Dim som() As Variant 'creer une var tableau pour le nombre de box potentielles
 
Erase som
 
Dim h As Integer
Dim sup As Long
h = 0
 
'remplir le tableau avec les sommes
    For colonne = 14 To der                'colonne par box
    sup = 0
        For lignesdates = debut To fin     'lignes dates
            sup = sup + Cells(lignesdates, colonne)
        Next lignesdates
 
        If sup <> 0 Then
        som(h) = sup
        h = h + 1
        Else
        End If
 
        Next
 
ReDim som(h) As Variant
 
 
'on obtient le tableau rempli sans valeur nulle
 
 
'nb grilles : somme / 13 arrondie au dessus (4 grilles max)
'nb pains de glaces = nb de box
 
End Sub