Discussion :

[Pierre67]

Bonsoir,

j'ai un petit souci vba où je ne suis pas expert comme beaucoup d'entre vous.
j'ai un tableau

en colonne 1 : des dates
en colonne 2 : des valeurs

nombre de lignes variables

dans une seconde feuille, je souhaite faire la somme des valeurs (en colonne B) si elles correspondent à des jours du mois de novembre par exemple
30/10/08 0,500
04/11/08
22/11/08 10,000
23/11/08 7,000
24/11/08 9,000
25/12/08 31,000
comment peut-on traduire cela en vba

Merci à vous tous

[casefayere]

Bonsoir,
regardes ce code, essayes le sur fichier vierge et adaptes à tes besoins, sans plus d'explications

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim x As Integer
Dim dt1 As Date, dt2 As Date
dt1 = InputBox("date debut")
dt2 = InputBox("date fin")
 
With Sheets("feuil1")
For x = 2 To .Range("a" & .Rows.Count).End(xlUp).Row  'sil n'y a que des dates en col A
If .Range("a" & x) >= dt1 And .Range("a" & x) <= dt2 Then
Sheets("feuil2").Range("a1") = Sheets("feuil2").Range("a1") + .Range("b" & x)
End If
Next x
End With
End Sub

bonne soirée

[Pierre67]

Bonsoir l'ami

on est pas expert pour rien, chapeau bas

Code :

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

Sheets("feuil2").Range("a1") = Sheets("feuil2").Range("a1") + .Range("b" & x)

je ne comprends pasbien cette formule avexc 2 fois range A1
ca fonctionne bien, je vais essayer de l'adapter à mon projet

merci beaucoup

[casefayere]

2 fois range("a1") pour faire la somme, A1 garde la 1ere valeur de la 1ere cellue correspondante et au fur et à mesure incrément avec les nouvelles données, mais il y a d'autres solutions

Bonne nuit ou bonne soirée

[Pierre67]

Oui ça boucle c'est vrai.
En tout cas grand merci à vous surtout pour la rapidité je suis bluffé.
Oui il y a peut être également une soluce avec Sommeprod en vba ??
Bonne soirée

[casefayere]

Si cette solution te convient et que tu ne comptes pas poursuivre le sujet, penses à mettre "RESOLU"

a +