Utiliser la Fonction NB.SI.ENS dans une macro

[Babar1986]

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 :

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

 

[JCGL]

Re : Utiliser la Fonction NB.SI.ENS dans une macro

Bonjour à tous,

Peux-tu essayer ceci (pas tester car pas de fichier joint...)

Option Explicit


Sub Test()
    Dim j As Byte, k As Byte
    For j = 11 To 25
        With Range("E" & j)
            .Formula = "=COUNTIF(Fiches!R[-1]C[-1]:R[-1]C[40],"">=3.5"")/COUNTA(Fiches!R[-1]C[-1]:R[-1]C[40])"
            .Style = "Percent"
        End With
    Next j


    For k = 11 To 25
        With Range("F" & k)
            .Formula = "=AND(COUNTIF(Fiches!R[-1]C[-2]:R[-1]C[39],"">=2.5""),COUNTIF(Fiches!R[-1]C[-2]:R[-1]C[39],""<3.5""))/COUNTA(Fiches!R[-1]C[-2]:R[-1]C[39])"
            .Style = "Percent"
        End With
    Next k


End Sub

A + à tous

 

[Babar1986]

Re : Utiliser la Fonction NB.SI.ENS dans une macro

Merci à toi pour cette réponse rapide.

Malheureusement je ne pourrai tester cela que Lundi prochain.

Arthur