Date - TextBox

G

Gelinotte

XLDnaute Accro

• 22 Septembre 2012

• #2

Re : Date - TextBox

Bonsoir,

Dans la macro : Private Sub CommandButton1_Click()

Il y a :

Code:

For x = 0 To 4
    
    dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

À esayer :

Code:

For x = 1 To 4
    dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
    dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

G

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 22 Septembre 2012

• #3

Re : Date - TextBox

Merci
Ca fonctionne parfaitement.
Bon Week end
A+

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 22 Septembre 2012

• #4

Re : Date - TextBox

Je me suis avancé trop vite,en fait ca ne fonctionne pas
A+

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Septembre 2012

• #5

Re : Date - TextBox

Bonsoir,

Et ainsi ...

Code:

For x = 1 To 4
     dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
     dest.NumberFormat = "dd/mm/yyyy;@"
     dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
 Next x

G

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 22 Septembre 2012

• #6

Re : Date - TextBox

Re
J'ai essayé avec ceci

For x = 1 To 4
dest.Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

Cliquez pour agrandir...

Et en colonne A de la feuil2 formatage personalisé (aaaa/mm/jj) et lorsque je sélectionne la combo1 la date se remet au format français (jj/mm/aaaa).
Merci pour ton aide.
A+

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Septembre 2012

• #7

Re : Date - TextBox

Bonsoir,

Et en ajoutant la ligne : dest.NumberFormat = "dd/mm/yyyy;@", tel qu'au post #5 ?

En fait, quel est le format de date désiré dans la feuille ?

G

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Septembre 2012

• #8

Re : Date - TextBox

salut

bizarre ta boucle : je ne vois qu'un contrôle avec une date !
A adapter :

Code:

dest.Offset(0,1).Value = Format(Month(Textbox1) & "/" & Day(Textbox1) & "/" & Year(TextBox1), "mm/dd/yyyy")

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Septembre 2012

• #9

Re : Date - TextBox

Bonjour lynyrd
Bonjour le Fil
Bonjour Le Forum

Dans le même esprit que Si... "Pourquoi cette boucle ainsi ?????"
Voila ce que je mettrais

VB:

With dest
    .Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
For x = 1 To 4
    .Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
End With

je ne résous pas le problème ,mais je simplifie la procédure Lol
Bonne Journée
Amicalement
Jean Marie

 

Vote positif 0 Vote négatif