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

Re
oui MAITRE, j'ai essaiyé jes deux code dans mon fichier , c vrai j'ai pas d'erreur mais il s'affiche rien dans le 2eme TextBOX
A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re GRAZIE Dull, GRAZIE MAITRE
PBLM RESOLU
A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re Bonjour Forum
Je ne sais pas si je change le fil, parceque j"ai un autre souci concernant USF
mon souci est si je valide mon USF sans remplir les TextBOX et ComboBox , dans le tableau de la feuille FSEx il saute automatiquement a la ligne suivante et ce n'est pas ce que je cherchais ?
merci

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re
ci joint le fichier
A+

 

[job75]

Re : Texte dans TextBox selon un autre Textbox

Re,

Eh bien tant mieux, tu as donc vu qu'en utilisant le calendrier la date commence au 6ème caractère, du moins chez moi (Excel 2003).

Donc ma macro adaptée :

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

Edit : je viens de voir ton fichier, tu as très bien adapté ma macro.

En effet ça marche aussi avec 5.

A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re
c'est noté
A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re
sinon, ne pas Valider si Textbox des colonnes A,B,C et L dans USF ne sont pas rempliés
GRAZIE

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

re
j'ai trouvé dans ce forum ce code

Dim x As Byte
For x = 1 To 10
Select Case x
Case 5, 6
Case Else
With Me.Controls("TextBox" & x)
If .Value = "" Then .SetFocus: MsgBox "Vous devez remplir ce champ !": Exit Sub
End With
End Select
Next x
For x = 1 To 4
With Me.Controls("ComboBox" & x)
If .Value = "" Then .SetFocus: MsgBox "Vous devez remplir ce champ !": Exit Sub
End With
Next x

mais mes TextBox et CombBox sont renomées d'une autre facon
que dois je faire?
grazie

 

[Dull]

Re : Texte dans TextBox selon un autre Textbox

Re Illino, le Fil,

regardes les post #2 et #3

Bonne Journée

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Bonjour Dull
ci joint le fichier adapter au code ci dessus
mais ça n'a pas marché
A+

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re
j'ai utilisé le code du poSte #2. MAIS je souhaite qu'il suit l'ordre de tabulation
grazie

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Bonsoir Forum
puis je avoir votre AIDE
grazie

 

[Ilino]

Re : Texte dans TextBox selon un autre Textbox

Re
je souhaite suivre l'ordre de tabulation ( en rouge) lors de la validation si les TextBox et CombBox sont vides
Grazie