Bonjour à tous.

Grace à joelevrai un nouvel horizon c'est ouvert à moi. J'ai un code de 8 lignes qui doit tourner 12 fois.

Objectif changer le lieu de stockage de la donnée dans tablo() ca c'est bon
Mais il faut aussi changer le critère "AAAA" par "AAAB" quand i =2 puis "AAAC" quand i =3.... Cela est il possible parce que là je ne vois pas comment à part recopier 12 fois le code et modifier le critère....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To 12
 
            With Application.WorksheetFunction
            tablo(i, 1) = .CountIf(maplage2, "AAAA")
            tablo(i, 2) = .MinIfs(MaPlage, maplage2, "AAAA")
            tablo(i, 3) = .MaxIfs(MaPlage, maplage2, "AAAA")
            tablo(i, 4) = .CountIfs(maplage2, "AAAA", MaPlage, "<1000")
            tablo(i, 5) = .CountIfs(maplage2, "AAAA", MaPlage, ">=1000", MaPlage, "<2000")
            tablo(i, 6) = .CountIfs(maplage2, "AAAA", MaPlage, ">=2000", MaPlage, "<3000")
            tablo(i, 7) = .CountIfs(maplage2, "AAAA", MaPlage, ">=3000")
            tablo(i, 8) = .AverageIfs(MaPlage, maplage2, "AAAA")
    End With
 
next i
Merci par avance.