Comment puis corriger ce code, fait une erreur après effacement
Résolu
coupidon
Messages postés
98
Date d'inscription
Statut
Membre
Dernière intervention
-
coupidon Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
coupidon Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Comment puis corriger ce code, fait une erreur après effacement
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
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
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
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:
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 ?
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 ?
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 SubPar contre si entree(s) de lettre, pas de correction sur textbox7