une petite dernière

2 réponses

pierre

18/02/2004 à 22:11

bonsoir à toutes et à tous,
*dans user form j'ai 2 textbox(1 et 2)
textbox 1 me sert àvoir une valeur qui est une date au format jjjj jj mmmm
aaaa or dans le text box le format est
jj/mm/aaaa h:mm? comment n'avoir que le jour(lundi,mardi...)dans le text box
*dans text box2 je récupère un nombre mais je suis obligé de faire un clic
dessus pour que la valeur s'affiche pourtant j'ai rajouté un set focus.
comment avoir les 2 text box visibles en mm temps
voici mes 2 commandes:

Private Sub TextBox1_Enter()
TextBox1.Value = Range("d5").Value
End Sub

Private Sub TextBox2_Enter()
TextBox2.Value = Range("c5").Value
TextBox2.SetFocus
End Sub

merci de vos lumières dans l'obscurité de mon ignorance

pierre

begin 666 pierre.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CMP:65R<F4-"D9..G!I97)R
M90T*14U!24P[4%)%1CM)3E1%4DY%5#HB>'!I97)R934R>") =&ES8V%L:2YF
D<@T*4D56.C(P,#0P,C$X5#(Q,3$P.5H-"D5.1#I60T%21 T*
`
end

2 réponses

michdenis

18/02/2004 à 22:19

Bonjour Pierre,

Ta question n'est pas claire quant à l'événement que tu devrais utiliser ... mais le code suivant devrait faire le
travail. Il ne te reste plus qu'à sélectionner l'événement de ton choix pour activer la macro.

Évidemment, le code suppose que tes données sont en feuil1. à toi d'adapter...
'-------------------------
With Worksheets("Feuil1")
If IsDate(.Range("d5")) Then
Me.TextBox1 = Format(Range("d5"), "dddd")
End If
TextBox2 = .Range("c5").Value
End With
'-------------------------

Salutations!

"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:%
bonsoir à toutes et à tous,
*dans user form j'ai 2 textbox(1 et 2)
textbox 1 me sert àvoir une valeur qui est une date au format jjjj jj mmmm
aaaa or dans le text box le format est
jj/mm/aaaa h:mm? comment n'avoir que le jour(lundi,mardi...)dans le text box
*dans text box2 je récupère un nombre mais je suis obligé de faire un clic
dessus pour que la valeur s'affiche pourtant j'ai rajouté un set focus.
comment avoir les 2 text box visibles en mm temps
voici mes 2 commandes:

Private Sub TextBox1_Enter()
TextBox1.Value = Range("d5").Value
End Sub

Private Sub TextBox2_Enter()
TextBox2.Value = Range("c5").Value
TextBox2.SetFocus
End Sub

merci de vos lumières dans l'obscurité de mon ignorance

pierre

pierre

18/02/2004 à 22:51

exxxxcellent, michdenis comme d'habitude
je te remerci beaucoup ainsi que tous les autres qui ont la patience,le
courage et l'envie de nous répondre à nous les petits de vba
pierre

"michdenis" a écrit dans le message news:

Bonjour Pierre,

Ta question n'est pas claire quant à l'événement que tu devrais utiliser
... mais le code suivant devrait faire le

travail. Il ne te reste plus qu'à sélectionner l'événement de ton choix
pour activer la macro.

Évidemment, le code suppose que tes données sont en feuil1. à toi
d'adapter...

'-------------------------
With Worksheets("Feuil1")
If IsDate(.Range("d5")) Then
Me.TextBox1 = Format(Range("d5"), "dddd")
End If
TextBox2 = .Range("c5").Value
End With
'-------------------------

Salutations!

"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:%

bonsoir à toutes et à tous,
*dans user form j'ai 2 textbox(1 et 2)
textbox 1 me sert àvoir une valeur qui est une date au format jjjj jj mmmm
aaaa or dans le text box le format est
jj/mm/aaaa h:mm? comment n'avoir que le jour(lundi,mardi...)dans le text
box

*dans text box2 je récupère un nombre mais je suis obligé de faire un clic
dessus pour que la valeur s'affiche pourtant j'ai rajouté un set focus.
comment avoir les 2 text box visibles en mm temps
voici mes 2 commandes:

Private Sub TextBox1_Enter()
TextBox1.Value = Range("d5").Value
End Sub

Private Sub TextBox2_Enter()
TextBox2.Value = Range("c5").Value
TextBox2.SetFocus
End Sub

merci de vos lumières dans l'obscurité de mon ignorance

pierre

une petite dernière

2 réponses

Veuillez sélectionner un problème