Boucle avec la fonction countifs vba

Fermé

amr37 - 6 mars 2016 à 01:43
Mosca - 6 mars 2016 à 18:07

Bonjour, ayant imprécier l'aide que les gens du forum nous accordent, j'aimerai m'adresser à vous pour se demander s'il y'a de possibilité de boucler avec la fonction countifs. Voici une coupe du code pour aide :
.Cells(2, 4) = Application.WorksheetFunction.CountIfs(Plage1, X1, Plage2, Y1)
.Cells(3, 4) = Application.WorksheetFunction.CountIfs(Plage1, X2, Plage2, Y2)
.Cells(4, 4) = Application.WorksheetFunction.CountIfs(Plage1, X3, Plage2, Y3)
.Cells(5, 4) = Application.WorksheetFunction.CountIfs(Plage1, X4, Plage2, Y4)
.Cells(6, 4) = Application.WorksheetFunction.CountIfs(Plage1, X5, Plage2, Y5)
.Cells(7, 4) = Application.WorksheetFunction.CountIfs(Plage1, X6, Plage2, Y6)
Plage1 et plage2 représentent des plages nommées définies auparavant
X et Y sont des constantes
je souhaite réduire ce code (à noter qu'il y'en a plusieurs lignes) à l'aide d'une boucle qui calcul de cellules en cellule pour la méme colonne ainsi x1 avec Y1, X2 avec Y2 et ainsi de suite
Merci d'avance pour l'aide et le temps

A voir également:

1 réponse

Réponse 1 / 1

Mosca
6 mars 2016 à 18:07

Bonjour,

Si tu mets les constantes X et Y en tableau ça peut le faire

for i=2 to 7
.Cells(i, 4) = Application.WorksheetFunction.CountIfs(Plage1, X(i-1), Plage2, Y(i-1)) 
next

cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Mon pc s'allume et s'éteint en boucle

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters