Nombre de jour

chezswan

XLDnaute Occasionnel
Bonjour à tous,

J'ai mis en P.J. un petit fichier pour la question suivante :

Il y a une date sur plusieurs lignes, par exemple le 01/11/17 sur 4 ou 5 lignes, le 02/11/17 idem...
Quelle serait la formule qui me permettrait, dans cet exemple, d'obtenir 2, parce qu'il y a 2 dates différentes. Dans le fichier joint ce serait 4 pour les 4 jours notés.
J'espère avoir été assez clair.

Je vous remercie par avance.

Cordialement,

Swan
 

Pièces jointes

  • exemple.xlsx
    8.1 KB · Affichages: 15

chezswan

XLDnaute Occasionnel
Bonjour Draneb,

Merci d'avoir pris le temps de me répondre. C'est parfait, merci beaucoup. En revanche, si je prépare la formule pour les futurs enregistrements, c'est à dire qu'ici au lieu de la formule qui s'arrête à A22, je met A1000, j'ai un message d'erreur. La formule fonctionne si je sais à l'avance combien de lignes seront renseignée.

Y a-t'il une alternative ? Dans tout les cas, encore merci, j'aurai appris quelque chose.

Bonne soirée

Swan
 

chezswan

XLDnaute Occasionnel
Bonjour à tous,

Je reste sur le même fil car il me semble que ma question d'aujourd'hui reste sensiblement la même.
J'ai mis en P.J. un tableau où apparaît, pour le même jour, un même nom avec divers versement pour ce même jour. Par exemple Jean en janvier à 6 versements en 2 dates. La question est quelle est la formule qui me permette d'obtenir une moyenne de ces versements, c'est à dire ici 98/2.

En espérant avoir été clair,

Bonne journée

Swan
 

Pièces jointes

  • moyenne.xlsx
    9.5 KB · Affichages: 15

Dranreb

XLDnaute Barbatruc
Bonsoir.
Je ne sais pas le faire par formule. Désolé.
Même par macro, je ne verrais pas plus simple qu'en utilisant ma fonction Gigogne, et encore, avec un prétraitement pour isoler les mois des dates.

Ce qui donnerait ça :
VB:
Option Explicit

Sub RapportDons()
Dim TDon(), L As Long, TRés(), Mois As SsGr, Nom As SsGr
TDon = ColUti(Feuil1.[A2:D2], CMin:=4).Value
ReDim TRés(1 To UBound(TDon, 1), 1 To 4)
For L = 1 To UBound(TDon, 1)
   TDon(L, 4) = DateSerial(Year(TDon(L, 1)), Month(TDon(L, 1)), 1): Next L
L = 0
For Each Mois In Gigogne(TDon, 4, 2, 1)
   TRés(L + 1, 1) = Format(Mois.Id, "mmmm yyyy")
   For Each Nom In Mois.Co
      L = L + 1
      TRés(L, 2) = Nom.Id
      TRés(L, 3) = Nom.Total(3)
      TRés(L, 4) = CCur(TRés(L, 3) / Nom.Count)
      Next Nom, Mois
Feuil1.[I2].Resize(UBound(TRés, 1), 4).Value = TRés
End Sub
 
Dernière édition:

chezswan

XLDnaute Occasionnel
Bonsoir Dranreb,

Je te remercie d'avoir essayé. Pour le moment j'ai trouvé =SOMMEPROD(SI(A2:A100<>"";1/NB.SI(A2:A100;A2:A100))) qui ressemble finalement à la tienne mais qui a l'avantage de pouvoir s'étendre de A2 à A10000..., validé par Ctrl+Maj+Entrée. L'inconvénient c'est que je n'arrive pas à "l'encadrer" entre une date de début et une date de fin.

Merci encore de ta réponse et d'avoir essayé.

Bonne soirée.
 

Discussions similaires

Réponses
3
Affichages
296

Statistiques des forums

Discussions
312 082
Messages
2 085 171
Membres
102 805
dernier inscrit
emes