Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2
alors dans le label afficher : "Hors délais" sinon "Délais respectés"
Merci beaucoup
Michel
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
isabelle
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then
Label1.value = "Hors délais"
else
Label1.value = "Délais respectés"
End If
isabelle
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2
alors dans le label afficher : "Hors délais" sinon "Délais respectés"
Merci beaucoup
Michel
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
anonymousA
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer
ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément
faire des test pour en éprouver la validité) puis faire ton test
final.Une fois celui-ci réalisé rien de + simple que d'utiliser la
propriété caption d'un label.
A+
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2
alors dans le label afficher : "Hors délais" sinon "Délais respectés"
Merci beaucoup
Michel
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
Michel
Bonnsoir et merci Isabelle J'ai suivi ton analyse, mais cela plante j'ai mis cela : Michel
Private Sub TextBox1_Change() If TextBox1.Value <> "" And TextBox2.Value <> "" Then If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then Label1.Caption = "Hors délais" Else Label1.Caption = "Délais respectés" End If End If End Sub
Private Sub TextBox2_Change() If TextBox1.Value <> "" And TextBox2.Value <> "" Then If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then Label1.Caption = "Hors délais" Else Label1.Caption = "Délais respectés" End If End If
End Sub
"isabelle" a écrit dans le message de news: %
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
Bonnsoir et merci Isabelle
J'ai suivi ton analyse, mais cela plante
j'ai mis cela :
Michel
Private Sub TextBox1_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then
Label1.Caption = "Hors délais"
Else
Label1.Caption = "Délais respectés"
End If
End If
End Sub
Private Sub TextBox2_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then
Label1.Caption = "Hors délais"
Else
Label1.Caption = "Délais respectés"
End If
End If
End Sub
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%2333C2CWXFHA.2128@TK2MSFTNGP14.phx.gbl...
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then
Label1.value = "Hors délais"
else
Label1.value = "Délais respectés"
End If
isabelle
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 >
textbox2 alors dans le label afficher : "Hors délais" sinon "Délais
respectés"
Merci beaucoup
Michel
Bonnsoir et merci Isabelle J'ai suivi ton analyse, mais cela plante j'ai mis cela : Michel
Private Sub TextBox1_Change() If TextBox1.Value <> "" And TextBox2.Value <> "" Then If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then Label1.Caption = "Hors délais" Else Label1.Caption = "Délais respectés" End If End If End Sub
Private Sub TextBox2_Change() If TextBox1.Value <> "" And TextBox2.Value <> "" Then If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then Label1.Caption = "Hors délais" Else Label1.Caption = "Délais respectés" End If End If
End Sub
"isabelle" a écrit dans le message de news: %
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
anonymousA
bonjour,
pour Xcel2000 à tout le moins, il n'y a pas de propriété value à un label. Par contre il existe effectivement une ancienne propriété _Value datant des anciennes versions mais il faut l'écrire comme suit Me.Label1.[_Value] = "TATAT"
A+
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
bonjour,
pour Xcel2000 à tout le moins, il n'y a pas de propriété value à un
label. Par contre il existe effectivement une ancienne propriété _Value
datant des anciennes versions mais il faut l'écrire comme suit
Me.Label1.[_Value] = "TATAT"
A+
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then
Label1.value = "Hors délais"
else
Label1.value = "Délais respectés"
End If
isabelle
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 >
textbox2 alors dans le label afficher : "Hors délais" sinon "Délais
respectés"
Merci beaucoup
Michel
pour Xcel2000 à tout le moins, il n'y a pas de propriété value à un label. Par contre il existe effectivement une ancienne propriété _Value datant des anciennes versions mais il faut l'écrire comme suit Me.Label1.[_Value] = "TATAT"
A+
bonjour Michel,
à la condition que ce soit des formats de date reconnus par excel,
If CDate(TextBox1.value) > CDate(TextBox2.value) Then Label1.value = "Hors délais" else Label1.value = "Délais respectés" End If
isabelle
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
Michel
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
Bonsoir et merci anonymousA
mais cela plante encore
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
428e1f1d$0$11691$8fcfb975@news.wanadoo.fr...
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer
ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément
faire des test pour en éprouver la validité) puis faire ton test final.Une
fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption
d'un label.
A+
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 >
textbox2 alors dans le label afficher : "Hors délais" sinon "Délais
respectés"
Merci beaucoup
Michel
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
RedRick
je te conseille de changer l'évenement _Change par _exit parce que _change est éalué chaque fois que tu ecrit un caractère, donc même quand le format date n'est pas complet... la c'est sur c'est pas comparable... ??
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
je te conseille de changer l'évenement _Change par _exit
parce que _change est éalué chaque fois que tu ecrit un caractère, donc même
quand le format date n'est pas complet...
la c'est sur c'est pas comparable...
??
Bonsoir et merci anonymousA
mais cela plante encore
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
428e1f1d$0$11691$8fcfb975@news.wanadoo.fr...
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer
ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément
faire des test pour en éprouver la validité) puis faire ton test final.Une
fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption
d'un label.
A+
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 >
textbox2 alors dans le label afficher : "Hors délais" sinon "Délais
respectés"
Merci beaucoup
Michel
je te conseille de changer l'évenement _Change par _exit parce que _change est éalué chaque fois que tu ecrit un caractère, donc même quand le format date n'est pas complet... la c'est sur c'est pas comparable... ??
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
Michel
OK merci beaucoup Michel
"RedRick" a écrit dans le message de news:
je te conseille de changer l'évenement _Change par _exit parce que _change est éalué chaque fois que tu ecrit un caractère, donc même quand le format date n'est pas complet... la c'est sur c'est pas comparable... ??
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
OK merci beaucoup
Michel
"RedRick" <RedRick@discussions.microsoft.com> a écrit dans le message de
news: B068FD12-EB4F-48DD-AE86-0E1A489B826D@microsoft.com...
je te conseille de changer l'évenement _Change par _exit
parce que _change est éalué chaque fois que tu ecrit un caractère, donc
même
quand le format date n'est pas complet...
la c'est sur c'est pas comparable...
??
Bonsoir et merci anonymousA
mais cela plante encore
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
428e1f1d$0$11691$8fcfb975@news.wanadoo.fr...
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer
ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément
faire des test pour en éprouver la validité) puis faire ton test
final.Une
fois celui-ci réalisé rien de + simple que d'utiliser la propriété
caption
d'un label.
A+
Bonsoir
Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui
apparaissent souvent
J'ai 2 textbox et 1 label sur un userform.
J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 >
textbox2 alors dans le label afficher : "Hors délais" sinon "Délais
respectés"
Merci beaucoup
Michel
je te conseille de changer l'évenement _Change par _exit parce que _change est éalué chaque fois que tu ecrit un caractère, donc même quand le format date n'est pas complet... la c'est sur c'est pas comparable... ??
Bonsoir et merci anonymousA mais cela plante encore Michel
"anonymousA" a écrit dans le message de news: 428e1f1d$0$11691$
bonsoir,
les textboxes ne renvoient que des valeurs texte. IL faut transformer ceux-ci en dates ( pour peu qu'elles soient valides et donc forcément faire des test pour en éprouver la validité) puis faire ton test final.Une fois celui-ci réalisé rien de + simple que d'utiliser la propriété caption d'un label.
A+
Bonsoir Ma demande est pourtant fort simple, mais j'ai des "erreur 13" qui apparaissent souvent J'ai 2 textbox et 1 label sur un userform. J'ai des dates dans les 2 textbox. et je souhaite que si textbox1 > textbox2 alors dans le label afficher : "Hors délais" sinon "Délais respectés" Merci beaucoup Michel
