Microsoft 365 Convertir en VBA

patricktoulon

XLDnaute Barbatruc
re
bonjour a tous

:rolleyes:
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 !
@merci mapomme
puré on revient en 45 c'est pas possible :p :rolleyes:
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
 

Nicolas Jacquin

XLDnaute Nouveau
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"
 

herve62

XLDnaute Barbatruc
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
 

Fichiers joints

PORCHER

XLDnaute Junior
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas