Cumule dans une cellule qui n'est pas bon

Question

Dans mon fichier je cherche à cumuler le nombre de doublons qui se trouvent dans ,une ligne , colonne, bloc de 9 cellules j'ai mis les explications complémentaires dans le fichier Merci pour votre aide...

BsAlv · Accepted Answer

Re, alors, faute à moi, il faut déplacer cette ligne de nouveau comme première ligne du module et ne plus dans la macro Dim compteurDiff As Integer ' Compteur global pour conserver la valeur...

saboh12617 · Answer

Si tu parlais du format conditionnel pour mettre en évidence les doublons selon les règles du sudoku, ci-joint une solution. Pour les petits carrés 3x3 je n'ai pas trouvé mieux que de dupliquer 9 fois la règle.....

fanfan38 · Answer

Ci joint ma solution A+ François...

saboh12617 · Answer

Ah, oups.

Pour compter les cellules rouges moi je serai passé par leur couleur tout simplement :

    Set rng1 = ws.Range("E6:M14")

    count = 0
    Dim c As Range
    For Each c In rng1
      If c.DisplayFormat.Interior.Color = RGB(255, 0, 0) Then count = count + 1
    Next c
    ws.Range("N2").Value = count

Mais pour compter les mauvaises saisies (qui sont donc différentes du nombre de cellules rouges car 1 mauvaise saisie peut entrainer plusieurs cellules rouges), j'aurai compté ainsi :

=LET(_g1;E6:M14;_g2;P6:X14;SOMMEPROD(1*(_g1>0);1*(_g1<>_g2)))

EDIT : salut fanfan

saboh12617 · Answer

Alors passe par la formule ça me semble plus efficace. Cependant faire la comparaison avec la grille complète je trouve cela triché car on peut juste mettre des numéros au pif dans des cellules normalement inatteignables jusqu'à atteindre erreur = 0.

Personnellement, dans mon XL de sudoku j'avais simplement mis une colonne d'aide avec les numéros de 1 à 9 et leur nombre d'apparitions respectifs dans la grille. Ainsi je savais si j'avais mis "tous les 3" par exemple, sans me "spoiler" le résultat.

BsAlv · Answer

Un essai...