Microsoft 365 Compter le nombre de cellules correspondant à un format

Frank Bellaisch · 11 Juin 2020

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 · 11 Juin 2020

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 · 11 Juin 2020

jmfmarques à dit:
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 · 11 Juin 2020

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 · 11 Juin 2020

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

Frank Bellaisch · 11 Juin 2020

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

mapomme · 11 Juin 2020

Frank Bellaisch à dit:
un grand merci pour vos réponses

Oui mais quel est le résultat ?

Frank Bellaisch · 11 Juin 2020

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

Microsoft 365 Compter le nombre de cellules correspondant à un format

Frank Bellaisch

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

Frank Bellaisch

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Pièces jointes

Frank Bellaisch

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Frank Bellaisch

XLDnaute Nouveau

Discussions similaires