Bonjour,
J'ai écris un bout de code qui me permet calculer un pourcentage de personnes qui ont une note entre 2.5 et 3.5 et ceux qui ont une note supérieur à 3.5 :
Mais ma macro n'arrive pas à exécuter la deuxième boucle . Pourquoi ?
Merci d'avance à celui ou celle qui pourra m'aider.
Arthur
J'ai écris un bout de code qui me permet calculer un pourcentage de personnes qui ont une note entre 2.5 et 3.5 et ceux qui ont une note supérieur à 3.5 :
Code:
For j = 11 To 25
Range("E" & j).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Fiches!R[-1]C[-1]:R[-1]C[40],"">=3.5"")/COUNTA(Fiches!R[-1]C[-1]:R[-1]C[40])"
Selection.Style = "Percent"
Next
For k = 11 To 25
Range("F" & k).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Fiches!R[-1]C[-2]:R[-1]C[40],"">=2.5"",Fiches!R[-1]C[-1]:R[-1]C[40],""<3.5"")/COUNTA(Fiches!R[-1]C[-1]:R[-1]C[40])"
Selection.Style = "Percent"
Next
Mais ma macro n'arrive pas à exécuter la deuxième boucle . Pourquoi ?
Merci d'avance à celui ou celle qui pourra m'aider.
Arthur