Bonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est lui qui
force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format 20/3 et
non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Bonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est lui qui
force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format 20/3 et
non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$426a74cc@news.free.fr...
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
Fr@ncis
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Bonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est lui qui
force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format 20/3 et
non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Bonjour,
Les valeurs des textboxes sont de type string. Il faut donc les
transposer en numérique ou date; par exemple :
If r = 1 Then Feuil1.Cells(derligne, r) = DateSerial(Year(Date),
Split(Ctrl.Value, "/")(1), Split(Ctrl.Value, "/")(0))
en prenant l'année en cours puisqu'elle n'est pas précisée.
Cordialement.
DanielBonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est
lui qui force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format
20/3 et non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les
yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Bonjour,
Les valeurs des textboxes sont de type string. Il faut donc les
transposer en numérique ou date; par exemple :
If r = 1 Then Feuil1.Cells(derligne, r) = DateSerial(Year(Date),
Split(Ctrl.Value, "/")(1), Split(Ctrl.Value, "/")(0))
en prenant l'année en cours puisqu'elle n'est pas précisée.
Cordialement.
Daniel
Bonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est
lui qui force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format
20/3 et non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les
yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$426a74cc@news.free.fr...
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
Fr@ncis
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Bonjour,
Les valeurs des textboxes sont de type string. Il faut donc les
transposer en numérique ou date; par exemple :
If r = 1 Then Feuil1.Cells(derligne, r) = DateSerial(Year(Date),
Split(Ctrl.Value, "/")(1), Split(Ctrl.Value, "/")(0))
en prenant l'année en cours puisqu'elle n'est pas précisée.
Cordialement.
DanielBonjour
Je viens de regarder.
La colonne A de ta feuille est formatée en dd/mm/yyyy
Mais, je crois que si tu entres une valeur via ton formulaire, c'est
lui qui force le formatage de ta cellule de destination.
Pour info, si je clique et reclique sur A ou A2, il reste en format
20/3 et non 20/03/2015.
Juste une question :
Pourquoi passer par un formulaire, alors que le tableau est sous les
yeux?
Encoder une valeur dans le formulaire ou dans la base, pour moi, c'est
kif-kif.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"gtoukc" a écrit dans le message de groupe de discussion :
550be57c$0$3371$
Bonjour à tous
Pourquoi mais pourquoi cela ????
Je suis désespéré ( en fait pas tant )
http://www.cjoint.com/15ma/ECuktmVmIPR.htm
Lorsque je saisie 12/3 dans le formulaire, 12/3 s'affiche au lieu
de 12/03/2015, il en va de même pour les colonnes en ¤uro...
Le plus marrant c'est que le fait de cliquer sur la cellule concernée et
de la valider, tout rentre dans l'ordre ce qui n' a plus aucun intérêt.
Merci pour votre sagacité
cordialement
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Ta procédure dans ton formulaire pourrait ressembler à ceci :
Tu devrais voir le tutoriel suggéré, car même cette présentation
a ces lacunes...
'--------------------------------------------------
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
On Error Resume Next
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
If Ctrl <> "" Then
r = Val(Ctrl.Tag)
Select Case Ctrl.Name
Case Is = "TextBox1"
Feuil1.Cells(derligne, r) = CDate(Ctrl)
Case Is = "TextBox2"
Feuil1.Cells(derligne, r) = Ctrl.Value
Case Is = "TextBox3", "TextBox4"
Feuil1.Cells(derligne, r) =
Val(Application.Substitute(Ctrl, ",", "."))
End Select
End If
Next
End With
TextBox1 = ""
End
End Sub
'--------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
megr17$u36$
Bonjour,
Pour ceux qui débutent avec les formulaires, il y a ces explications pour
débutant à cette adresse :
'Si tu veux télécharger des fichiers exemples, tu dois t'inscrire. Ce site
en vaut la peine...tu as
beaucoup d'informations sur Excel ainsi que des fichiers exemples...
http://www.excelabo.net/search/node/formulaire
Si tu as besoin d'explications supplémentaires, reviens ici...
Ta procédure dans ton formulaire pourrait ressembler à ceci :
Tu devrais voir le tutoriel suggéré, car même cette présentation
a ces lacunes...
'--------------------------------------------------
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
On Error Resume Next
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
If Ctrl <> "" Then
r = Val(Ctrl.Tag)
Select Case Ctrl.Name
Case Is = "TextBox1"
Feuil1.Cells(derligne, r) = CDate(Ctrl)
Case Is = "TextBox2"
Feuil1.Cells(derligne, r) = Ctrl.Value
Case Is = "TextBox3", "TextBox4"
Feuil1.Cells(derligne, r) =
Val(Application.Substitute(Ctrl, ",", "."))
End Select
End If
Next
End With
TextBox1 = ""
End
End Sub
'--------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
megr17$u36$1@speranza.aioe.org...
Bonjour,
Pour ceux qui débutent avec les formulaires, il y a ces explications pour
débutant à cette adresse :
'Si tu veux télécharger des fichiers exemples, tu dois t'inscrire. Ce site
en vaut la peine...tu as
beaucoup d'informations sur Excel ainsi que des fichiers exemples...
http://www.excelabo.net/search/node/formulaire
Si tu as besoin d'explications supplémentaires, reviens ici...
Ta procédure dans ton formulaire pourrait ressembler à ceci :
Tu devrais voir le tutoriel suggéré, car même cette présentation
a ces lacunes...
'--------------------------------------------------
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
On Error Resume Next
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
If Ctrl <> "" Then
r = Val(Ctrl.Tag)
Select Case Ctrl.Name
Case Is = "TextBox1"
Feuil1.Cells(derligne, r) = CDate(Ctrl)
Case Is = "TextBox2"
Feuil1.Cells(derligne, r) = Ctrl.Value
Case Is = "TextBox3", "TextBox4"
Feuil1.Cells(derligne, r) =
Val(Application.Substitute(Ctrl, ",", "."))
End Select
End If
Next
End With
TextBox1 = ""
End
End Sub
'--------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
megr17$u36$
Bonjour,
Pour ceux qui débutent avec les formulaires, il y a ces explications pour
débutant à cette adresse :
'Si tu veux télécharger des fichiers exemples, tu dois t'inscrire. Ce site
en vaut la peine...tu as
beaucoup d'informations sur Excel ainsi que des fichiers exemples...
http://www.excelabo.net/search/node/formulaire
Si tu as besoin d'explications supplémentaires, reviens ici...