Macro avec condition

**ANTMA** · 07/12/2007, 15h26

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** · 07/12/2007, 16h28

Salut

Tu les veux où tes sommes ?

**ANTMA** · 07/12/2007, 16h42

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** · 07/12/2007, 16h56

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** · 07/12/2007, 17h19

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** · 07/12/2007, 17h37

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** · 07/12/2007, 17h42

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

**ANTMA** · 07/12/2007, 17h59

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** · 07/12/2007, 18h02

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** · 07/12/2007, 18h06

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

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

Comprends pas ???

**melouille56** · 07/12/2007, 18h11

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

**ANTMA** · 07/12/2007, 18h18

parceque mes ref sont dans ma colonne 2 et mes dates dans ma colone 1

**melouille56** · 07/12/2007, 18h26

Bein là il prend sous dateval du texte, qu'il ne comprend pas en date donc, et sous ref une date, le 24/11/2007. C'est donc que les colonnes sont inversées quelque part.

envoie ton fichier si tu peux. sinon je ne vois pas trop d'où pourrait provenir l'erreur.

**ANTMA** · 07/12/2007, 18h38

d'autres part comme j'avais des doublons de classe (J,P,Y,S,C,M) dans mes données j'ai fait un filtre élaboré pour pouvoir supprimer les doublons

ca provient peut être de là

Macro avec condition

Macros et VBA Excel

Discussions similaires

Partager

Partager