Discussion :

[fasedan]

Bonjour le forum,

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

Code :

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

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 :

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

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

[Jean-Philippe André]

salut,

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

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

Code :

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

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 :

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

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

[fasedan]

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 :

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

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

[kiki29]

Salut, de la lecture ici et surtout là

[fasedan]

Merci kiki29

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

Fasedan