XL 2016 Calcul avec critaires

job75

XLDnaute Barbatruc

• 19 Novembre 2019

• #2

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 :

VB:

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

A+

 

Pièces jointes

• Classeur(1).xlsm

  24.1 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2019

• #3

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

VB:

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

 

Pièces jointes

• Classeur(2).xlsm

  24 KB · Affichages: 7

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 19 Novembre 2019

• #4

Merci beaucoup job75 :)

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 19 Novembre 2019

• #5

job75 à dit:

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

VB:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2019

• #6

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.

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 20 Novembre 2019

• #7

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Novembre 2019

• #8

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

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 20 Novembre 2019

• #9

Merci désolé j'avais pas vue

 

Vote positif 0 Vote négatif