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"
auriez vous une solution ??
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
je vous remercie par avance !!![]()
Partager