Userform / problème de format de date nom modifiable

Je crois que je viens de piger !!!
Ce sont les veilles données qui posent soucis !

Les dates qui ont étaient rentrées avant que j'inclue les sécurités de transformation de date dans mon usf de saisie !

Il faut que je transforme ces dates au format CDATE .... comment faire des transformations de masse ???

je t'es fait une fonction qui valide tes date, tu peux accessoirement la modifier pour affiner le test

Code:

---

1 2 3 4 5 6

Function IsUneDate(Controle As Control) As Boolean If Trim("" & Controle) = "" Then Exit Function If IsDate(Controle) = False or InStr(Controle, "/") = 0 Then MsgBox "Ceci n'est pas une date": Controle = "": Controle.SetFocus: Exit Function Controle.Value = CDate(Controle.Value) IsUneDate = True End Function

---

C'est vrai !!!

est-ce que l'on peu faire une action du style TEXTBOX_Enter pour tester les dates à l'ouverture de l'usf ?

nom tu vérifies si c'est un date valide avant:

Code:

---

if isdate(cells(1,2))=true and instr(cells(1,2),"/")<>0 then textebox=cells(1,2)

---

tu peux remplacer tes textebox par des calendar et tu n’auras plus de problème de date

Citation:

---

Envoyé par GADENSEB

Je recherche la date avec

Code:

---

GESTIONPOSTE.DATEANNONCE = Application.VLookup(Cells(Target.Row, "I").Value, Worksheets("BASE EMPLOI").Range("A1:BB1000"), 36, False)

---

Il n'y pas de pb d'erreur de recherche

La date revient sous la forme
Pièce jointe 146350

---

Ce problème provient du fait que VLookup retourne la valeur numérique de la date plutôt que la date elle-même.

Au lieu de VLookup, utilise Match (ou Find) qui te retournera le numéro de la ligne:

Code:

---

1 2 3

nNumeroDeLigne = Application.WorksheetFunction.Match(Cells(Target.Row, "I").Value, Worksheets("BASE EMPLOI").Range("A1:a1000"), 0)   GESTIONPOSTE.DATEANNONCE = Worksheets("BASE EMPLOI").Cells(nNumeroDeLigne, 36)

---

Et vire tes codes dans Sub DATEANNONCE_Change et les autres événements _Change comme te le suggère rdurupt dans son code.

GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOD

UN GRAND MERCI A TOUS ! :mrgreen:

Cela marche enfin !!!

avec match dans la recherche, c'est nikel !!!!

Je peux enfin clôturer ce topic !!!




Yahoooooo


a bientôt sur le forum ;-)


Un grand merci encore


Bonne aprem

Seb