Microsoft 365 Convertir en VBA

D

danielco

XLDnaute Accro

• 18 Octobre 2020

• #31

Je ne comprends pas pourquoi tu utilises la valeur "18,01" dans tes tests. Apparemment, avec l'exemple initial, toutes les réponses proposées (à l'exception de la mienne (tant pis pour la "gloire" sic) donnent un résultat supérieur à 18 (et même apparemment à 18,01).

Daniel

 

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 18 Octobre 2020

• #32

Voici le fichier sans mot de passe

 

Pièces jointes

• Vb_Dotation.xlsm

  108.7 KB · Affichages: 18

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 18 Octobre 2020

• #33

Explication ;
Si un enfant de 0 à 18 mois et un jour, recois un repas Enfant
Si un enfant de 18 mois et deux jours recois un repas Adulte
Donc pour moi le jour doit etre pris en compte !

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Octobre 2020

• #34

Re,

Pourquoi ne pas afficher le résultat en clair : 18 mois et 1 jour, plutôt qu'un chiffre à virgule ?

@+

 

Dernière modification par un modérateur: 18 Octobre 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2020

• #35

Bonjour à tous,

@danielco,
Je ne pense pas que la fonction DateDif soit bugguée. C'est simplement sa méthode de calcul qui n'est pas basée sur un nombre de jours écoulés mais sur des unités de temps ( année, mois, jour )
Ainsi 1.5 mois peut vouloir dire 43 jours ou 46 jours. ( 28+15 ou 31+15 )

C'est pour cela qu'un calcul en jours écoulés et par DateDif donneront des résultats différent.
A noter que d'un point de vue administratif ou du sens commun, c'est cette fonction qui est utilisée.
Vous obtenez la majorité à 18 ans date anniversaire quelle que soit le nombre d'années bissextiles que vous ayez vécu.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Octobre 2020

• #36

@PORCHER

Avec la fonction légèrement modifiée de Patrick Toulon que je salue (Oh grand manitou )
ce sera peut-être plus clair

 

Pièces jointes

• Porcher_Vb_Dotation.xlsm

  111.4 KB · Affichages: 3

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 18 Octobre 2020

• #37

Bien raisonné Daniel mais alors que peut on faire pour répondre à mon problème.
J'ai envoyé un fichier sans mot de passe, peut tu corriger à ta convenance
je t'en remercie
amicalement
Jean-Yves

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Octobre 2020

• #38

Bonjour.

DATEDIF(E28;$C$1;"m")+(DATEDIF(E28;$C$1;"md")/JOUR(FIN.MOIS($C$1;0)))

Cliquez pour agrandir...

Que le DATEDIF soit bogué ou non, cette formule ne me semble pas correcte dans la mesure où le nombre excédentaire de jours trouvé sur le nombre de mois est répartit seulement sur le mois en cours, ce qui est faux si on est justement au dernier jour du mois, alors que les jours en excédent sont dûs à ce que la naissance est vers la fin de son mois, et que c'est donc celui-ci qui n'est pas complet.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2020

• #39

Re le fil,
Si le problème à l'origine est simplement :

PORCHER à dit:

Si un enfant de 0 à 18 mois et un jour, reçois un repas Enfant
Si un enfant de 18 mois et deux jours reçois un repas Adulte

Cliquez pour agrandir...

Alors pourquoi ne pas utiliser cette simple formule :

Code:

=SI(MOIS.DECALER(C9;18)+1<AUJOURDHUI();"Repas Adulte";"Repas Enfant")

 

Pièces jointes

• Porcher (9).xlsx

  10.8 KB · Affichages: 2

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2020

• #40

Bonjour à tous,

Des unités de Temps : Seul le jour peut être une unité mais certainement pas le mois ou l'année.
Donc pour le mois ou l'année, seul l'usage courant et populaire peut être pris en compte (voir une tentative dans mon post #25).
D'ailleurs à chaque question sur les durées en mois ou années, la discussion se transforme en roman fleuve toujours sans conclusion claire et tranchée.

C'est surprenant qu'une organisation aussi caritative (et combien utile) se transforme en établissement de clercs comptables (c'est de la provocation amicale) . Un petit, à un jour près, va manger comme un enfant et soudain le lendemain prendra une ration d'adulte ? Certes non ! Alors faisons un calcul simple, on n'est pas à un jour près. Voir la proposition de @sylvanu (que je salue ) juste ci-dessus.

 

Dernière édition: 18 Octobre 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Octobre 2020

• #41

re
bonjour a tous

C'est surprenant qu'une organisation aussi caritative (et combien utile) se transforme en établissement de clercs comptables (c'est de la provocation amicale) . Un petit, à un jour près, va manger comme un enfant et soudain le lendemain prendra une ration d'adulte ? Certes non !

Cliquez pour agrandir...

@merci mapomme
puré on revient en 45 c'est pas possible
il faudrait que notre ami Porcher aille visiter une maternité et demande les volumes donnés au nourrissons de MÊME AGE (VOIR MÊME DIFFÉRENT) au puéricultrices
et qu'il mette cela dans un tableau et qu'il se rende compte par lui même le wrong way qu'il a pris
je connais bien le principe et règle de distribution du resto du coeur pour y avoir été bénévole qui parfois peut être surprenant
et je parle même pas du profit des œuvrant à la distribution
le pauvre coluche doit se retourner dans sa tombe
et ce que j'ai vu c'est avéré exact et pareil sur 3 site
pardon je m’égare Ok je sort

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 18 Octobre 2020

• #42

Bonjour tout le monde, un petit bout de code d'un projet commencer, si ça peut servir.

VB:

Private Sub TextBox1_AfterUpdate()
Tmp = Me.TextBox1.Value
Nba = Year(Date) - Year(Tmp)
Nbm = Month(Date) - Month(Tmp)
Nbj = Day(Date) - Day(Tmp)
Nb = Day(DateSerial(Year(Date), Month(Date), 0))
Pan = Day(Tmp) & "/" & Month(Tmp) & "/" & Year(Date)
Pan1 = DateAdd("yyyy", 1, Pan)
    If Month(Date) < Month(Tmp) Or (Month(Date) = Month(Tmp) And Day(Date) < Day(Tmp)) Then
        Me.TextBox2.Value = Year(Date) - Year(Tmp) - 1 & " " & "ans"
            Else
        Me.TextBox2.Value = Year(Date) - Year(Tmp) & " " & "ans"
    End If
        If Nbj < 0 Then
            Nbm = Nbm - 1
                Nbj = Nbj + Nb
                    End If
        If Nbm < 0 Then
            Nba = Nba - 1
                Nbm = Nbm + 12
                    End If
Me.TextBox5.Value = Nba & " " & "ans," & " " & Nbm & " " & "mois," & " " & Nbj & " " & "jours."
Me.TextBox3.Value = DateDiff("m", Tmp, Date) & " " & "mois"

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 18 Octobre 2020

• #43

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2020

• #44

Bonjour
Je remarque que ça discute sur le sujet
J'ai re vérifié ma fonction en fait les jours existaient mais je n'en avait pas besoin pour l'appli
donc je les re validés ; j'ai mis la fonction en F
A tester

 

Pièces jointes

• Dotation-1.xlsm

  90.6 KB · Affichages: 9

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 21 Octobre 2020

• #45

Bonjour,
Je dois m’excuser car le sujet que j’aborde est hors Excel, mais l’homme de 73 ans que je suis est blessé par ceux qui vivent dans l’ignorance. Aux restos du Cœur un Bébé 0 – 6 mois : 1 portion de lait infantile 1er âge +1 portion de 1 paquet de couches adaptées au poids, un Bébé 6 – 12 mois : 1 portion de lait infantile 2ème âge, 1 paquet de couches adaptées au poids, 6 petits pots variés (4 sucrés, 2 salés). Un Bébé de de 12 – 18 mois : 1 dotation adulte hebdomadaire + 1 paquet de couches adaptées au poids + 1 portion de lait de croissance.
Le cadeau naissance, Les produits d’hygiène, du matériel de puériculture, Vêtements et linge.

Un adulte de plus de 18 mois : 1 dotation adulte comprenant 36 repas, 1 portion de protides, 1 portion de d’accompagnement(légumes), 1 portion de produit laitier,1 portion de dessert /personne /Semaine + 1,5 L de lait UHT + des produits complémentaires + des produits d’hygiène + Vêtements pour adultes. Deux passages minimum par semaine.

L’accompagnement à l’aide alimentaire, Les actions d’orientation et d’accompagnement
Atelier cuisine, atelier Coiffure, Place de cinéma, Culture (Bibliothèque) Etc.…

Je suis un simple bénévole qui est là pour aider, partager et je le fait depuis plus de 10 ans.
Amicalement

 

Vote positif 0 Vote négatif