Bonjour,
Tout d'abord, je vous prie de pardonner mon incompétence. J'ai bien essayer de chercher une solution, mais en vain
Mon problème :
J'essaye d'intégrer un petit calcul interactif dans une prez PPT, reprenant un calcul simple des frais de résiliation d'un abonnement de téléphone mobile tenant compte de la loi Chatel...bref
J'ai intégrer pour le moment 3 TextBox (Plif, Plaf, Pluf). Une pour la date de début d'engagement, une autre pour la date de fin et une troisième pour afficher le nombre de mois restant.
Voici le code que j'ai bricoler :
Or ce code fonctionne, mais j'ai un message d'erreur VBA "Erreur 13 -> Incompatibilité de type" qui pointe sur dat1 = DateValue(Plif) à chaque caractère saisi dans mes TextBox...
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
18
19
20
21
22 Private Sub Plaf_Change() Call calculate End Sub Private Sub Plif_Change() Call calculate End Sub Sub calculate() ' Date1 => date de début Dim dat1 As Date 'Date2 => date de fin Dim dat2 As Date Dim nbre_mois As Integer dat1 = DateValue(Plif) dat2 = DateValue(Plaf) Pluf = DateDiff("m", dat1, dat2) End Sub
Comment l'éviter ? Y a-t-il une manière d'intégrer des saisie de date plus facilement ? D'autant que je n'ai pas fini mon histoire car après le calcul du nombre de mois de complets, il faut que j'arrive à ressortir le nombre de jour pour le calcul du prorata sur le mois incomplet...
Merci de votre aide.
Partager