Discussion :

[xema972]

Bonsoir à tous,

Je voudrai lancer un calcul conditionnel dans une macro, mais je n'arrive pas à utiliser le countif. Voici le contexte : la macro doit balayer une colonne c et me donner dans une msgbox le nombre de cellule "non vrai" et si le résultat est différent de 0 arreter la macro, en sachant que cette colonne n'est sensé ne contenir que des "vrai".

Merci pour votre aide

Petit complément qui à son importance, il faut que la macro balaye la colonne c jusqu'à la 1ere ligne vide.

[jfontaine]

Bonjour,

Comme cela peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Application.WorksheetFunction.CountIf(Range("C:C"), "non vrai") > 0 Then Exit Sub

EDIT : si la colonne C contient un titre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Application.WorksheetFunction.CountIf(Range("C1:C" & Range("C65536").End(xlUp).Row), "non vrai") > 0 Then Exit Sub

[xema972]

Merci pour ton aide, la macro ne s'arrete pas, elle continue sa vie !!
Et je n'ai pas le résultat dans la msgbox.

[jfontaine]

Ma proposition sort de la procédure si le nombre de cellule avec le texte "non vrai" dans la colonne C est supérieur à 0.
Reste a savoir si "non vrai" ne serait pas plutôt le booléen FAUX. Si c'est cela, remplace "non vrai" par False

[xema972]

Merci l'arret fonctionne.

Ou dois je placer msgbox "Il reste des lignes erronnées" dans le dode que tu m'as donné !!

[xema972]

J'ai trouvé

Merci beaucoup pour ton aide

[jfontaine]

Ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Application.WorksheetFunction.CountIf(Range("C1:C" & Range("C65536").End(xlUp).Row), "non vrai") > 0 Then 
   Msgbox "Il reste des lignes erronnées"
   Exit Sub
end If