Bonjour à tous
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.

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)
mais lorsque je veux lancer ma macro, j'ai un message d'erreur "sub ou fonction non definie"


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
Sub nbbox()
 
Dim i As Byte
Dim debut As Byte
Dim fin As Byte
Dim dat As Variant
 
 
 
'Entrer la date
dat = InputBox("Date Format jour/mois/annee", "Date livraison")
 
solveursols("BBD").Activate
i = 10
 
Do Until Cells(i, 4) = dat
    i = i + 1
Loop
 
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(i, 4), Cells(fin, 4))  'range de celules avec la date colonne 4
 
'nb box : somme colonnes diff de 0 n=14
 
 
'nb grilles : somme / 13 arrondie au dessus (4 grilles max)
'nb pains de glaces = nb de box
 
End Sub
auriez vous une solution ??
je vous remercie par avance !!