Discussion :

[trouvetou]

Bonjour
J'utilise un code pour calculer entre deux dates dans un formulaire Excel. Le code en question fonctionne mais j'aimerais le perfectionner, dans textbox16 et textbox17 à l'initialisation du formulaire textbox16 et 17 sont automatiquement remplis. Textbox16 et rempli par la valeur de la dernière cellule de la colonne Q tandis que textbox17 et rempli par : Me.TextBox17 = Me.TextBox1 et textbox1 = date. Pour calculer la différence entre ces deux textbox je suis obligé de modifier manuellement une de ces textbox et après le résultat s'affiche bien dans textbox13. Je souhaiterais que ce calcul se fasse sans avoir besoin d'une manipulation manuelle. Je ne sais même pas si cela est possible. je met le code en question.[CODE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
['Pour recalculer le temps d'utilisation du produit ROUTE
 
'Permet de calculer la différence entre la date du début du produit Route et la date du jour
Private Sub TextBox16_AfterUpdate()
Application.ScreenUpdating = False
Me.TextBox13 = DateDiff("m", CDate(Me.TextBox16), CDate(Me.TextBox17))
Application.ScreenUpdating = True
End Sub/CODE]

[Philippe Tulliez]

Bonjour,

Pour calculer la différence entre ces deux textbox je suis obligé de modifier manuellement une de ces textbox et après le résultat s'affiche bien dans textbox13

Qu'entendez-vous par cette modification manuelle ?

[trouvetou]

Bonjour
Pour que le calcul se fasse je suis obligé d'effacer la date dans une des deux textbox et retaper la même date et après le calcul se fait

[ARTURO83]

Bonjour,

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    DateDeb = CDbl(CDate(TextBox16.Value))
    DateFin = CDbl(Date)
    Me.TextBox13 = Format(DateFin - DateDeb, "m")

Cdlt

[trouvetou]

je viens de tester votre code et un message apparait : erreur de syntaxe sur cette ligne : Me.TextBox13 = Format(DateFin - DateDeb, "m")Application.ScreenUpdating = True[CODE]

[Private Sub TextBox16_AfterUpdate()
Application.ScreenUpdating = False
DateDeb = CDbl(CDate(TextBox16.Value))
DateFin = CDbl(Date)
Me.TextBox13 = Format(DateFin - DateDeb, "m")Application.ScreenUpdating = True
End Sub
/CODE]

[ARTURO83]

Bonsoir,

La textbox16 récupère la date de début inscrite dans la dernière ligne de la colonne A de la feuille "Source", êtes-vous sûr que la dernière cellule de votre tableau n'est pas vide?

Cdlt

[trouvetou]

bonsoir
La dernière cellule contient bien une date

[ARTURO83]

Pourtant:


Attention la dernière ligne du tableau structuré correspond-elle à la réelle dernière ligne des données?, sinon déposé le fichier.

[trouvetou]

Bonsoir ARTURO83
Si dans la feuille source vous modifier la date dans la colonne A en mettant 01/05/2023 et dans la colonne B, la date du jour, le résultat est de 6 mois si vous calculez manuellement
mais en ouvrant le formulaire textbox16 contient bien 01/05/2023 et textbox17 la date du jour, mais le résultat dans textbox13 et toujours de 1 à la place de 6. Si vous effacez la date de textbox16 et que vous remettez 01/05/2023, alors textbox13 affiche bien 6. je met le fichier si besoin.Calcul 1.1xlsm.xlsm

[ARTURO83]

Mais enfin, dans la macro d'initialisation, vous forcer le contenu de la textbox13 alors qu'il doit être le résultat d'un calcul.
Votre macro devrai être comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Pour initialiser le formulaire FrmVoiture
Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
     With Worksheets("Source")
        DerLig = .Cells(Rows.Count, 3).End(xlUp).Row 'donnée de la sortie
        TextBox17.Value = Format(CDate(Now), "dd/mm/yyyy")
        TextBox17 = Format(CDate(Date), "dd/mm/yyyy")
        TextBox19 = Format(CDate(Date), "dd/mm/yyyy")
        Me.TextBox16 = .Range("A" & DerLig) 'Date du début Route
        DateDeb = CDbl(CDate(TextBox16.Value))
        DateFin = CDbl(Date)
        Me.TextBox13 = Format(DateFin - DateDeb, "m") - 1
        Me.TextBox18 = .Range("D" & DerLig) 'Date du début Vtt
        Me.TextBox14 = .Range("F" & DerLig) 'Difference Vtt
    End With
    Application.ScreenUpdating = True
End Sub

[trouvetou]

Bonsoir
Votre code fonctionne parfaitement. Merci depuis le temps que je cherche. je marque résolu

[ARTURO83]

Pensez aussi à mettre en résolu dans les autres forums.
Cdlt