Discussion :

[Tiviia]

Bonjour

J'ai conçu une macro capable de compter des éléments selon plusieurs critères.
J'ai utilisé la fonction

Code :

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

answer=Application.WorksheetFunction.CountIfs(critères)

.
J'aurais aimé réinjecter les données trouvées dans un tableau qui évolue par mois de l'année.
Ainsi comment récupérer les données?
Dans un premier temps j'ai pu les récupérer grâce à la fonction "formula", on a donc par exemple:

Code :

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

Sheets("INDICATEURS").Range("O4").Offset(1).Formula =answer1

Or chaque les données sont différentes, et les adresses des cellules changent.
Comment procéder pour mettre les données l'une à côté de l'autre?
Sachant que j'ai 4 données par mois (answer).

Voila mon code:

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 compt()
Dim m As Date
m = CDate(Range("$AH$2"))
 
Dim plage As Range, plage1 As Range, plage2 As Range, plage3 As Range, plage4 As Range, plage5 As Range
 
'plage de référence pour les critères
Set plage = Range("A1" & ":A" & Range("A65000").End(xlUp).Row)
Set plage1 = Range("S1" & ":S" & Range("S65000").End(xlUp).Row)
Set plage2 = Range("J1" & ":J" & Range("J65000").End(xlUp).Row)
Set plage3 = Range("AQ1" & ":AQ" & Range("AQ65000").End(xlUp).Row)
 
answer = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, "<1", plage2, _
"<" & Format(m, "mm/dd/yyyy"))
Sheets("INDICATEURS").Range("O4").Formula = answer
 
answer1 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">=1", _
plage3, "<=6", plage2, "<" & Format(m, "mm/dd/yyyy"))
Sheets("INDICATEURS").Range("O4").Offset(1).Formula = answer1
 
answer2 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">6", _
plage3, "<=12", plage2, "<" & Format(m, "mm/dd/yyyy"))
Sheets("INDICATEURS").Range("O4").Offset(2).Formula = answer2
 
answer3 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">12", _
plage2, "<" & Format(m, "mm/dd/yyyy"))
Sheets("INDICATEURS").Range("O4").Offset(3).Formula = answer3
End Sub

PS:le tableau type en annexe.

Je vous remercie d'avance pour l'aide que vous m'apporterez!

Cdt
Tiviia