Microsoft 365 Compter le nombre de cellules correspondant à un format

[Frank Bellaisch]

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

 

[jmfmarques]

Bonjour

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.

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 ...

 

[Frank Bellaisch]

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 ...

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]

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 :

Dim c As Range
For Each c In Columns(1).SpecialCells(xlConstants).Cells
   MsgBox TypeName(c.Value)
Next

 

[mapomme]

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 :

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

 

[Frank Bellaisch]

un grand merci pour vos réponses même si l'envie n'y était pas.

 

[mapomme]

un grand merci pour vos réponses

Oui mais quel est le résultat ?

 

[Frank Bellaisch]

le résultat est 100% une réussite. votre fonction Mapomme est nickel
Encore merci