OVH Cloud OVH Cloud

utiliser unes TextBox1 "simplement" ? possible

4 réponses
Avatar
Alfred WALLACE
Bonjour (re)

dans ma feuille, j'ai une texte box r=E9f=E9renc=E9e TextBox1

J'aimerai m'en servir pour saisir la date. Puis utiliser cette date
ailleurs dans mon projet.

lorsque j'insere cette textbox, je me retrouve avec : TextBox1_Change
dans
mes modules.

De plus, c'est une routine qui est appel=E9e chaque fois (!) que je tape
un caract=E8re.

Je souhaite "seulement" saisir une date (01/01/2006 par exemple) et, en
r=E9cup=E9rer
la valeur plus loin dans mon programme.

Comment je peux faire ? et puis je supprimer TextBox1_Change ?

Voil=E0, merci et ...
bon'ap !

Jos=E9

4 réponses

Avatar
RV
Bonjour Alfred,
A mettre dans le code du userform

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd/mm/yy")'affiche au format date en sortie du
textbox1
End Sub

Pour récupérer la date en cellule A1 de la feuille active:

Private Sub CommandButton1_Click()
ActiveSheet.Cells(1, 1).Value = TextBox1.Value
End Sub

Cordialement
RV


"Alfred WALLACE" a écrit dans le message de news:

Bonjour (re)

dans ma feuille, j'ai une texte box référencée TextBox1

J'aimerai m'en servir pour saisir la date. Puis utiliser cette date
ailleurs dans mon projet.

lorsque j'insere cette textbox, je me retrouve avec : TextBox1_Change
dans
mes modules.

De plus, c'est une routine qui est appelée chaque fois (!) que je tape
un caractère.

Je souhaite "seulement" saisir une date (01/01/2006 par exemple) et, en
récupérer
la valeur plus loin dans mon programme.

Comment je peux faire ? et puis je supprimer TextBox1_Change ?

Voilà, merci et ...
bon'ap !

José
Avatar
JB
Bonjour,

dans ma feuille, j'ai une texte box référencée TextBox1


-Pourquoi un Textbox dans une feuille!?.
-Pour saisir la date, une cellule suffirait?
Il suffit d'effacer le code TextBox1_Change.

http://cjoint.com/?gCoHM8WVAs

Cordialement JB



Bonjour (re)

dans ma feuille, j'ai une texte box référencée TextBox1

J'aimerai m'en servir pour saisir la date. Puis utiliser cette date
ailleurs dans mon projet.

lorsque j'insere cette textbox, je me retrouve avec : TextBox1_Change
dans
mes modules.

De plus, c'est une routine qui est appelée chaque fois (!) que je tape
un caractère.

Je souhaite "seulement" saisir une date (01/01/2006 par exemple) et, en
récupérer
la valeur plus loin dans mon programme.

Comment je peux faire ? et puis je supprimer TextBox1_Change ?

Voilà, merci et ...
bon'ap !

José


Avatar
Alfred WALLACE
JB wrote:
Bonjour,

dans ma feuille, j'ai une texte box référencée TextBox1


-Pourquoi un Textbox dans une feuille!?.
-Pour saisir la date, une cellule suffirait?
Il suffit d'effacer le code TextBox1_Change.

http://cjoint.com/?gCoHM8WVAs

Cordialement JB



Merci JB pour ton aide, donc, pourquoi une textBox dans une feuille ?
parceque, si j'utilise une cellule, la taille de celle-ci va varier en
fonction
du TCD qui se trouve quelques lignes plus bas à l'aplomb de la même
colonne, résultat,
je me retrouve avec des #### à la place de la date affichée dès que
le TCD est calculé, parceque la colonne se rétrécie.

Voilà pourquoi je voulais permettre à l'utilisateur de saisir la date
(en fait une fourchette de date) dans 2 textBox qui seront insensible
à la taille des colonnes.

Mais, si une autre méthode existe, je suis preneur :-)

En fait je souhaite simplement faire

date_debut = TextBox1.Value

Merci encore pour ton aide et conseils.

José


Avatar
ABED HADDOU
Bonsoir
je me retrouve avec des #### à la place de la date affichée dès que
le TCD est calculé,
Mais, si une autre méthode existe, je suis preneur :-)


-saisi la date dans une cellule
-Clic droit sur le TCD
-Options du tableau
-Cocher Conserver la mise en forme

Abed_H



"Alfred WALLACE" wrote:

JB wrote:
Bonjour,

dans ma feuille, j'ai une texte box référencée TextBox1


-Pourquoi un Textbox dans une feuille!?.
-Pour saisir la date, une cellule suffirait?
Il suffit d'effacer le code TextBox1_Change.

http://cjoint.com/?gCoHM8WVAs

Cordialement JB



Merci JB pour ton aide, donc, pourquoi une textBox dans une feuille ?
parceque, si j'utilise une cellule, la taille de celle-ci va varier en
fonction
du TCD qui se trouve quelques lignes plus bas à l'aplomb de la même
colonne, résultat,
je me retrouve avec des #### à la place de la date affichée dès que
le TCD est calculé, parceque la colonne se rétrécie.

Voilà pourquoi je voulais permettre à l'utilisateur de saisir la date
(en fait une fourchette de date) dans 2 textBox qui seront insensible
à la taille des colonnes.

Mais, si une autre méthode existe, je suis preneur :-)

En fait je souhaite simplement faire

date_debut = TextBox1.Value

Merci encore pour ton aide et conseils.

José