(Novice) Problème de format Date

Bonjour le forum,

Sur un Userform, j'ai un Label qui affiche la date du MonthView1, comme d'écrit ci dessous :

Code:

---

Me.Lbl_DateSelectionnee.Caption = Format(Me.MonthView1.Value, "dddd d mmmm yyyy")

---

Comment récupérer la date du Lbl_DateSelectionnee.Caption au format : ,"dd/mm/yyyy") ?
Pour éffectuer une recherche de date sur une feuille excel avec :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Ladate As String   Ladate = Format(.Lbl_DateSelectionnee.Caption, "dddd d mmmm yyyy")   If Ladate <> "" Then On Error Resume Next [A:A].Find(What:=Format(CDate(Ladate), "dd/mm/yyyy"), LookIn:=xlValues).Select   If Err <> 0 Then MsgBox "Inconnu" Else MsgBox "connu" End If End If

---

Merci à ceux dont j'ai abusé de leurs temps pour lire ce post.
fasedan

salut,

je pense que tu t'es compliqué la vie en utilisant cette variable LaDate intermediaire :calim2:

on peut simplifier ton code sans passer par des formats "superflus"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Ladate As String   Ladate = Format(.Lbl_DateSelectionnee.Caption, "dddd d mmmm yyyy")   If Ladate <> "" Then On Error Resume Next [A:A].Find(What:=Format(CDate(Ladate), "dd/mm/yyyy"), LookIn:=xlValues).Select   If Err <> 0 Then MsgBox "Inconnu" Else MsgBox "connu" End If End If

---

devenant

Code:

---

1 2 3 4 5 6 7 8 9 10

If .Lbl_DateSelectionnee.Caption <> "" Then On Error Resume Next [A:A].Find(What:=Format(.Lbl_DateSelectionnee.Caption, "dd/mm/yyyy"), LookIn:=xlValues).Select   If Err <> 0 Then MsgBox "Inconnu" Else MsgBox "connu" End If End If

---

Merci JPcheck pour la réponse.

Mais il y un truc que je ne comprend pas.
Pourquoi cela ne fonctionne pas en récupérant la date du Label?
Alors que cela fonctionne très bien en récupérant la date du MonthView1
Est ce à cause du format du Label ???
Qui est au départ en : Format(.Lbl_DateSelectionnee.Caption, "dddd d mmmm yyyy")

Je voudrais juste comprendre le pourquoi.

Code:

---

1 2 3 4 5 6 7 8 9 10

If .Lbl_DateSelectionnee.Caption <> "" Then On Error Resume Next '[A:A].Find(What:=CDate(Format(.Lbl_DateSelectionnee.Caption, "dd/mm/yyyy")), LookIn:=xlValues).Select [A:A].Find(What:=Format(.MonthView1.Value, "dd/mm/yyyy"), LookIn:=xlValues).Select If Err <> 0 Then MsgBox "Inconnu" Else MsgBox "connu" End If End If

---

Merci pour ta sympathie.
fasedan

Salut, de la lecture ici et surtout là

Merci kiki29

Pour le lien que je n'avais pas trouvé.
J'en ferais bonne lecture pour comprendre la redefinition des formats date.

Fasedan