Sub non definie et aide pour vba

Version imprimable

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:

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

19/03/2019, 17h20
marot_r

Bonjour.

Sur quelle ligne le message d'erreur ?

A+
19/03/2019, 17h33
Transitoire

Bonsoir, j'ai du mal avec la ligne ci-dessous:

Code:

solveursols("BBD").Activate

Qu'est-ce solveursols ?
Cordialement 8-)
19/03/2019, 18h12
vluciano

Bonjour le message d'erreur est sur SUB

"solveursols" une erreur dans mon copie collé (mais j'ai essayé une bonne quinzaine de fois)
19/03/2019, 18h13
vluciano

ET lorsque je veux définir mon argument dat (qui va représenter la date que je souhaite demander et ensuite rechercher) en variant, je ne peux meme plus lancer la macro... le lecteur ne l'affiche pas

Bonjour
teste ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub testx()
    dat = "12/03/2019"
    Set c = ActiveSheet.Columns("E:E").Find(Format(dat, "m/d/yyyy"), Lookat:=xlWhole) 'je cherche la premiere occurence de dat en specifiant le format meme si tu le vois pas ce format
    If Not c Is Nothing Then
        With ActiveSheet.Range(c, ActiveSheet.Cells(Rows.Count, "E").End(xlUp)) 'on englobe la recherche de la cellule premiere occurence a la derniere cellule ocupée en colonne("E")
 
           ' methode 1 >=dat et <=dat
            '.AutoFilter Field:=1, Criteria1:=">=" & CLng(CDate(dat)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(dat))
 
            'methode2 "=" avec le formatage magique excel "d/m/yyyy"
            .AutoFilter Field:=1, Criteria1:="=" & Format(dat, "m/d/yyyy")
 
           Set p = .SpecialCells(xlVisible) ' je recupere l'adress de cellule valides
            .AutoFilter ' j'arrete le filtre
        End With
        MsgBox "la plages valide est  : " & p.Address 'msgbox si oui
    Else
        MsgBox "pas de date correspondantes" 'msgbox si non
    End If
End Sub

c'est un probleme récurent la recherche de date dans une plage en effet ce que l'on voit n'est pas forcement ce qui est en terme de string
je recherche donc la valeur numerique de ta variable dat transformer en Date
j'ai largement commenté le code pour t'initier au filtres methode la plus rapide dans excel pour chopper une plage en particulier (contigue ou non)

en gros
pour les filtres et les dates sert toi de la valeur numerique de la date clng(cdate("xx/xx/xxxx")) ou du format magique excel format(dat,"m/d/yyyy")
j'ai rarement des problemes avec l'un ou l'autre

19/03/2019, 18h36
vluciano

Merci! en fait ça fonctionne en enlevant l'argument!

maintenant mon problème, c'est que je suis en dépassement de capacité dès ma première boucle :(

ça ressemble à ça :

nouveau 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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")
 
'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

19/03/2019, 18h58
patricktoulon

re

remplace bytes" par long
21/03/2019, 13h47
vluciano

merci!

merci!