XL 2016 Calcul avec critaires

[pat12]

Bonjour,
J' arrive à calculer le nombre de cellules vide d'une colonne mais je voudrais y rajouter un critère.
Voir exemple
Merci

 

[job75]

Bonjour pat12,

Dans la feuille de calcul il faut une formule avec SOMMEPROD.

Mais en VBA Evaluate reconnaît les formules matricielles, la fonction SUM suffit, voyez le fichier joint et cette macro :

Sub ouvrir()
With ActiveSheet.UsedRange
    UserForm1.TextBox1 = Evaluate("SUM(ISNUMBER(" & .Columns(1).Address & ")*ISBLANK(" & .Columns(2).Address & "))")
    UserForm1.Show
End With
End Sub

A+

 

[job75]

Fichier (2) avec NB.SI.ENS (CountIfs) c'est nettement plus simple :

Sub ouvrir()
UserForm1.TextBox1 = Application.CountIfs([A:A], "<>", [B:B], "=")
UserForm1.Show
End Sub

 

[pat12]

Merci beaucoup job75 :)

 

[pat12]

Fichier (2) avec NB.SI.ENS (CountIfs) c'est nettement plus simple :

Sub ouvrir()
UserForm1.TextBox1 = Application.CountIfs([A:A], "<>", [B:B], "=")
UserForm1.Show
End Sub

Salut Job 75
Désolé j'ai oublié de dire que le calcul des cellules vide est sur une feuille nomé 'BD'
Peux tu le rajouter dans ta ligne de code?
Merci. 🙂

 

[job75]

Vous ne savez pas faire ça ??? Avec la 2ème solution mettez Sheets("BD"). devant les plages.

Mais si la feuille "BD" est toujours la feuille active quand on ouvre l'UserForm ce n'est pas nécessaire.

 

[pat12]

Bonjour Job 75
Justement la feuille ou le calcul doit se produire est la feuille BD.
Et la feuille active est Accueil.
Le calcul se produit donc sur une feuille ou il y à rien à calculer donc sa donne 0 alors que la réalité est 2
Il y a pas de solution pour lui dire de calculé sur une autre feuille que le feuille active?
Merci.

 

[job75]

Au post #6 j'ai donné la solution, appliquez-la.

 

[pat12]

Merci désolé j'avais pas vue🙁