Texte dans TextBox selon un autre Textbox

[Ilino]

Forum Bonsoir
Je souhaite afficher un texte dans le TextBox2 selon la date saisie dans le TextBox1 et selon le cas

Cas1 : si la date de TextBox1 <= a la date today
alors
Message dans TextBox2: « Date Limite TextBox1+ 7 , il vous reste today-TextBox1 jours »

Cas 2 : si la date de TextBox1 > a la date today
Alors
Message dans TextBox2: « Date Limite expirée »
grazie
NB: les TextBox sont dans un USF

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Forum hi
est ce que mon souci est clair?
grazie

 

[job75]

Re : Texte dans TextBox selon un autre Textbox

Bonsoir,

Non, mais vu l'heure je vais aller faire dodo, d'autres aussi je suppose.

Bonne nuit.

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

re
puis je avoir votre aide
grazie

 

[Dull]

Re : Texte dans TextBox selon un autre Textbox

Salut Ilino, le Forum

Peut-être comme cela

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
TextBox2 = IIf(CDate(TextBox1) <= Date, "Date Limite " & CDate(TextBox1) + 7 & " il vous reste " & _
IIf(Date - CDate(TextBox1) < 2, Date - CDate(TextBox1) & " jour", Date - CDate(TextBox1) & " jours"), "Date limité expirée")
End Sub

Bonne Journée

 

[job75]

Re : Texte dans TextBox selon un autre Textbox

Bonjour Ilino, hello Dull

Dans tes messages tu parles d'une "Date limite", elle est stockée où cette "Date limite" ?

A priori ce peut être dans une cellule, dans un nom défini, ou dans une variable VBA.

A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Bonjour DUll , MAITRE
@ JOB: date limite c'est la date saisi dans TextBox1+7
@ DULL: je vais le tester mnt, grazie
A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re dull,
apres avoir testé le code j'ai ce type d"erreur

Erreur d'execution 13
Imcompatibilité de type

GRAZIE

 

[Dull]

Re : Texte dans TextBox selon un autre Textbox

Re le Fil, Salut Gérard

Fichier à tester

Bonne Journée

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re DULL
je suis sorry, ci joint mon fichier avec ton code adapté
GRAZIE

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re dull, MAITRE, FOrum
puis je avoir votre observation sur mon code?
GRAZIE

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re;
L'erreur est a ce niveau

observation_date = IIf(CDate(date_arrivée) <= Date, "Date Limite " & CDate(date_arrivée) + 7 & " il vous reste " & _
IIf(Date - CDate(date_arrivée) < 2, Date - date_arrivée & " jour", Date - CDate(date_arrivée) & " jours"), "Date limité expirée")

grazie

 

[job75]

Re : Texte dans TextBox selon un autre Textbox

Re,

Si j'ai bien compris :

Private Sub TextBox1_Change()
If Not IsDate(TextBox1) Then TextBox2 = "": Exit Sub
Dim d As Date
d = CDate(TextBox1) + 7 'date limite
TextBox2 = "Date limite " & IIf(Date <= d, d & ", il vous reste " & d - Date & " jour(s)", "expirée")
End Sub

Faut pas se tromper dans le sens du test

Il n'est pas gênant d'utiliser une macro Change.

A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

rE,
J 'ai le testé mais il n'a pa s affiché le message dans TextBox2,,,,,,?
Grazie

 

[job75]

Re : Texte dans TextBox selon un autre Textbox

Re,

S'il s'agit de mon code, regarde la 2ème ligne, TextBox2 est vidée si TextBox1 n'est pas une date.

A+