Countifs

Bonjour,

Voici mes codes :

Sub Bouton10_Cliquer()

var_test = WorksheetFunction.CountIf(Range("G2:G662"), "")

MsgBox var_test & (" Retours vides")

End Sub

Sub FACTURES_Bouton10_Cliquer()

var_test = WorksheetFunction.CountIfs(Range("H2:H964"), "", Range("E2:E964"), "<>")

MsgBox var_test & (" Retours vides")

End Sub

Le problème : comment faire, si je crée un tableau de 1000 lignes, seules celles qui sont remplies doivent être prise en compte.

Donc, à mon avis, quelque chose comme Range(H........ )????????

merci

Bonjour Olivier, bonjour le forum,

Pas sûr d'avoir bien compris... Si tu veux compter le nombre de cellules édités (non vides) d'une plage c'est CountA qu'il te faut utiliser à la place de CountIf...

Bonjour,

Merci.

1er code :

Je veux compter le nombre de cellules vides de la colonne "G".

Si mon tableau fait 1000 lignes et que seulement 100 lignes sont complétées, seules les 100 lignes doivent être prises en compte

(pour éviter qu'il affiche, par ex. "750 Retours vides")

2ème code :

Je veux compter le nombre de cellules vides de la colonne "H" mais il faut que la colonne E ne soit pas vide.

Idem :

Si mon tableau fait 1000 lignes et que seulement 100 lignes sont complétées, seules les 100 lignes doivent être prises en compte (pour éviter qu'il affiche, par ex. "750 Retours vides").

Bonne journée.

les codes sont corrects.

Il faut tenir compte de la dernière ligne complétée pour faire le compte.

Toutes les autres lignes vides ne doivent pas être prise en compte.

Des idées ?

Merci

J'ai trouvé autre code qui fonctionne :

Sub Bouton10_Cliquer()
    Dim Der_L&, Nb_Cel_vides&
    Der_L = Cells(Rows.Count, 1).End(xlUp).Row
    Nb_Cel_vides = Application.CountBlank(Range("G2:G" & Der_L))
    MsgBox Nb_Cel_vides & (" Retours vides")
End Sub

J'aimerais modifier ce code pour stipuler que la colonne "G" doit être vide et que la colonne "E" ne doit PAS être vide.

Des idées ?

Merci.

Bonne journée