Problème de date

Bonjour à tous,

j'essaie dans un userform de mettre une date et de la faire changer via un spinbutton. Cela fonctionne, mon problème est qu'ensuite je veux ré-utiliser cette date dans une fonction pour savoir qu'elle est le jour de la semaine et par rapport à ce jour il m'affiche ou non des feuilles spécifiques.
Mon problème est que ma date je veux la voir en format complet "vendredi 1 janvier 2014" et elle est donc mise en format String.

Code:

---

Label1.Caption = Format(Date + SpinButton1.Value, "dddd d mmmm yyyy")

---

et quand je veux la remettre en format date impossible ça bug.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim DateLabel As Date   DateLabel = CDate(Label1.Caption)   If DatePart("w", DateLabel, vbSunday) = 2 Then Sheets("EPI").Visible = True Else Sheets("EPI").Visible = False   End If

---

Pouvez-vous me donner un petit coup de pouce SVP ?

Merci, cdlt.
PLV

Bonjour, bonjour !

"ça bug" ne veut rien dire mis à part, VBA ne se trompant jamais, un problème entre la chaise et le clavier ‼
Ce n'est pas compliqué d'indiquer la ligne en erreur et le message !

Un texte n'est pas forcément une date ! Simple à vérifier pourtant avec la fonction IsDate :

Code:

---

1 2 3 4 5 6 7

Sub Demo() D = Format(Date, "dddd d mmmm yyyy") Debug.Print """"; D; """ est une date : "; IsDate(D) L = InStr(D, " ") + 1 D = Mid(D, L) Debug.Print Tab(L); """"; D; """ est une date : "; IsDate(D) End Sub

---

Résultat affiché dans la fenêtre Exécution (Ctrl + G) du VBE …

_________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour Marc,

Je sais que j'ai un problème de Date et que ce n'est pas un bug...

J'essaie justement de transformer mon format date qui est en réalité un format texte en format Date pur et dur.

Dans mes petits bouquins qui me servent en auto-apprentissage, il est écrit que je peux utiliser CDate() pour remettre un texte en format Date.

A chaque fois que je lance ma procédure j'ai donc un blocage à ce niveau pour une incompatibilité de type...logique.
Comment puis-je faire pour mettre mon format date version texte en format date version date... et donc poursuivre mon code pour qu'il m'affiche les feuilles souhaitées selon le jour de la semaine.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CmdValider_Click() Dim DateLabel As Date   DateLabel = CDate(Label1.Caption)   If DatePart("w", DateLabel, vbSunday) = 2 Then Sheets("EPI").Visible = True Else Sheets("EPI").Visible = False   End If

---

Code erreur pour incompatibilité de type à ce niveau

Code:

---

1 2	DateLabel = CDate(Label1.Caption)

---

Merci de votre aide,
Cdlt PLV.

En testant ton code, je n'ai pas rencontré de problème, tout dépend de ce que comporte "Label1.Caption", perso je le rédige ainsi

Code:

---

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

Private Sub CommandButton1_Click() Dim DateLabel As Date Label1.Caption = "22/12/2014"'à voir DateLabel = CDate(Label1.Caption) MsgBox DatePart("w", DateLabel, vbSunday) If DatePart("w", DateLabel, vbSunday) = 2 Then Sheets("EPI").Visible = True Else Sheets("EPI").Visible = False End If   End Sub

---

Bonjour Casefayere,

dans mon bout de code Label1.caption à la valeur lors de l'initialisation de mon USF :

Code:

---

Label1.Caption = Format(Date + 2, "dddd d mmmm yyyy")

---

et il prend ensuite la valeur suivante dans le Spinbutton1 au moment ou on fait changer la valeur :

Code:

---

Label1.Caption = Format(Date + SpinButton1.Value, "dddd d mmmm yyyy")

---

Ce qui fait qu'au moment de la CmdValider, il se trouve dans un format de texte et non de date.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CmdValider_Click() Dim DateLabel As Date 'ici Label1.caption à le format : "mardi 30 décembre 2014" DateLabel = CDate(Label1.Caption)   If DatePart("w", DateLabel, vbSunday) = 2 Then Sheets("EPI").Visible = True Else Sheets("EPI").Visible = False   End If

---

d'ou mon problème pour l'utiliser ensuite en tant que date dans la suite du code...

Cdlt, PLV

A l'arrache

Code:

---

datelabel = CDate(Split(Label1.Caption, " ")(1) & " " & Split(Label1.Caption, " ")(2) & " " & Split(Label1.Caption, " ")(3))

---

à vérifier la valeur du spin

Bonsoir.

Tu pourrais sauvegarder la date calculée dans une autre variable. Assez amusant : dans la propriété Tag de ton étiquette.

Code:

---

1 2	Label1.Caption = Format(Date + SpinButton1.Value, "dddd d mmmm yyyy") Label1.Tag = Date + SpinButton1.Value

---

Et quand tu as besoin de la date, tu récupères

Code:

---

DateLabel = Label1.tag

---

Pas testé, mais devrait marcher.

Cordialement,

PGZ

Citation:

---

Envoyé par phanoulevoyou

Comment puis-je faire pour mettre mon format date version texte en format date version date...

---

Et pourtant tu as une solution dès le post #2 dans le code de mon message ‼‼
Suffit de lire et de tester ! Et rien qu'en lisant l'aide VBA de CDate …

Sinon effectivement tu peux aussi utiliser la propriété Tag …


_________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

Bon désolé je n'ai pas pu répondre ces derniers jours...

En ce qui concerne la solution finale j'ai effectivement retenu la solution de Marc, il m'a juste fallut un peu de temps pour la comprendre car ce qui parait simple pour certain est compliqué ou plus tortueux pour d'autre.

Merci encore pour votre aide, n'oubliez pas que parfois de l'autre côté de l'écran, il y a des personnes qui n'ont pas la même connaissance que vous. Et une explication simple pour vous devient un autre problème pour nous.

Bonne journée à tous et encore merci.

Cdlt,
PLV

En fait Tag est la solution vers laquelle je tendais mais une fois le problème d'origine solutionné.
Mais pgz a eu la même idée !

Lorsqu'un code est fourni dès le deuxième message et qu'au message suivant le demandeur ne l'a même pas testé,
c'est sûr l'intervenant peut devenir quelque peu piquant ! Sans compter une présentation initiale incomplète …

Pour rappel concernant les dates, il y a tout ce qu'il faut entre la :faq: et les tutoriels de ce forum !