Discussion :

[ANTMA]

Bonjour,

je souhaiterai faire une macro avec certaines conditions. J'ai une liste de donnée avec des dates dans ma colonne A, des ref artciles dans ma colonne B et des valeurs dans ma colonne F.
J'aurais besoin que la macro me fasse la somme des valeurs lorsque la ref article est la même et lorsque la date est la mm

Donc il faut que seon les dates de ma colonnes A et les ref de ma colonne B il y a somme ou pas des valeurs situé dans ma colonne F

donc si la date est la mm et la référence article est la même alors je fais une somme

sachant que mes reférence article change tout le temps .

[melouille56]

Salut

Tu les veux où tes sommes ?

[ANTMA]

Dans une collonne d'une autre feuille (Data Global) ou j'ai les ref articles, les dates.

Il faut que les sommes soient incorporé dans la feuill data global.

la valeur des sommes doivent s'incorporer en fonction de leur ref article et des dates

[melouille56]

Essaies ca. J'ai supposé que tout commence ligne 1, qu'il n'y a pas de cellules lignes vides entre 2

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
Sub test()
 
Dim i As Integer, j As Integer
Dim ref As String
Dim valeur As Long
Dim dateval As Date
 
i = 1
j = 1
While Not IsEmpty(Worksheets("Data Global").Cells(i, 1))
 
ref = Worksheets("Data Global").Cells(i, 1)
dateval = Worksheets("Data Global").Cells(i, 2)
 
    While Not IsEmpty(Worksheets("Feuille1").Cells(j, 1))
        If Worksheets("Feuille1").Cells(j, 1) = dateval And Worksheets("Feuille1").Cells(j, 2) = ref Then
            valeur = valeur + Worksheets("Feuille1").Cells(j, 3)
        End If
    j = j + 1
    Wend
 
Worksheets("Data Global").Cells(i, 3) = valeur
 
i = i + 1
Wend
 
End Sub

dis si ca marche

[ANTMA]

En fait j'ai du mal à comprendre ou je dois renseigner mes champs:

Dans ma feuil prestation j'ai

colonne 1 mes dates A partir de la ligne 80
colonne 2 mes ref A partir de la ligne 80
colonne 6 mes valeurs A partir de la ligne 80

la somme des valeurs doit ensuite être incorporer dans la feuille data global colonne 8 à partir de la ligne 14

les valeurs doivent être incorporer à la suite en fonction de leur ref article

Pareavnce merci beaucoupoupoiupup

Ca marche sauf que j'ai qu' une seul valeur qui s'affiche tout au long de ma colonne

????

[melouille56]

Essaye ca, j'ai modifié un peu

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
Sub test()
 
Dim i As Integer, j As Integer
Dim ref As String
Dim valeur As Long
Dim dateval As Date
 
i = 14
j = 80
While Not IsEmpty(Worksheets("Data Global").Cells(i, 1))
 
valeur = 0
ref = Worksheets("Data Global").Cells(i, 1)
dateval = Worksheets("Data Global").Cells(i, 2)
 
    While Not IsEmpty(Worksheets("prestation").Cells(j, 1))
        If Worksheets("prestation").Cells(j, 1) = dateval And Worksheets("prestation").Cells(j, 2) = ref Then
            valeur = valeur + Worksheets("prestation").Cells(j, 6)
        End If
    j = j + 1
    Wend
 
Worksheets("Data Global").Cells(i, 8) = valeur
 
i = i + 1
Wend
 
End Sub

[melouille56]

j'ai trouvé
place le j=80 apres dateval = blabla
je l'avais mal placé. sorry

[ANTMA]

Ca ne marche pas il me mets un Debogage

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
Sub test()
 
Dim i As Integer, j As Integer
Dim ref As String
Dim valeur As Long
Dim dateval As Date
 
i = 14
 
While Not IsEmpty(Worksheets("Data Global").Cells(i, 1))
 
valeur = 0
ref = Worksheets("Data Global").Cells(i, 2)
dateval = Worksheets("Data Global").Cells(i, 1)
j = 80
 
    While Not IsEmpty(Worksheets("prestation").Cells(j, 1))
        If Worksheets("prestation").Cells(j, 1) = dateval And Worksheets("prestation").Cells(j, 2) = ref Then
            valeur = valeur + Worksheets("prestation").Cells(j, 6)
        End If
    j = j + 1
    Wend
 
Worksheets("Data Global").Cells(i, 8) = valeur
 
i = i + 1
Wend
 
End Sub

[melouille56]

Chez moi ca marche.

As-tu lancé le pas à pas pour voir où était le problème ? As-tu vérifié si les colonnes et lignes étaient bien les bonnes ? Que te dit le message d'erreur et à quelle ligne plante-t-il ?

Mél

[ANTMA]

il comprend dateval comme etant = à 00:00:00

il comprend aussi ref comme étant égal à "24/11/2007"

Comprends pas ???

[melouille56]

Tu t'es trompé dans les colonnes.

J't'ai mis

Code :

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

1
2
ref = Worksheets("Data Global").Cells(i, 1)
dateval = Worksheets("Data Global").Cells(i, 2)

et tu as mis

Code :

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

1
2
ref = Worksheets("Data Global").Cells(i, 2)
dateval = Worksheets("Data Global").Cells(i, 1)

Inverse, et tout rentrera dans l'ordre