Texte dans TextBox selon un autre Textbox

Ilino

XLDnaute Barbatruc

• 16 Septembre 2014

• #2

Re : Texte dans TextBox selon un autre Textbox

Forum hi
est ce que mon souci est clair?
grazie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Septembre 2014

• #3

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.

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #4

Re : Texte dans TextBox selon un autre Textbox

re
puis je avoir votre aide
grazie

 

Dernière édition: 17 Septembre 2014

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Septembre 2014

• #5

Re : Texte dans TextBox selon un autre Textbox

Salut Ilino, le Forum

Peut-être comme cela

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2014

• #6

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #7

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #8

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

Cliquez pour agrandir...

GRAZIE

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Septembre 2014

• #9

Re : Texte dans TextBox selon un autre Textbox

Re le Fil, Salut Gérard

Fichier à tester

Bonne Journée

 

Pièces jointes

• Illino.xlsm

  22.2 KB · Affichages: 28

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #10

Re : Texte dans TextBox selon un autre Textbox

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

 

Pièces jointes

• ILINO FSE 2014.xlsm

  31.6 KB · Affichages: 27
• ILINO FSE 2014.xlsm

  31.6 KB · Affichages: 41
• ILINO FSE 2014.xlsm

  31.6 KB · Affichages: 40

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #11

Re : Texte dans TextBox selon un autre Textbox

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #12

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")

Cliquez pour agrandir...

grazie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2014

• #13

Re : Texte dans TextBox selon un autre Textbox

Re,

Si j'ai bien compris :

Code:

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2014

• #14

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2014

• #15

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+

 

Vote positif 0 Vote négatif