Discussion :

[vluciano]

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

[marot_r]

Bonjour.

Sur quelle ligne le message d'erreur ?

A+

[Transitoire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

solveursols("BBD").Activate

Qu'est-ce solveursols ?
Cordialement

[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)

[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

[patricktoulon]

Bonjour
teste ceci

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
 
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