XL 2013 Glisser formule COUNTIFS VBA

J

JHA

XLDnaute Barbatruc

• 17 Juin 2020

• #2

Bonjour à tous,

Cela est très simple par TCD et offre toute une gamme de filtre.

JHA

 

Pièces jointes

• 11.xlsm

  28.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Juin 2020

• #3

Bonjour Anass, JHA,
Une autre approche : Transformez votre sub en function :

VB:

Function nbsi(MaDate)
nl = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
x = Application.WorksheetFunction.CountIfs(Feuil1.Columns(2), "A", Feuil1.Columns(3), "y", Feuil1.Columns(1), MaDate)
nbsi = x
End Function

et en Feuil2 B2 vous faites =nbsi(A2) puis vous tirez vers le bas.
C'est plus simple à mes yeux qu'une sub.

 

Pièces jointes

• 11.xlsm

  23.5 KB · Affichages: 5

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 17 Juin 2020

• #4

Bonjour sylvanu , JHA
Merci pour votre attention
En fait, je voulais le faire avec sub;
Parce que j'ai beaucoup de données renouvelables;
Je veux le faire automatiquement en choisir Feuille, période et en appuyant sur commandbutton .
merci

 

Pièces jointes

• 2.xlsm

  63.4 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Juin 2020

• #5

Bonjour Anass,
Le même avec un bouton.

 

Pièces jointes

• 11 (2).xlsm

  24.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

anass1

XLDnaute Junior

• 17 Juin 2020

• #6

Merci bcp bcp sylvanu
Bonne journée

 

Vote positif 0 Vote négatif