Moyenne différence entre dates sur 2 colonnes

nevrard · 19 Avril 2020

Bonjour à tous,

Je bloque sur le problème suivant :

En colonne A nous avons une liste de dates (exemple : Date du devis)
En colonne B une liste de dates également mais pas toutes remplies (exemple : Date de la signature)
=> Une date de signature ne suit pas forcement une date de devis.

Je souhaite calculer le temps moyen (sur une seule case) en jours :
de la différence entre dates colonnes A et dates colonnes B (sauf si pas de dates en colonne B).
=> en français : lorsqu'il y a une signature, quel est le temps moyen entre la date du devis et la date de la signature

J'ai joint un fichier d'exemple. L'idée c'est d'avoir le résultat "13" mais sans passer par la création d'une colonne supplémentaire.

Avez-vous des pistes ?
J'ai essayé sommeprod sans passer par moyenne.
J'ai bien noté que moyenne ne prenait pas en compte les cellules vides par défaut. Mais associé à une différence (soustraction ou datedif) je bloque ...

mapomme · 19 Avril 2020

Bonjour @nevrard et bienvenu sur XLD ,

Essayez :

VB:

=(SOMME.SI(F6:F10;">0";F6:F10) - SOMME.SI(F6:F10;">0";E6:E10))/NB(F6:F10)

Formatez la cellule en nombre et pas en date.

mapomme · 19 Avril 2020

Re,
Une autre :

Code:

=SOMMEPROD((F6:F10-E6:E10);--(F6:F10>0))/NB(F6:F10)

mapomme · 19 Avril 2020

Re,
Une autre :

Code:

=SOMMEPROD((F6:F10-E6:E10)*(F6:F10>0))/NB(F6:F10)

Robert · 19 Avril 2020

Bonjour le fil, bonjour le forum,

Je soupçonne mapomme de se doper...

Une proposition VBA si ça peut intéresser quelqu'un :

VB:

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim NJ As Integer 'déclare la variable NJ (Nombre de Jours)
Dim NV As Integer 'déclare la variable NJ (Nombre de Valeurs)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne E de l'onglet O
For I = 6 To DL 'boucle des ligne 6 à DL
    'si la cellule en colonne F n'est pas vide, définit le nombre de jours NJ et le nombre de valeurs NV
    If O.Cells(I, "F") <> "" Then NJ = NJ + (O.Cells(I, "F") - O.Cells(I, "E")): NV = NV + 1
Next I 'prochaine ligne de la boucle
MsgBox "La moyenne est de " & Round(NJ / NV, 2) & " jours !" 'message
End Sub

mapomme · 19 Avril 2020

Bonjour Robert ,

Robert à dit:
Je soupçonne mapomme de se doper...

Non non! Suite à la durée du confinement, je n'ai plus rien sous la main. J'attaque en force la Pink Lady et je m’essaye à l'herbe à chat. Vu mon pseudo, la Pink Lady est inoffensive. Je soupçonne donc l'herbe à chat d'avoir des propriétés insoupçonnées

.

mapomme · 19 Avril 2020

Re,
Une autre en formule matricielle :

VB:

=SOMME(SIERREUR(EXP(LN(F6:F10-E6:E10))/NB(F6:F10);0))

Formule Matricielle:

à valider par la combinaison des trois touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée

ne pas entourer la formule d'accolade au clavier. C'est la validation par Ctrl+Maj+Entrée qui ajoute les accolades

une fois saisie et validée, une formule matricielle peut être copiée et collée comme toute autre formule

à chaque édition/modification de la formule matricielle, penser à la valider par Ctrl+Maj+Entrée

nevrard · 19 Avril 2020

Bonjour @mapomme, bonjour @Robert,

Merci pour votre accueil.
Les formules font très bien le travail !

Merci beaucoup.

Moyenne différence entre dates sur 2 colonnes

nevrard

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

nevrard

XLDnaute Nouveau

Discussions similaires