probleme avec date ?????

[petchy]

bonjour

dans un USF j'ai plusieurs textbox qui se remplissent quand je click sur un donnée de ma listbox.
quand je click sur un bouton j'ai toutes les données des textbox qui vont sur une feuille dans des cellules bien précise,ets ce qui est bizarre c'est au niveau d'une donnée c'est à dire une date,je m'explique
quand j'envoi les données la date se présente comme cela sur la textbox
02/07/1996
mais quand je regarde sur la feuille la date est devennu comme ça
07/02/1996
mais le plus extraordinaire c'est que sa ne le fait pas sur toute la colonne date
j'ai bien regardé les formats des cellules,mais rien de plus.
auriez vous une explication !!!!!
merci
@ plus
petchy

 

[Caillou]

Re : probleme avec date ?????

Bonjour,

VBA doit interpréter tes dates au format américain (MM/DD/YY) mais seulement si c'est possible, ex :
02/03 - 03/02
27/04 - 27/04
Tu devrais t'en sortir avec la fonction Format, comme par exemple :
Format(expression, "DD/MM/YYYY")

Caillou

 

[petchy]

Re : probleme avec date ?????

Bonjour Caillou
merci de me répondre,tu as raison pour le format USA,mais comment je dois faire pour mettre et ou le mettre : Format(expression, "DD/MM/YYYY").
merci
petchy

 

[G.David]

Re : probleme avec date ?????

ce probleme se pose pour les dates dont le mois peut être confondu avec le quantième 02/03/2007 fevrier ou mars perso je résouds ceci avec la définition du champs du textbox en date
quelque chose du genre

dim champ14 as date
champs14=textbox2.value

de memoire le problème ayant été resolu il y a 3 ans à peu prés
Cordialement
G.David

 

[Caillou]

Re : probleme avec date ?????

Re,

Il faut utiliser la commande Format dans le code VBA, là où tu écris le contenu du TextBox dans la cellule. Par exemple :
Range("A1").Value = Format(UserForm1.TextBox1,"dd/mm/yyyy")

Si tu n'y arrives pas, envoies un bout de ton code, j'essayerais de regarder.

Caillou

 

[petchy]

Re : probleme avec date ?????

Re

G.David j'ai mis se code dans le bouton "valider",mais il marque "variable non définie",pourtant j'ai mis
Option Explicit
Dim champ14 As Date
voila le code du bouton ,faites pas attention car rien n'est renseigné 😉
Private Sub CommandButton5_Click() 'MODE MAJ VALIDATION MAJ
Dim champ14 As Date
Dim Msg As String
List1.Value = ""
If TextBox10 = "" Then
MsgBox "Votre Contact n'a pas de nom ? ", _
vbCritical, "Validation Error"
Exit Sub
End If

With Sheets("base")
.Range("A" & NomLBindex).Value = TextBox10.Value
.Range("B" & NomLBindex).Value = TextBox11.Value
.Range("C" & NomLBindex).Value = TextBox12.Value
.Range("D" & NomLBindex).Value = TextBox13.Value
.Range("E" & NomLBindex).Value = TextBox14.Value 'date
.Range("G" & NomLBindex).Value = TextBox1.Value
.Range("I" & NomLBindex).Value = TextBox2.Value
.Range("H" & NomLBindex).Value = TextBox3.Value
.Range("J" & NomLBindex).Value = TextBox7.Value
.Range("L" & NomLBindex).Value = TextBox8.Value
.Range("K" & NomLBindex).Value = TextBox9.Value
.Range("M" & NomLBindex).Value = TextBox16.Value
.Range("N" & NomLBindex).Value = TextBox17.Value
.Range("O" & NomLBindex).Value = TextBox18.Value
.Range("P" & NomLBindex).Value = TextBox4.Value
.Range("Q" & NomLBindex).Value = TextBox19.Value
.Range("R" & NomLBindex).Value = TextBox20.Value
.Range("S" & NomLBindex).Value = TextBox21.Value
.Range("T" & NomLBindex).Value = ComboBox1.Value
.Range("AK1").Value = TextBox22.Value
.Range("AL1").Value = TextBox23.Value
.Range("AM1").Value = TextBox24.Value
.Range("AN1").Value = TextBox25.Value
.Range("AO1").Value = TextBox26.Value
.Range("AP1").Value = TextBox27.Value
.Range("AQ1").Value = TextBox28.Value
End With
MsgBox TextBox1 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "Nom de l'Enfant = " & vbTab & TextBox10 _
& vbCrLf & vbCrLf & vbTab & "Prénom de l'Enfant = " & vbTab & TextBox11 _
& vbCrLf & vbCrLf & vbTab & "Prénom du Père = " & vbTab & TextBox1 _
& vbCrLf & vbCrLf & vbTab & "Prénom de la Mère = " & vbTab & TextBox3 _
& vbCrLf & vbCrLf & vbTab & "Employeur = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "l'Adresse = " & vbTab & TextBox7 _
& vbCrLf & vbCrLf & vbTab & "la Commune = " & vbTab & TextBox9 _
& vbCrLf & vbCrLf & vbTab & "le Téléphone = " & vbTab & TextBox8 _
& vbCrLf & vbCrLf & vbTab & "N° de la CAF = " & vbTab & TextBox12 _
& vbCrLf & vbCrLf & vbTab & "Sexe = " & vbTab & TextBox13 _
& vbCrLf & vbCrLf & vbTab & "Date de Naissance = " & vbTab & TextBox14, _
vbInformation, "Mise à Jour Accomplie"
Sheets("fiche").Select
[E3] = UserForm1.TextBox1.Value
[E4] = UserForm1.TextBox2.Value
[E5] = UserForm1.TextBox3.Value
[E6] = UserForm1.TextBox7.Value
[E7] = UserForm1.TextBox8.Value
[D25] = UserForm1.TextBox10.Value
[G25] = UserForm1.TextBox11.Value
[D21] = UserForm1.TextBox12.Value
[J26] = UserForm1.TextBox13.Value
[J25] = UserForm1.TextBox14.Value
[L25] = UserForm1.TextBox15.Value
[F30] = UserForm1.TextBox16.Value
[F31] = UserForm1.TextBox17.Value
[F32] = UserForm1.TextBox18.Value
[F33] = UserForm1.TextBox4.Value
[K30] = UserForm1.TextBox19.Value
[K31] = UserForm1.TextBox20.Value
[K32] = UserForm1.TextBox21.Value
[D30] = UserForm1.TextBox22.Value
[D31] = UserForm1.TextBox23.Value
[D32] = UserForm1.TextBox24.Value
[D33] = UserForm1.TextBox25.Value
[G30] = UserForm1.TextBox26.Value
[G31] = UserForm1.TextBox27.Value
[G32] = UserForm1.TextBox28.Value
[K33] = UserForm1.ComboBox1.Value
Unload Me
UserForm1.Hide
End Sub

merci
petchy

 

[Caillou]

Re : probleme avec date ?????

As tu essayé
.Range("E" & NomLBindex).Value = Format(TextBox14.Value,"dd/mm/yyyy) 'date

 

[petchy]

Re : probleme avec date ?????

Re

Caillou je viens d'essayer mais c'est toujours pareil
petchy

 

[pierrejean]

Re : probleme avec date ?????

bonjour a tous

a tester

Range("A1") = CDate(TextBox1)

voir fichier joint

 

[petchy]

Re : probleme avec date ?????

merci pierrejean c'est nickel,ça fonctionne
et un grand merci à Caillou et G.David pour leurs réponses.
bonne soirée
petchy

 

[G.David]

Re : probleme avec date ?????

Ton probleme est résolu
ce que je te donnais
Dim champ14 as date
.Range("E" & NomLBindex).Value = TextBox14.Value 'date
champ14=textbox14.value
.Range("E" & NomLBindex).Value = champ14
juste en précision
Cordialement
G.David