Calcul dans textbox qui ne fonctionne pas

Bonjour,

Je souhaite calculer automatiquement la validité d'une date de passeport sur un userform

J'entre ma date dans le Me.txtPasseportDate et je souhaite que dans txtPassValid s'affiche la date avec 10 ans de plus
Sachant que mes variable sont déclarrées
Dim DatePass As Date
Dim IntervalTypePass As String
Dim NumberPass As Integer

J'ai donc écrit ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub UserForm_Initialize()   Set f = Sheets("BDdata") Set bd = Range("a2:b" & [A65000].End(xlUp).Row) a = Application.index(bd, , 1) Tri a, 1, 1, UBound(a) '--villes +codes postaux ListeVille = Range("villeCodePostal").Value Me.ComboVille.List = ListeVille b = Application.index([villeCodePostal], Evaluate("Row(1:" & [villeCodePostal].Rows.Count & ")"), Array(2, 1)) Tri b, 1, 1, UBound(b) Me.CodePostal.List = b Me.txtDateDeb.Tag = Date Me.txtDateDeb.Value = Format(CDate(Me.txtDateDeb.Tag), "dd/mm/yyyy") Me.txtDateFin.Tag = Date Me.txtDateFin.Value = Format(CDate(Me.txtDateFin.Tag), "dd/mm/yyyy") Me.txtBirthday.Tag = Date Me.txtBirthday.Value = Format(CDate(Me.txtBirthday.Tag), "dd/mm/yyyy") Me.txtPasseportDate.Tag = Date Me.txtPasseportDate.Value = Format(CDate(Me.txtPasseportDate.Tag), "dd/mm/yyyy") Me.txtPassValid.Tag = Date IntervalTypePass = "y" ' "m" specifies months as interval. NumberPass = 15 DatePass = Me.txtPasseportDate.Value Me.txtPassValid.Value = DateAdd(IntervalTypePass, NumberPass, DatePass) Me.txtPassValid.Value = Format(CDate(Me.txtPassValid.Tag), "dd/mm/yyyy") End Sub

---

Pourriez-vous m'aider en me disant pourquoi le calcul ne se fait pas ?

Merci

Bonjour,

Citation:

---

Envoyé par Fa1con74

Pourriez-vous m'aider en me disant pourquoi le calcul ne se fait pas ?

---

Le calcul ne se fait pas parce que tu le calcules avec 'Me.txtPasseportDate.Value' qui est dans un textbox et donc en texte.
Avec

Code:

---

DatePass = CDate(Me.txtPasseportDate.Value)

---

cela a des chances de mieux fonctionner mais il faudrait vérifier que ta date n'est pas perturbée par toutes les manipulations subies

Hello,

Et en supprimant "Tag" dans

Code:

---

Me.txtPassValid.Value = Format(CDate(UserForm1.txtPassValid.tag), "dd/mm/yyyy")

---

ca a l'air de marcher

Code:

---

Me.txtPassValid.Value = Format(CDate(UserForm1.txtPassValid), "dd/mm/yyyy")

---

Merci, mais chez moi cela ne fonctionne pas. Mais je suis preneur de toute solution, mon but est d'afficher la date de fin de validité du passeport soit la date de ma textbox "txtPasseportDate" + 10 ans.

Hello

Sauf erreur de ma part,l'evenement Userform_Initialize ne fonctionne que quand le Userform est "Loaded" (on peut le verifier en pas a pas)

Les commandes des modifications de tes TextBox peuvent etre integrees dans un module classique (non dans le code de l'userform)

Si ton userform a pour nom "Userform1"

Le programme suivant fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub UserFormDates_Init() UserForm1.txtPasseportDate.Tag = Date UserForm1.txtPasseportDate.Value = Format(CDate(UserForm1.txtPasseportDate.Tag), "dd/mm/yyyy") UserForm1.txtPassValid.Tag = Date IntervalTypePass = "yyyy" ' "m" specifies months as interval. NumberPass = 10 DatePass = UserForm1.txtPasseportDate.Value UserForm1.txtPassValid.Value = DateAdd(IntervalTypePass, NumberPass, DatePass) UserForm1.txtPassValid.Value = Format(CDate(UserForm1.txtPassValid), "dd/mm/yyyy") UserForm1.Show End Sub

---

Pour un decalage de 10 ans, il faut corriger les parametres de DataADD dans ton programme
IntervalTypePass = "yyyy"
NumberPass = 10

Merci beaucoup, c'est ce que je recherchais