Comment puis corriger ce code, fait une erreur après effacement
Résolu
coupidon
Messages postés
98
Statut
Membre
-
coupidon Messages postés 98 Statut Membre -
coupidon Messages postés 98 Statut Membre -
Bonjour,
j'ai un petit programme que j'ai fait, le problème quand je veux corrigé ou effacer la saisi sur le textbox7 dans l'userform cela me fait une erreur de débogage, au niveau de la ligne
madate = DateAdd("d", TextBox7.Value, oldDate)
comment puis je corriger cette erreur d'effacement en faite.
Private Sub TextBox7_Change()
Dim oldDate As Date
Dim madate As Date
oldDate = CDate(Now())
madate = DateAdd("d", TextBox7.Value, oldDate)
TextBox6.Value = Format(madate, "dddddd")
End Sub
j'ai un petit programme que j'ai fait, le problème quand je veux corrigé ou effacer la saisi sur le textbox7 dans l'userform cela me fait une erreur de débogage, au niveau de la ligne
madate = DateAdd("d", TextBox7.Value, oldDate)
comment puis je corriger cette erreur d'effacement en faite.
Private Sub TextBox7_Change()
Dim oldDate As Date
Dim madate As Date
oldDate = CDate(Now())
madate = DateAdd("d", TextBox7.Value, oldDate)
TextBox6.Value = Format(madate, "dddddd")
End Sub
7 réponses
-
En faite je fait un calcul de jour, le textbox7 est juste une valeur numérique.
j'utilise now() pour faire le calcul.
en ajoutant une valeur numérique cela me donne le jour sous le format exemple : vendredi 16 septembre 2016
si aujourd'hui nous sommes le Mardi 13 septembre 2016
avec le textbox7 je saisi 03 cela me donne comme réponse sur le textbox6
vendredi 16 septembre 2016
mais je voulais effacer la saisi si on se trompait du coup ta boucle fonctionne mais je n'ai plus le résultat sur le textbox6-
Re,
Avec explication ca devient plus simple a resoudre.
Private Sub TextBox7_Change() Dim oldDate As Date Dim madate As Date If TextBox7 <> "" And IsNumeric(TextBox7) Then oldDate = CDate(Now()) madate = DateAdd("d", TextBox7.Value, oldDate) TextBox6.Value = Format(madate, "dddddd") Else TextBox6 = "" End If End Sub
Par contre si entree(s) de lettre, pas de correction sur textbox7
-
-
Bonjour,
s'assurer que TextBox7<>"" -
-
ah, navré comme je débute sur vba j'ai pas encore toute la maîtrise de la programmation même si je connais sous excel les conditions si, et, ou...
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
avec quelques test sup:
Private Sub TextBox7_Change() Dim oldDate As Date Dim madate As Date If TextBox7 <> "" And IsDate(TextBox7) And Len(TextBox7) = 10 Then oldDate = CDate(Now()) madate = DateAdd("d", CDate(TextBox7.Value), oldDate) TextBox6.Value = Format(madate, "dddddd") End If End Sub -
Je suppose que dans la ligne
If TextBox7 <> "" And IsDate(TextBox7) And Len(TextBox7) = 10 Then
le IsDate(TextBox7) soit mon problème qui empêche d'accomplir de résultat ? -
J'avais pas vue le changement au dessus, chapeau cela fonctionne super c'est comme je voulais, avec le Isnumeric cela change tout.
et d'avoir pensé à effacer la ligne du textbox6 si on refait la saisi parfait.
merci de votre aide, c'est exactement ce que je voulais que cela fasse.
