Microsoft 365 Compter le nombre de cellules correspondant à un format

Frank Bellaisch

XLDnaute Nouveau
Bonjour à tous et d'avance merci pour votre aide.

Je souhaite calculer le nombre de cellules d'une plage qui comportent des dates (donc au format date). Dans ces cellules, il peut y avoir du texte ou des nombres mais je ne veux comptabiliser que les dates.
J'ai fait des recherches dans tous les tréfonds de l'internet sans succès.
Merci pour votre aide
 

Frank Bellaisch

XLDnaute Nouveau
Bonjour

révèle une modélisation à remettre en question.
Tu n'as maintenant d'autres recours qu'une boucle (et ses lenteurs) pour séparer le bon grain de l'ivraie ... :cool:

Bonjour et merci pour la réponse.
En revanche, je n'ai pas bien compris la solution proposée. Je n'ai pas précisé que j'avais un niveau averti mais pas expert. J'apprends tous les jours.
merci
 

jmfmarques

XLDnaute Accro
Je n'ai vraiment pas l'intention ni l'envie de t'aider à ce genre de "rattrapage" alors que (me relire) c'est la modélisation elle-même qu'il te faut et que que je t'encourage à repenser.
Je vais me contenter de te montrer un exemple de parcours en boucle (ici sur les valeurs saisies de la colonne A contenant des dates et d'autres valeurs).
A toi d'en comprendre le sens :
VB:
Dim c As Range
For Each c In Columns(1).SpecialCells(xlConstants).Cells
   MsgBox TypeName(c.Value)
Next
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Frank Bellaisch, @jmfmarques ;),

Essayez cette fonction VBA nbrDate utilisable sur une feuille de calcul Excel :
(je ne garantis rien de rien... je trouve que le concept de date dans Excel ou VBA est un concept très facétieux :))
Le code est dans module1 :
VB:
Function nbrDate(xplage As Range) As Long
Dim n&, x As Range
   For Each x In xplage
      If IsNumeric(x.Value2) Then n = n - IsDate(x)
   Next
   nbrDate = n
End Function
 

Pièces jointes

  • Frank Bellaisch- compter date- v1.xlsm
    17.5 KB · Affichages: 5
Dernière édition:

Discussions similaires