Excel : fonction countif dans macro Résolu/Fermé

Question

Bonjour ,ma macro suivante bloque (erreur 2015)cv2="1234"z=0For y = 1 To 9If Application.CountIf(cv2, y) = 1 Then z = z + 1next ynormalement, quand y=1, countif devrait renvoyer 1 (qui est dans la variable cv2) et mon compteur z devrait augmenter de 1Un grand merci par avance de bien vouloir aider un débutantMimi

mimi · Accepted Answer

merci beaucoup lami20j tes explications m'ont bien aidées. En fait je veux savoir si mon compteur i (de 1 à 9) est contenu au moins une fois dans ma variable cv2 (="1234") je connaissais comme test logique : a=b ou a > b ou a < b ou a <> b mais pas a "est contenu dans" b j'ai modifié ma macro en ajoutant if y = 1 then x = "*1*" et j'utilise x dans la fonction CountIf au lieu de y cela donne : For y = 1 To 9 If y = 1 Then x = "*1*" Cells(2, 44) = cv2 If Application.CountIf(Cells(2, 44), x) = 1 Then z = z + 1 si j'écris ma variable cv2 en cells (2,44), ma macro marche et z augmente de 1 par contre si je remplace cells(2,44) par le nom de ma variable cv2 If Application.CountIf(cv2, x) = 1 Then z = z + 1 j'ai le message d'erreur d'exécution13 : incompatibilité detype Merci d'avance si tu as une astuce pour résoudre ce problème mimi

lami20j · Answer

Salut,Option ExplicitSub a()    Dim z, y    For y = 1 To 9    If Application.WorksheetFunction.CountIf(Range("a1:a9"), y) = 1 Then        z = z + 1    End If    Next y    MsgBox zEnd SubIl faut comprendre ce que fait la fonction CountIf.La fonction CountIf compte le nombre d'occurences existantes dans une plage de cellules selon un critére.Dans ton cas si les critéres ( de 1 à 9 ) sont uniques la variable z sera incrementé.Prenons l 'exemple d'une plage a1:a9 avec les données123445555Le résultat de la macro sera 3 puisque 4 et 5 on les trouve plusieurs fois, tandis que 1,2 et 3 une seule fois.Si par exemple on met la condition = 2Application.WorksheetFunction.CountIf(Range("a1:a9"), y) = 2 Tu peux dire le résultat et pourquoi? Mais sans exécuter la macro ;)Mieux vaut dire ce que tu veux obtenir pour savoir mieux t'aider.lami20jP.S. En brefApplication.WorksheetFunction.CountIf(Range("a1:a9"), y) = 1veut dire Combien des éléments on les trouve une seule fois (parmi les critéres de 1 à 9)?

lami20j · Answer

Re,bon, j'essaie ton code et chez moi n'affiche rien.En revanche pour ton problème il faut que tu déclare cv2 en tant qu'objet Range et ensuite tu lui attribues ta plage avec le mot clé setComme ça tu peux utiliser la variable puisque CountIf demande un objet Range pour le 1er argument.Dim cv2 As RangeSet cv2 = Cells(2, 44)lami20j

lami20j · Answer

Re,ce n'est pas plutôt ça que tu veux?Sub a()    Dim cv2, z, y    cv2 = "1234"        For y = 1 To Len(cv2)         If Mid(cv2, y, 1) = 1 Then z = z + 1    Next y    MsgBox zEnd Sublami20j

mimi · Answer

Merci beaucoup pour tes 2 réponses, c'est tout à fait ce que je voulait (ta 2ème réponse)pour ta première réponse, j'avais écris la variable en cells(2,44) carIf Application.CountIf(cv2, x) = 1 Then z = z + 1 ne fonctionnait paspar contre :If Application.CountIf(Cells(2, 44), x) = 1 Then z = z + 1 fonctionnait si je mettais en format texte au préalable la cellule (2,44)je vais pouvoir finir mes macros qui résolvent les grilles de sudoku !!toutes mes macros fonctionnent :recherche par lignerecherche par colonnerecherche par régionsrecherche du seul chiffre uniquerecherche par l'approche essai / erreurmais je ne savais pas faire lorsque dans une région, plusieurs choix possibles existent pour chaque cellule vide mais un seul chiffre n'apparait qu'une fois.si mon fichier t'intéresse, n'hésite pas à m'envoyer une adresse  mail encore mercimimi

Cécile · Answer

Bonjour,

J'aimerais utilisé la fonction CountIf en faisant référence dans la condition à un cellule, je m'explique : 
j'aimeraisque utilisé quelque chose comme ca : 

Dim m As Double
m = Range("C4").Value
ActiveCell.Formula = Application.WorksheetFunction.CountIf(Range("B2:B6"), "<m")

mais ca ne marche pas et je suppose que c'est à cause du m mais j'arrive pas à le résoudre!!!

Merci beaucoup

Cécile

lami20j · Answer

Salut,
Sub compter()
    Dim m As Double
    m = Range("C4").Value
    Range("a1") = _
            Application.WorksheetFunction.CountIf(Range("B2:B6"), "<" & m)
End Sub
lami20j

Cécile · Answer

Merci!

Cécile · Answer

Rebonjour,

je te remercie pour ta réponse super rapide mais la technique que tu m'as donnée fonctionne uniquement si les nombres contenus dans les cases en question sont des entiers. Or les nombres que je veux utiliser sont des décimaux. 
Comment est ce que je peux faire? Utiliser une autre fonction?

Merci beaucoup pour ton aide!

Cécile

lami20j · Answer

Salut,

essaie çaSub compter2()
    Dim n, i
    Dim plage As Range
    Set plage = Range("B2:B6")
    For i = 1 To plage.Count
        If Range("b" & i) < Range("c4").Value Then
            n = n + 1
        End If
    Next i
    Range("a1") = n
End Sublami20j

Cécile · Answer

Salut, 

merci pour ta réponse mais en fait j'avais déjà essayer d'utiliser une boucle mais j'ai plus de 6000 données à traiter et c'est très très long avec une boucle ...

Tant pis je vais chercher autre chose, j'espérais qu'il existe l'équivalent de Countif mais pour le cas de valeur variant décimal...

lami20j · Answer

Salut,

Tant pis je vais chercher autre chose Alors essaie ça.
Sub compter3()
    Dim m As Double
    m = Range("C4")
    MsgBox m
    Range("a1") = _
            Application.WorksheetFunction.CountIf(Range("B2:B6"), "<" & Val(m))
End Sublami20j

Cécile · Answer

Salut

merci pr ton aide mais apparemment ca ne fonctionne pas pr les nombres inférieurs à 1...
Je cherche!

merci en tout cas, 

Cécile

lami20j · Answer

Salut,

je vais voir ça.
En revanche je vois que les infos tu les donnes petit à petit. Dès que je crois que c'est fini, tu ajoutes encore une "couche" ;)

J'ai peur de trouver une solution pour les nombres inférieurs à 1, puisque je me pose la question : La suite ça sera quoi?

lami20j

bayit · Answer

slt je cherche un logiciel ou un programe pour unitisé EXEL