Microsoft 365 Compter le nombre de cellules correspondant à un format

J

jmfmarques

XLDnaute Accro

• 11 Juin 2020

• #2

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

F

Frank Bellaisch

XLDnaute Nouveau

• 11 Juin 2020

• #3

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 11 Juin 2020

• #4

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #5

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

Vote positif 0 Vote négatif

F

Frank Bellaisch

XLDnaute Nouveau

• 11 Juin 2020

• #6

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #7

Frank Bellaisch à dit:

un grand merci pour vos réponses

Cliquez pour agrandir...

Oui mais quel est le résultat ?

 

Vote positif 0 Vote négatif

F

Frank Bellaisch

XLDnaute Nouveau

• 11 Juin 2020

• #8

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

 

Vote positif 0 Vote négatif