Discussion :

[Baldo1391]

Bonjour,

Je me permets de venir vers vous car j'ai un soucis avec un code VBA mais plus particulièrement une fonction IF imbriquée et un opérateur de comparaison de dates encodées dans des textbox.

Mes deux texboxs sont : FormEncodage.TxtVisite et FormEncodage.TxtMission.

J'ai des dates stockées dans ces textboxs et j'aimerais lancer un process si il y a une donnée stockée dans FormEncodage.TxtVisite et si la date de FormEncodage.TxtVisite est antérieure à celle stockée dans FormEncodage.TxtMission.

Je sais que mes données stockées dans les textboxs sont en string, je dois donc les convertir en date. J'ai essayé avec la fonction Cdate mais ça ne donne rien...

Voici ce que j'ai essayé:



Avez-vous une idée, svp??

J'ai essayé d'autres typo avec CDate mais même problème...

Je cale depuis un petit moment sur cela.

Un grand merci d'avance.

[casefayere]

Bonjour,

Déjà, plutôt qu'envoyer une image, copies ton code, tu le colles sur le message entre balises, plus facile pour nous de t'aider car on peut, par simplicité recopier celui-ci et l'étudier

au départ, j'ai juste envie de dire, au vu du peu que tu produis, déclare une variable, exemple "LaDate As Date" ensuite, transformes ces lignes, non testées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim LaDate As Date
'....
With Formencodage
  If IsError(LaDate = CDate(.txtvisite)) Then
    'ton message
  Else
    LaDate = CDate(.txtvisite)
    'et tu continues en prenant en référence LaDate plutôt que le TextBox
  '...............
  End If
  '..........
End With

EDIT : le mieux serait de remplacer tes TextBox par un controle de date, "DataPicker", "MonthView", etc. à condition qu'ils puissent être disponibles et savoir s'en servir (mais ça, ça s'apprend)

autre solution :