Faire un somme dans une boucle for each

**tools** · 24/01/2011, 19h55

Bonsoir!

Débutant en vba, je souhaite faire la somme des cellules en v qui seront dans les critéres de la boucle for each suivante :

Code :

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

1
2
3
4
5
6
7
8
Dim couts As Integer
 
liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      'Faire la somme des cellule en V dans une variable 
   End If
Next

Je ne sais même pas si j'utilise la bonne démarche pour réaliser ce que je souhaite et je n'y arrive pas de toute façon.

D'avance merci de prendre le temps de m'aider.

Cordialement

**Philippe Tulliez** · 24/01/2011, 20h31

Bonsoir,
Je ne sais pas ce que c'est qu'une somme en V. Pourrais-tu m'éclairer.
Mis à part cela
J'ai détecté trois erreurs dans ton code

Code :

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

1
2
3
4
5
6
7
8
 
 Dim m As Range, Liste As Range
 Set Liste = Range("p1:p" & nfait)
 For Each m In Liste
   If m >= date1 And m <= date2 Then
      'Faire la somme des cellule en V dans une variable
   End If
 Next

m et Liste dans ton code représente un objet Range donc pour assigner une référence au Range il faut utiliser Set.
Pour assigner une valeur à une variable, on utilise le signe égal.
Pour assigner à une variable une référence à un objet, on fait précéder l'instruction du mot clé Set
De plus tu as ajouté une parenthèse après le nom de ta variable Liste dans la boucle.

**tools** · 24/01/2011, 21h14

Bonsoir

Merci de me venir en aide et aussi rapidement.

Tout d'abords merci de corriger mon code qui été faux.

Ensuite ma somme en P: en fait je souhaite additionné toutes les cellules de la colonne P mais dont la ligne est comprise entre les 2 dates.

Dans la première parti de mon code j'arrive à compter le nombre de ligne qui corresponde à mon critère, mais dans la deuxième partie (ma somme en P) j'aimerais additionner les cellule de la colonne P qui ont été compté dans mon premier code.
Mais mes capacités sur vba sont très limitées donc le je bloque.

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
Dim nfait As Integer, liste() As Variant, m
 Dim fait As Integer
 Dim cours As Integer
 
' recherche le nombre réalisé les 7 derniers jours
 
    Sheets("HISTO.SYSTEMATIQUE").Select
    ActiveSheet.Unprotect Password:="remi"
 
nfait = Range("p" & Rows.Count).End(xlUp).Row
set liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      fait = fait + 1
   End If
Next
 
' recherche le couts des SM réalisé les 7 derniers jours
 
  Dim couts As Integer
 
set liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      'Faire la somme dans côuts en main d'ouevre dans une variable
      'Faire la somme des côuts en materiel dans une variable
   End If
Next

Encore merci de prendre le temps de m'aider

**zazaraignée** · 25/01/2011, 16h35

Histoire de s'assurer que tout ira bien, ne pas oublier d'ajouter

Code :

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

Set liste = Nothing

afin de libérer la mémoire car lorsqu'on assigne un objet à une variable, celui ci continue d'occuper la mémoire même lorsque la procédure ou la fonction est terminée.

Alors si vous ne voulez pas vous retrouver avec des débordements...

Ce que tu cherches à faire se fait facilement en utilisant un filtre, il me semble.

**jfontaine** · 25/01/2011, 16h53

Bonjour,

Le mieux serait de faire les sommes dans le premier passage
Comme tu ne dis pas dans quelle colonne se trouve les coûts, dans l'exemple j'ai pris la colonne 5 soit E

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
Dim nfait As Integer, liste() As Variant, m
 Dim fait As Integer
 Dim cours As Integer
 Dim couts As Integer

' recherche le nombre réalisé les 7 derniers jours
    
    Sheets("HISTO.SYSTEMATIQUE").Select
    ActiveSheet.Unprotect Password:="remi"
 
nfait = Range("p" & Rows.Count).End(xlUp).Row
set liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      fait = fait + 1
      couts = couts + cells(m.row,5).value   '
   End If
Next

**Qwazerty** · 25/01/2011, 22h18

Salut
Héhé, maintenant que je "sais" l'utiliser (merci Mercatog

)

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
Sub test()
Dim Couts As Double
Dim List As Range
Dim Date1 As Date, Date2 As Date
Dim Nfait As Long
 
'Init variables
Nfait = 40 'juste pour faire des essais
Set List = Range("p1:p" & Nfait)
Date1 = CDate("01/01/2011")
Date2 = CDate("31/01/2011")
 
 
'Avec les couts à sommer en colonne V (donc 6 colonnes de plus que Liste)
Couts = Evaluate("SUMPRODUCT((" & List.Address & ">=" & CStr(CLng(Date1)) & ")*(" & List.Address & "<=" & CStr(CLng(Date2)) & ")*" & List.Offset(0, 6).Address & ")")
 
End Sub

++
Qwaz

**tools** · 28/01/2011, 14h08

Bonjour,

J'aimerais faire la somme des nombres dans une variable mais sous 2 conditions de date.

Ma source de données fonctionne en lignes, une ligne est une action.

Si l'action est comprise entre 2 dates : ex : >01/01/2011 mais < 10/01/2011
Alors je somme les couts de toutes les actions comprises entre les 2 dates dans une variable.
Donc toutes les lignes comprises entre ces 2 dates : j'additionne les cellules "V" dans une variable.
Mes dates sont dans la colonne "P"

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
Dim nfait As Integer, liste() As Variant, m
 Dim couts As Integer
 
' recherche le nombre réalisé les 7 derniers jours
 
    Sheets("HISTO.SYSTEMATIQUE").Select
    ActiveSheet.Unprotect Password:="remi"
 
nfait = Range("p" & Rows.Count).End(xlUp).Row
set liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      couts = couts + cells(m.row,5).value   '
   End If
 
Sheets("INDICATEURS").Select
Range("E13").Value = couts
 
Next

Mes deux dates sont définies plus tôt dans le programme
Mais le problème bloque à ce niveau :

Code :

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

couts = couts + cells(m.row,5).value

Avec : Erreur d'exécusion 424 : objet requis

D'avance merci de prendre le temps de m'aider.

Cordialement

**U. Milité** · 28/01/2011, 16h55

Bonjour,

Le "sous-forum" macros et VBA aurait sans doute été plus adapté ... ?
Le problème ne viendrait-il pas des parenthèses à la fin de la ligne suivante:

Code :

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