Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Compter le nombre de cellules qui contiennent la date d'aujourd'hui

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous 🙂

Je n'arrive pas à faire à faire ma formule 😡
Je voudrais en "H2" du classeur test joint compter le nombre de cellules qui contiennent la date d'aujourd'hui.

J'ai fait pas mal de recherches (certainement mal cherché lol) sans y parvenir.

Auriez-vous la bonne formule ?
En cas, je joins le petit fichier test.
Grand merci à toutes et à tous 🙂
 

Pièces jointes

Solution
J
Autre solution en VBA en utilisant matrices (Ctrl shift puis enter pour valider la formule).

VB: 
Public Function ArrayFromRange(ByVal Target As Range) As Variant
'Helper function that returns an array from a range with the correct dimensions.
'This fixes the issue of single values not returning as an array, and when a 2 dimension array is returned, when it...
Trier par date Trier par votes
Usine à gaz à dit:
@mapomme : J'espère que tu ne m'en voudras pas, je vais mettre la 1ère reçue en solution.
Cliquez pour agrandir...
Oh que si ! Tu me fends le cœur ! 😛
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 
Vote positif 0 Vote négatif
Bonjour à toutes et à tous 🙂

Je reviens sur le sujet car je voudrais compter également les dates du jour -1 (la veille).
J'arecherché& et tenté plusieurs formules sans y parvenir.
auriez-vous la bonne formule ?
Je vous remercie 🙂
 
Vote positif 0 Vote négatif
Autre solution en VBA en utilisant matrices (Ctrl shift puis enter pour valider la formule).

VB: 
Public Function ArrayFromRange(ByVal Target As Range) As Variant
'Helper function that returns an array from a range with the correct dimensions.
'This fixes the issue of single values not returning as an array, and when a 2 dimension array is returned, when it only has 1 dimension of data.
'Arrayx = ArrayFromRange(ws.Range("A1"))
'vARE = ArrayFromRange(Range("tous"))
    Select Case True
        Case Target.Cells.Count = 1 ' Single cell
            ArrayFromRange = Array(Target.Value)
        Case Target.Rows.Count = 1 ' Single Row
            ArrayFromRange = Application.Transpose(Application.Transpose(Target.Value))
        Case Target.Columns.Count = 1 ' Single Column
            ArrayFromRange = Application.Transpose(Target.Value)
        Case Else ' Multi dimension array
            ArrayFromRange = Target.Value
    End Select
End Function

Function M_CompteToday(ListA As Range)
Application.Volatile
Dim n%, i%, LgA%, x!, dat As String

Dim a() As String
Dim MatA As Variant, cel As Variant

MatA = ArrayFromRange(ListA)
LgA = ListA.Count
ReDim a(1 To LgA)
''*******************************************
n = 0
For Each cel In MatA 'construit variable de la colonne liste A (a)
    n = n + 1
    a(n) = Format(cel, "dd mmmm yy")
Next cel
''*******************************************TRT CONDITIONS
For i = 1 To LgA
    If a(i) = Format(Now(), "dd mmmm yy") Then x = x + 1

Next i
''*******************************************
M_CompteToday = x

End Function
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Salut, tu voulais aussi pour le jour précédent....
Bonne soirée.
VB: 
Function M_CompteToday(ListA As Range)
Application.Volatile
Dim n%, i%, LgA%, x!
Dim a() As String
Dim MatA As Variant, cel As Variant

MatA = ArrayFromRange(ListA)
LgA = ListA.Count
ReDim a(1 To LgA)
''*******************************************
n = 0
For Each cel In MatA 'construit variable de la colonne liste A (a)
    n = n + 1
    a(n) = Format(cel, "dd mmmm yy")
Next cel
''*******************************************TRT CONDITIONS
For i = 1 To LgA
'    If a(i) = Format(Now(), "dd mmmm yy") Then x = x + 1 'Pour Aujourd'hui
    If a(i) = Format(DateAdd("d", -1, Now()), "dd mmmm yy") Then x = x + 1 'Pour le jour d'hier
Next i
''*******************************************
M_CompteToday = x
End Function
 
Vote positif 0 Vote négatif
Bonsoir à tous,
Une autre fonction personnalisée avec deux paramètres : Depuis(xrg, nbrjour)
  • xrg est la plage des dates à dénombrer
  • nbrjour est le décalage à partir duquel on compte les dates jusqu'à aujourd'hui. Nbrjour doit être nul ou négatif

Exemple :
  • Compter les jours de la sélection active qui sont aujourd'hui : Depuis(Selection, 0)
  • Compter les jours de la sélection active qui sont aujourd'hui ou la veille : Depuis(Selection, -1)
  • Compter les jours de la sélection active qui sont aujourd'hui ou la veille ou avant-hier : Depuis(Selection, -2)
  • Compter uniquement les jours de la veille : Depuis(Selection, -1) - Depuis(Selection, 0)
  • Compter uniquement avant-hier et hier : Depuis(Selection, -2) - Depuis(Selection, 0)

Le code :
VB: 
Function Depuis(xrg As Range, nbrjour&) As Long
Dim x, j&, n&
   If nbrjour > 0 Then Exit Function
   For Each x In xrg
      j = Int(x)
      If ((Date - j) <= -nbrjour) And (j <= Date) Then n = n + 1
   Next
   Depuis = n
End Function
 

Pièces jointes

Vote positif 0 Vote négatif
Bonne idée mapomme ! la fonction est plus générale, merci.
VB: 
Function M_Depuis(ListA As Range, nbj%)
'ListA = dates et nbj = nombre de jours avant aujourd'hui
Application.Volatile
Dim n%, i%, LgA%, x!
Dim a() As String
Dim MatA As Variant, cel As Variant

MatA = ArrayFromRange(ListA)
LgA = ListA.Count
ReDim a(1 To LgA)
''*******************************************
n = 0
For Each cel In MatA 'construit variable de la colonne liste A (a)
    n = n + 1
    a(n) = FormatNumber(DateValue(cel))
Next cel
''*******************************************TRT CONDITIONS
For i = 1 To LgA
    If Date - a(i) <= nbj And Date - a(i) >= 0 Then x = x + 1
Next i
''*******************************************
M_Depuis = x
End Function
Elle ne passe pas par une gestion avec des variables mémoire (plus rapide ?)
J'ai ré-écrit la mienne en utilisant le même algorithme, mais avec transfert des données en mémoire ce qui permet dans certain cas des opérations plus complexes, comme l'affichage des résultats... Le nombre de jour à évaluer en arrière, est par contre positif.
 

Pièces jointes

Vote positif 0 Vote négatif
Code: 
Public Function M_Result(ListA As Range, nbj%)
'Affichage résultats
Application.Volatile
Dim n%, i%, LgA%, LgB%
Dim a() As String, b() As String
Dim MatA As Variant, cel As Variant

LgA = ListA.Count
MatA = ArrayFromRange(ListA)

ReDim a(1 To LgA)
ReDim b(1 To LgA)
'*******************************************
n = 0
For Each cel In MatA 'construit listeA sans compter cellules vides
    n = n + 1
    a(n) = FormatNumber(DateValue(cel))
Next cel
'*******************************************
For i = 1 To LgA 'construit listeB
    If Date - a(i) <= nbj And Date - a(i) >= 0 Then b(i) = CDate(a(i))
Next i
'*******************************************
M_Result = Application.Transpose(b)
End Function
 
Vote positif 0 Vote négatif
Bonjour Lionel, Mapomme, Jlfeugeas, Cousinhub,
Usine à gaz à dit:
Je voudrais en "H2" du classeur test joint compter le nombre de cellules qui contiennent la date d'aujourd'hui.
Cliquez pour agrandir...
Pourquoi pas simplement :
VB: 
=NB.SI(F2:F22;AUJOURDHUI())
Avec format personalisé : "Nbr : "0
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
175
job75
  • Question Question
XL 2019 Formule Max Cellules date
Réponses
3
Affichages
90
Caninge
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
271
vgendron
  • Résolu(e)
XL 2013 compter le nombre de table comprenant un nombre de personnes
Réponses
8
Affichages
264
Khrysthof
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
1 K
mapomme
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
423
Musbek
M
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
145
oguruma
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
666
Usine à gaz
  • Question Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
1 K
Usine à gaz
D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
161
djidji59430
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
190
Bibinaire
B
A
  • Question Question
XL 2019 VBA newbie
3 4 5
Réponses
72
Affichages
1 K
job75
O
  • Question Question
XL 2019 Mise a jour prix en fonction de la date
Réponses
8
Affichages
355
Ocbpatate
O
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2010 Extraction de la valeur de l’heure d’une date
2
Réponses
15
Affichages
623
jeanmi
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
361
Olihoes
O
E
  • Résolu(e)
Microsoft 365 Couleur Police sur grand nombre de cellules
2
Réponses
22
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
965
Usine à gaz
M
  • Question Question
XL 2021 Compter le nombre de valeur date + nb personne avec critére date début de mois
Réponses
6
Affichages
556
danielco
D
  • Question Question
XL 2019 Tirage au sort avec nombre variable
Réponses
14
Affichages
712
Frederic14
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…