Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Différence de date dans un label

Différence de date dans un label

3 réponses
Avatar
Alain
Bonjour
je souhaite avoir la diff=E9rence entre 2 dates qui se=20
trouvent dans un label, et faire varier cette difference=20
en jouant sur le combo_change.=20
Le label 28 =E9tant une date r=E9cup=E9r=E9e dans une cellule

Merci
Alain

Private Sub Cmb_jour_Change()
Label50 =3D Cmb_jour & " " & Cmb_mois & " " & Cmb_ann=E9e
Label29.Caption =3D Label28 - Label50 ' & " jours"
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour,

Évidemment, chacun des labels doit contenir une date dont le format est reconnu par excel. La fonction Cdate() ne fait
que transformer le texte d'une date en sa valeur ....

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année

Label29.Caption = cdate(Label28) - Cdate(Label50) & " jours"

End Sub


Salutations!



"Alain" a écrit dans le message de news:088c01c49a59$ff6e92e0$
Bonjour
je souhaite avoir la différence entre 2 dates qui se
trouvent dans un label, et faire varier cette difference
en jouant sur le combo_change.
Le label 28 étant une date récupérée dans une cellule

Merci
Alain

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année
Label29.Caption = Label28 - Label50 ' & " jours"
End Sub
Avatar
Alain
Merci Denis
Mais, il me fait une erreur d'exécution"13"
sur la ligne Cdate
Alain

-----Message d'origine-----
Bonjour,

Évidemment, chacun des labels doit contenir une date dont
le format est reconnu par excel. La fonction Cdate() ne

fait
que transformer le texte d'une date en sa valeur ....

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année

Label29.Caption = cdate(Label28) - Cdate(Label50)
& " jours"


End Sub


Salutations!



"Alain" a écrit dans le message de
news:088c01c49a59$ff6e92e0$

Bonjour
je souhaite avoir la différence entre 2 dates qui se
trouvent dans un label, et faire varier cette difference
en jouant sur le combo_change.
Le label 28 étant une date récupérée dans une cellule

Merci
Alain

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année
Label29.Caption = Label28 - Label50 ' & " jours"
End Sub


.



Avatar
papou
Alain
Tu dois avoir une info qui ne peut pas être utilisée en tant que date sur un
de tes label et c'est pour cela je crois qu'il te renvoie une erreur 13 Type
mismatch.
Essaie de tester les valeurs renvoyées dans tes label.
Cordialement
Pascal

"Alain" a écrit dans le message de
news:203301c49a5f$312167e0$
Merci Denis
Mais, il me fait une erreur d'exécution"13"
sur la ligne Cdate
Alain

-----Message d'origine-----
Bonjour,

Évidemment, chacun des labels doit contenir une date dont
le format est reconnu par excel. La fonction Cdate() ne

fait
que transformer le texte d'une date en sa valeur ....

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année

Label29.Caption = cdate(Label28) - Cdate(Label50)
& " jours"


End Sub


Salutations!



"Alain" a écrit dans le message de
news:088c01c49a59$ff6e92e0$

Bonjour
je souhaite avoir la différence entre 2 dates qui se
trouvent dans un label, et faire varier cette difference
en jouant sur le combo_change.
Le label 28 étant une date récupérée dans une cellule

Merci
Alain

Private Sub Cmb_jour_Change()
Label50 = Cmb_jour & " " & Cmb_mois & " " & Cmb_année
Label29.Caption = Label28 - Label50 ' & " jours"
End Sub


.