Microsoft 365 Condition entre 2 date

Marylgb · 3 Juillet 2020

Bonjour,

J aurais besoin de faire une formule qui comptabilise "1" à condition que le mois soit compris entre la date de début et la date de fin.
Colonne A | Colonne B | Colonne C| Colonne D ect..... Colonne
Date de début| Date de fin | Avril 2019| Mai 2019| .............|juin 2020
05/05/2019 | 12/01/2020 | 0 | 1
01/06/2020 | 30/11/2020 | | | ..............| 1

Merci d avance pour votre aide
Bonne soirée

job75 · 4 Juillet 2020

Bonjour à tous,

Autre solution avec cette formule en C2 :

Code:

=SIERREUR(EXP(LN(MIN($B2;FIN.MOIS(C$1;0))-MAX($A2-1;FIN.MOIS(C$1;-1))));"")

A+

Jean-Eric · 4 Juillet 2020

Bonjour,
Une proposition Récupérer et transformer (Power Query).
A te relire pour un complément d'informations.
Cordialement.

Jean-Eric

mapomme · 4 Juillet 2020

Bonjour @Marylgb,
Bienvenue sur XLD ,

Joignez donc un petit fichier exemple (avec vos données sources et le résultat souhaité) à votre question plutôt que cet amas de données sans forme .

Marylgb · 4 Juillet 2020

Jean-Eric à dit:
Bonjour,
Une proposition Récupérer et transformer (Power Query).
A te relire pour un complément d'informations.
Cordialement.

Jean-Eric

Bonjour,

Merci beaucoup, le résultat est parfait,
Mais je ne connais pas Power Query.
Est ce que c'est simple d'utilisation?

Bonne journée

Marylgb · 4 Juillet 2020

mapomme à dit:
Bonjour @Marylgb,
Bienvenue sur XLD ,

Joignez donc un petit fichier exemple (avec vos données sources et le résultat souhaité) à votre question plutôt que cet amas de données sans forme .

Bonjour,

ci joint le fichier exemple où j'ai fais évoluer la demande. ;-)
Merci d'avance

mapomme · 4 Juillet 2020

Re,

Voici en retour le fichier.
Voir les explications dans le fichier.

JHA · 4 Juillet 2020

Bonjour à tous,

Un essai en pièce jointe

JHA

mapomme · 4 Juillet 2020

Bonjour @JHA ,

La demande a changé. C'est le nombre de jour du mois en colonne qui sont dans l'intervalle [date début, date fin] et non plus 0 ou 1, me semble-t-il.

Dranreb · 4 Juillet 2020

Bonjour.
J'aurais mis :
En C2, à propager sur 3 lignes et 16 colonnes :

Code:

=MAX(MIN(FIN.MOIS(C$1;0)+1;$B2+1)-MAX(C$1;$A2);0)

Marylgb · 4 Juillet 2020

mapomme à dit:
Re,

Voici en retour le fichier.
Voir les explications dans le fichier.

Merci beaucoup c est parfait
Y a t il moyen que la cellule soit vide au lieu de 0?
J ai essayé de mettre "" à la place de 0 dans la formule mais ça n a pas fonctionné.

mapomme à dit:
Re,

Voici en retour le fichier.
Voir les explications dans le fichier.

Dranreb · 4 Juillet 2020

Un format de nombre personnalisé "Standard;;" ne suffirait-il pas ?

mapomme · 4 Juillet 2020

Re,

Une autre méthode avec une fonction personnalisée dont le code est dans module1.
Le cinquième paramètre est ce qu'on doit afficher si le résultat est 0. Si le 5ème paramètre est absent, on n'affiche rien (quand le résultat est 0).

VB:

Function NbrJourPeriode1dans2(ByVal D1 As Date, ByVal F1 As Date, ByVal D2 As Date, ByVal F2 As Date, Optional SiZero)
' nombre de jour de la période n°1 [D1, F1] dans la période n°2 [D2, F2]
' SiZero est ce qu'on affiche si le résultat est la valeur 0
' si Sizero est manquant alors on affiche la chaine vide quand le résultat est 0
Dim n&, d As Date
   For d = D1 To F1
      If (d >= D2) Then If (d <= F2) Then n = n + 1
   Next
   NbrJourPeriode1dans2 = n
   If (n = 0) Then NbrJourPeriode1dans2 = IIf(IsMissing(SiZero), "", SiZero)
End Function

job75 · 4 Juillet 2020

Bonjour à tous,

Autre solution avec cette formule en C2 :

Code:

=SIERREUR(EXP(LN(MIN($B2;FIN.MOIS(C$1;0))-MAX($A2-1;FIN.MOIS(C$1;-1))));"")

A+

Jean-Eric · 4 Juillet 2020

Bonjour,
Des explications pour la mise en oeuvre avec Power Query.
Nécessite un apprentissage, donc un investissement personnel, comme pour appréhender Excel.
Lien à consulter :
Aide Microsoft - Power Query
Cdlt.

1 - Mettre les données sous forme de tableau
Ruban, Accueil, Mettre sous forme de tableau
Renommer le tableau T_Dates
2 - Ruban, Données, A partir d'un tableau ou une plage
L'éditeur Power Query est ouvert avec T_Dates dans la fenêtre principale
3 - Ruban, Accueil, Transformer, Type de données : sélectionner Date dans la liste déroulante
Sélectionner la colonne Date début : trier par ordre ascendant (comme sous Excel)
Répéter l'opération pour la colonne Date fin
4 - Ruban, Ajouter une colonne, Colonne personnalisée
Saisir (ou copier) la formule (attention ! PQ est sensible à la casse) :
=List.Dates([Date début],Duration.Days([Date fin]-[Date début])+1,Duration.From(1))
Valider
5 - Sélectionner la colonne Personnalisé et Développer sur de nouvelles lignes
6 - Ruban, Ajouter une colonne, Colonne personnalisée
Saisir (ou copier) la formule (attention ! PQ est sensible à la casse) :
=Date.ToText([Personnalisé],"yyyy-MM")
Valider
7 - Sélectionner le colonne Personnalisé. Clic-droit et supprimer
8 - Sélectionner dans l'ordre Date début, Date fin puis Personnalisé.1 (avec Ctrl)
Ruban, Transformer, Regrouper par :
Nouveau nom colonne - Nombre
Opération - Compter les lignes
Valider
9 - Sélectionner la colonne Personnalisé.1
Ruban, Transformer, N'importe quelle colonne, Pivoter la colonne
Colonne de valeures : sélectionner Nombre
Valider
10 - Dernière étape : restitution tableau final dans le feuille de calcul
Ruban, Accueil, Fermer, Fermer et charger, Fermer et charger dans...
Sélectionner tableau et la destination (feuille active ou nouvelle feuille)

Marylgb · 4 Juillet 2020

mapomme à dit:
Re,

Une autre méthode avec une fonction personnalisée dont le code est dans module1.
Le cinquième paramètre est ce qu'on doit afficher si le résultat est 0. Si le 5ème paramètre est absent, on n'affiche rien (quand le résultat est 0).

VB:

Function NbrJourPeriode1dans2(ByVal D1 As Date, ByVal F1 As Date, ByVal D2 As Date, ByVal F2 As Date, Optional SiZero) ' nombre de jour de la période n°1 [D1, F1] dans la période n°2 [D2, F2] ' SiZero est ce qu'on affiche si le résultat est la valeur 0 ' si Sizero est manquant alors on affiche la chaine vide quand le résultat est 0 Dim n&, d As Date For d = D1 To F1 If (d >= D2) Then If (d <= F2) Then n = n + 1 Next NbrJourPeriode1dans2 = n If (n = 0) Then NbrJourPeriode1dans2 = IIf(IsMissing(SiZero), "", SiZero) End Function

Microsoft 365 Condition entre 2 date

Marylgb

XLDnaute Occasionnel

job75

Jean-Eric

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Marylgb

XLDnaute Occasionnel

Marylgb

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Marylgb

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Jean-Eric

XLDnaute Occasionnel

Pièces jointes

Marylgb

XLDnaute Occasionnel

Discussions similaires