[RESOLU par Hieu] : Soustraire un nombre des mois d'une date

[MADAGASCAR]

Hello EXCEL DOWNLOADS
Salut tout le monde
SVP si vous pouver m'aider a realiser ce genre de calcul.
Dans TextBox1 j'ecris une premiere date
Dans TextBox5 j'ecris une deuxieme date
Le resultat sera ecrit dans TextBox2 (annees) ..TextBox3 (mois) ..TextBox4 (jours)
jusqu'a ici c'est parfaitement realisé.
Mon probleme :
Je veux si vous pouvez m'aider bien sure lorsque je tappe un nombre dans TextBox6 .. on considere ce nombre comme des mois ..
si je tappe le nombre 9 dans TextBox6 signifie 9 mois
si je tappe le nombre 33 dans TextBox6 signifie 33 mois
si je tappe le nombre 45 dans TextBox6 signifie 45 mois .........etc
alors le reste des annees et mois et jous s'affiche dans les TextBox 7..8 et 9
Merci beaucoup d'avance pour l'aide
Tres amicalement
MADA

 

[Hieu]

Bon,

J'annonce, c'est pas propre ^^
Mais le résultat y est (enfin, je crois)

Private Sub TextBox6_Change()
If Not IsNumeric(TextBox6) Then Exit Sub
If TextBox3 - TextBox6 Mod 12 > 0 Then
        TextBox7 = TextBox2 - Int(TextBox6 / 12)
        TextBox8 = TextBox3 - TextBox6 Mod 12
        TextBox4 = TextBox4
ElseIf TextBox3 - TextBox6 Mod 12 < 0 Then
        TextBox7 = TextBox2 - Int(TextBox6 / 12) - 1
        TextBox8 = TextBox3 - TextBox6 Mod 12 + 12
        TextBox4 = TextBox4
End If
       
End Sub

 

[jecherche]

Bonjour,

Une autre version ... selon ma compréhension ...


Jecherche

 

[eriiic]

Bonjour,

Tu pourrais te resservir de DateAdd avec "m" sur la date de début (ou en négatif sur la date de fin selon ce qui te parait le plus réel) suivi des datediff comme tu as fait.
eric.

 

[MADAGASCAR]

Bonsoir Hieu
Merci beaucoup pour l'aide aussi pour votre super fichier et formidable code
Tres tres gentil de votre part
Parfait travail .. encore merci
Simplement une petite remarque et sera parfaitement resolu .. le nombre du jour ne s'affiche pas dans TextBox9
Merci d'avance pour l'aide
Amicalement
MADA

 

[MADAGASCAR]

Bonsoir jecherche
Merci beaucoup pour votre intention d'aide
SVP regardez lorsque je tappe un nombre dans TextBox6 ce que je vais obtenir
Cordialement
MADA

 

[jecherche]

Bonjour,

Désolé, je n'avais pas bien compris ta demande.
Pour le TextBox 9 du code de Hieu
Change la dernière ligne avant le End If.
Au lieu de : TextBox4 = TextBox4
Ce devrait être : TextBox9 = TextBox4


Jecherche

 

[MADAGASCAR]

Bonjour,

Tu pourrais te resservir de DateAdd avec "m" sur la date de début (ou en négatif sur la date de fin selon ce qui te parait le plus réel) suivi des datediff comme tu as fait.
eric.

Salut eriiiic
Merci pour vos remarques et instructions
Amicalement
MADA

 

[MADAGASCAR]

Bonjour,

Désolé, je n'avais pas bien compris ta demande.
Pour le TextBox 9 du code de Hieu
Change la dernière ligne avant le End If.
Au lieu de : TextBox4 = TextBox4
Ce devrait être : TextBox9 = TextBox4


Jecherche

Salut jecherche
Merci 1000 fois pour votre intervention et petite juste modification
Merci encore jecherche
Tres cordialement
MADA

 

[MADAGASCAR]

Bonsoir Forum
Bonsoir Hieu ..jecherche
Malheureusement j'ai remarqué une faute qui me gene beaucoup et va me rendre fou
Le calcul est toujours juste sauf avec les nombres 10 et 11 ..21et22 .. 32et33 ..etc
Merci beaucoup d'avance pour toute correction
Amicalement
MADA

 

[jecherche]

Bonjour,

Effectivement, il a quelque chose d'étrange.
Je peux reproduire le bogue.
Mais, malheureusement, il va falloir attendre Hieu.
Je ne sais pas comment corriger cela.


Jecherche

 

[MADAGASCAR]

Bonjour
Dans tous les cas merci beaucoup jecherche
oui on attend avec impatience Hieu
Cordialement
MADA

 

[MADAGASCAR]

Bonjour Forum
Bonjour a tous et a toutes
Je ne sais pas quand revenir Hieu
Y'a pas un autre moyen svp pour resoudre ce probleme .. car j'ai des probleme uniquement avec les nombre 10 et 11 ....21 et 22 .... 31 et 32 etc
Merci d'avance pour l'aide
MADA

 

[Hieu]

Yop,
J'suis là ^^
C'est trop d'honneur !!

 

[Hieu]

Premier essai :
Lorsque j'ai fait ma condition, je n'ai pas émis l'hypothèse que la cellule soit la même que le mois.
Du coup, la sub devient :

Private Sub TextBox6_Change()
If Not IsNumeric(TextBox6) Then Exit Sub
If TextBox3 - TextBox6 Mod 12 >= 0 Then    ' ici rajout du =
        TextBox7 = TextBox2 - Int(TextBox6 / 12)
        TextBox8 = TextBox3 - TextBox6 Mod 12
        TextBox4 = TextBox4
ElseIf TextBox3 - TextBox6 Mod 12 < 0 Then
        TextBox7 = TextBox2 - Int(TextBox6 / 12) - 1
        TextBox8 = TextBox3 - TextBox6 Mod 12 + 12
        TextBox9 = TextBox4
End If
      
End Sub

Normalement, ça marche


Edit :
Je tape (un seul "p")