If qui ne fonctionne pas

Bonjour,

J'ai une petite procédure dont la partie if ne fonctionne pas.

Qu'il y ait ou non une valeur "1" dans mes cellules, elle me donne toujours le message et je ne veux le message que si elle trouve une valeur "1".

J'ai essayé de différentes façons.

j'ai essayé iserror, entre autres, mais toujours le même résultat.

j'ai joint le fichier. Ce que j'ai mis en commentaires fonctionne très bien.

UN GROS MERCI

Claire

44verification.xlsm (39.22 Ko)

Bonsoir,

Tu recherches "1" (entre " " = chaine de caractère) et non pas 1 (en numérique) qui est dans tes cellules.

Tu peux aussi être plus précise :

Sub Controle()
    Dim nbErr As Long
    nbErr = Application.CountIf([W:AF], 1)
    If nbErr Then MsgBox "Vous avez " & nbErr & " anomalie(s)"
End Sub

eric

Bonjour,

Un gros merci à Eriiic, cela fait exactement ce que je veux et en mieux. Alors je suis très satisfaite.

Merci

Claire

Rechercher des sujets similaires à "qui fonctionne pas"