Discussion :

[Rania1990]

Bonjour tout le monde,

je voudrais créer une macro qui permet de sommer les résultats obtenus depuis le début du mois d'Août jusqu'à la veille (j-1) et sommer le reste à faire depuis aujourd'hui jusqu'à la fin du mois. Autrement dit une somme qui dépend de la date d'aujourd'hui.

Exemple:

01 02 03 04 05........ 22 23 24 25 26 27 28 29 30 31
12 0 0 0 1 4 3 5 3 10

Réalisé : somme (01 au 22) =
Reste à faire = somme (23 -31)


Merci d'avance pour votre aide

[anasecu]

Bonjour,

je voudrais créer une macro qui permet de sommer les résultats...

Pourquoi une macro ?
Tu peux avoir tes résultats facilement avec une formule.

[Rania1990]

Bonjour,

j'ai besoin d'une macro parce que la somme fait partie d'une formule que je veux copier dans des cellules grâce à la macro

merci

[anasecu]

Bonjour,

Je vois bien que tu tiens à une macro mais la justifier par " fait partie d'une formule " semble bien antinomique...

En tout cas pour créer une macro il faut connaitre l'organisation des données et leur spécificité de façon plus précise que ce que tu indiques.

[Pierre Fauconnier]

Salut.

Même si tu veux passer par une macro, pour une raison qui n'a pas été clairement énoncée et/ou établie, en Excel, tu gagneras souvent à penser Excel avant de penser VBA, et à te servir du VBA en appui d'Excel, et aussi, bien entendu, à travailler avec des tableaux structurés.

Formules dans Excel





Après, si tu veux traiter en VBA, tu peux utiliser la conversion de ces formules en VBA. Par exemple, pour la formule en E1, on a
=SUMIFS(Tableau1[Valeur],Tableau1[Date],">=01/" & MONTH(TODAY()) &"/" & YEAR(TODAY()),Tableau1[Date],"<" & TODAY())

Attention qu'en VBA, il est préférable de travailler avec des valeurs numériques pour les dates. Sur base de ce genre de constats, on pourrait créer deux fonctions qui recoivent une date pivot et qui calculent les valeurs en fonction de cette date:

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
Function SumBefore(PivotDate As Date)
  Dim Formula As String
  Dim lngFirstday As Long
  Dim lngPivot As Long
 
  lngPivot = PivotDate * 1
  lngFirstday = (PivotDate - Day(PivotDate) + 1) * 1
  Formula = "=SUMIFS(Tableau1[Valeur],Tableau1[Date],"">=|FirstDay|"",Tableau1[Date],""<|Pivot|"")"
  Formula = Replace(Formula, "|FirstDay|", lngFirstday, , , vbTextCompare)
  Formula = Replace(Formula, "|Pivot|", lngPivot, , , vbTextCompare)
  SumBefore = Evaluate(Formula)
End Function
 
Function SumAfter(PivotDate As Date)
  Dim Formula As String
  Dim lngFirstday As Long
  Dim lngPivot As Long
 
  lngPivot = PivotDate * 1
  lngFirstday = DateSerial(Year(PivotDate), Month(PivotDate) + 1, 1) * 1
  Formula = "=SUMIFS(Tableau1[Valeur],Tableau1[Date],"">=|Pivot|"",Tableau1[Date],""<|FirstDay|"")"
  Formula = Replace(Formula, "|FirstDay|", lngFirstday, , , vbTextCompare)
  Formula = Replace(Formula, "|Pivot|", lngPivot, , , vbTextCompare)
  SumAfter = Evaluate(Formula)
End Function

[BENNASR]

Bonjour mes ami(e)s
Peut être une piste plus simple
Pourquoi ne pas ajouter une colonne et si la date est inférieur à aujourd'hui il te met un "R" si non il te met un "P" avec R= réalisé et P = programmé
et un tableau croisé dynamique et tu aura ton bonheur et même si tu insiste sur VBA tu peux bricoler un code avec un simple boucle
BONNE CONTINUATION