Excel Macro Calcul somme en fonction de dates
pierrelouis26
Messages postés
6
Statut
Membre
-
pierrelouis26 Messages postés 6 Statut Membre -
pierrelouis26 Messages postés 6 Statut Membre -
Je souhaiterais un coup de main pour le programme suivant
Un tableau avec deux colonnes
Colonne A = des dates chronologiques
Colonne B = des chiffres de fréquentation
Une userform forme dans laquelle
Deux ComboBox avec liste pour sélectionner date de début et date de fin (je sais faire)
En fonction de cette sélection, l'indication sur feuille ou sur Userform du cumul de fréquentation sur cette période (je n'y arrive pas)
Ex
A B
01/07 25
02/07 35
03/07 80
04/07 50
05/07 70
06/07 25
07/07 20
08/07 45
09/07 35
Je sélectionne dans la première liste (ça je sais faire)
03/07
Dans la 2e liste
08/07
Le résultat à afficher (ça je ne sais plus faire)
290
(soit = 80+50+70+25+20+45)
Merci pour votre aide !
Un tableau avec deux colonnes
Colonne A = des dates chronologiques
Colonne B = des chiffres de fréquentation
Une userform forme dans laquelle
Deux ComboBox avec liste pour sélectionner date de début et date de fin (je sais faire)
En fonction de cette sélection, l'indication sur feuille ou sur Userform du cumul de fréquentation sur cette période (je n'y arrive pas)
Ex
A B
01/07 25
02/07 35
03/07 80
04/07 50
05/07 70
06/07 25
07/07 20
08/07 45
09/07 35
Je sélectionne dans la première liste (ça je sais faire)
03/07
Dans la 2e liste
08/07
Le résultat à afficher (ça je ne sais plus faire)
290
(soit = 80+50+70+25+20+45)
Merci pour votre aide !
A voir également:
- Excel Macro Calcul somme en fonction de dates
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Nombre de jours entre deux dates excel - Guide
- Fonction si et excel - Guide
- Formule somme excel ligne - Guide
- Liste déroulante excel - Guide
2 réponses
Bonjour
un bout de code qui peut servir de base, à mettre dans l'évênement <Change> de la ComboBox2. Le total est affiché sur un Label
Bonne suite
un bout de code qui peut servir de base, à mettre dans l'évênement <Change> de la ComboBox2. Le total est affiché sur un Label
For i = 1 To 10
If CDate(Cells(i, 1).Value) >= CDate(ComboBox1.Value) And CDate(Cells(i, 1).Value) <= CDate(ComboBox2.Value) Then
Cumul = Cumul + Val(Cells(i, 2).Value)
End If
Next
Label1.Caption = Cumul
Bonne suite