MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX 01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER 2005 J AI LE 02
JANVIER 2005
Private Sub TextBox1_Change() With Arrivée ' Au 10ème caractère, ajouter une guillemet devant la date Select Case Len(.TextBox1.Value) Case 10 .TextBox1.Value = "'" & .TextBox1.Value End Select End With End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers la feuille excel
' copier la valeur et la coller dans la cellule J2 ' Selection.Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse
Fais un essai avec ce code et dis-moi si cela te conviens SylvieB
-----Message d'origine----- MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX 01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER 2005 J AI LE 02
JANVIER 2005
TU AS EU LE MEME PROBLEME?
MERCI .
Oui, j'ai eu ce problème.
Voici le code que j'utilise
1) au niveau du textbox :
Private Sub TextBox1_Change()
With Arrivée
' Au 10ème caractère, ajouter une guillemet devant la
date
Select Case Len(.TextBox1.Value)
Case 10
.TextBox1.Value = "'" & .TextBox1.Value
End Select
End With
End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers
la feuille excel
' copier la valeur et la coller dans la cellule J2
'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Fais un essai avec ce code et dis-moi si cela te conviens
SylvieB
-----Message d'origine-----
MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN
COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX
01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER
2005 J AI LE 02
Private Sub TextBox1_Change() With Arrivée ' Au 10ème caractère, ajouter une guillemet devant la date Select Case Len(.TextBox1.Value) Case 10 .TextBox1.Value = "'" & .TextBox1.Value End Select End With End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers la feuille excel
' copier la valeur et la coller dans la cellule J2 ' Selection.Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse
Fais un essai avec ce code et dis-moi si cela te conviens SylvieB
-----Message d'origine----- MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX 01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER 2005 J AI LE 02
JANVIER 2005
TU AS EU LE MEME PROBLEME?
MERCI .
Sam
Non ca ne marche pas j ai creer un nouveau fichier j ai mis le code et ca ne marche pas quand je fais un nouveau userform peux tu me dire ce que je dois mettre dans la zone VB du textbox 1 pour resoudre ce probleme?
Merci
Oui, j'ai eu ce problème.
Voici le code que j'utilise
1) au niveau du textbox :
Private Sub TextBox1_Change() With Arrivée ' Au 10ème caractère, ajouter une guillemet devant la date Select Case Len(.TextBox1.Value) Case 10 .TextBox1.Value = "'" & .TextBox1.Value End Select End With End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers la feuille excel
' copier la valeur et la coller dans la cellule J2 ' Selection.Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse
Fais un essai avec ce code et dis-moi si cela te conviens SylvieB
-----Message d'origine----- MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX 01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER 2005 J AI LE 02
JANVIER 2005
TU AS EU LE MEME PROBLEME?
MERCI .
Non ca ne marche pas
j ai creer un nouveau fichier j ai mis le code et ca ne marche pas
quand je fais un nouveau userform peux tu me dire ce que je dois mettre dans
la zone VB du textbox 1 pour resoudre ce probleme?
Merci
Oui, j'ai eu ce problème.
Voici le code que j'utilise
1) au niveau du textbox :
Private Sub TextBox1_Change()
With Arrivée
' Au 10ème caractère, ajouter une guillemet devant la
date
Select Case Len(.TextBox1.Value)
Case 10
.TextBox1.Value = "'" & .TextBox1.Value
End Select
End With
End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers
la feuille excel
' copier la valeur et la coller dans la cellule J2
'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Fais un essai avec ce code et dis-moi si cela te conviens
SylvieB
-----Message d'origine-----
MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN
COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX
01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER
2005 J AI LE 02
Non ca ne marche pas j ai creer un nouveau fichier j ai mis le code et ca ne marche pas quand je fais un nouveau userform peux tu me dire ce que je dois mettre dans la zone VB du textbox 1 pour resoudre ce probleme?
Merci
Oui, j'ai eu ce problème.
Voici le code que j'utilise
1) au niveau du textbox :
Private Sub TextBox1_Change() With Arrivée ' Au 10ème caractère, ajouter une guillemet devant la date Select Case Len(.TextBox1.Value) Case 10 .TextBox1.Value = "'" & .TextBox1.Value End Select End With End Sub
2) sur la feuille excel :
' tranférer les données de la boite de dialogue vers la feuille excel
' copier la valeur et la coller dans la cellule J2 ' Selection.Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse
Fais un essai avec ce code et dis-moi si cela te conviens SylvieB
-----Message d'origine----- MERCI POUR TA REPONSE MAIS J AI PEUR DE NE PAS BIEN COMPRENDRE
EN FAIT QUAND JE MET LA DATE DANS LE SUBFORM PAR EX 01/02/05 SUR LA FEUILLE
EXCEL J AI 02/01/05 DONC AU LIEU D AVOIR LE 01 FEVRIER 2005 J AI LE 02
JANVIER 2005
TU AS EU LE MEME PROBLEME?
MERCI .
Pierre CFI [mvp]
bonjour Range("a1") = Format(Me.textbox,"mm/dd/yyyy") en vb on travaille avec le code date US, pour l'avoir en français
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
bonjour
Range("a1") = Format(Me.textbox,"mm/dd/yyyy")
en vb on travaille avec le code date US, pour l'avoir en français
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
