Countifs dans vba

Anonyme
2020-07-09T21:50:26+00:00

Bonjour. 

Pourquoi dans vba WorksheetFunction.countifs ne marche pas sauf si il a les arguments de countif ? Vba renvoie qu'il ne peut pas lire la classe countifs de WorksheetFunction. Le code il est pourtant simple : 

Sub compter()

Dim plage1 As Range

Dim plage2 As Range

Sheets("Feuil1").Select

Set plage1 = Range("b2", Range("b1048576").End(xlUp))

Set plage2 = Range("c2", Range("c1048576").End(xlUp))

Range("D2").Value = WorksheetFunction.CountIf(plage1, "oui")

Range("e2").Value = WorksheetFunction.CountIf(plage2, "Paris")

Range("f2").Value = WorksheetFunction.CountIfs(plage1, "non", plage2, Paris)

L'erreur survient sur la dernière ligne. Au pire comment contourner ce souci ? La fonction ne marche absolument pas.

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire

3 réponses

  1. Anonyme
    2020-07-10T06:13:48+00:00

    il manque des guillemets autour de Paris

    D'où l'intérêt de la commande
    Option Explicit
    en début de module.
    C'est une petite contrainte en regard de ce que ça apporte.

    Ceci dit, on peut l'appliquer à deux plages ?

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  2. Hecatonchire 53,870 Points de réputation Modérateur bénévole
    2020-07-09T23:21:34+00:00

    Bonjour

    dans

    Range("f2").Value = WorksheetFunction.CountIfs(plage1, "non", plage2, Paris)

    il manque des guillemets autour de Paris

    Range("f2").Value = WorksheetFunction.CountIfs(plage1, "non", plage2, "Paris")

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  3. Anonyme
    2020-07-09T21:51:43+00:00

    Bonjour,
    Je suis William, assistant indépendant, ravi de vous venir en aide.
    Avez vous essayé de désinstaller et réinstaller l'application ?
    Cela devrait résoudre votre souci.
    Au plaisir d'avoir votre retour,
    William

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire