Format date : inversion jour-mois

Bonjour à tous,

Dans le fichier joint, j'ai deux formulaires avec des textbox, dont 2 où je rentre une date. Une fois le formulaire rempli et validé le jour et le moi s'inverse dans la cellule excel.

J'ai cherché mais aucune des solutions trouvées ne corrigent le problème.

Pouvez vous m'aider ?

Merci

Bonjour

Regarde si cela te convient

Bonjour,

Merci mais avec ton fichier, la date d'inscription et la date de naissance sont les mêmes. Et quelque soit la date que tu inscrit, cela met la date du jour.

Je vais regarder de mon coté à partir de ton fichier.

Mais si tu cherche encore, cela me va aussi.

Merci

J'ai trouvé, cela à l'air de fonctionner

J'ai mis comme code

Private Sub TextBox1_Click()
TextBox1.Value = Format(CSDate, "dd/mm/yy")
End Sub

Bonjour le fil

Ou alors dans la sub Créer

Case 1, 2, 3, 5 To 11, 15
  iT = iT + 1
  If x = 1 then
    .Cells(L, x) = CDate(Me.Controls("TextBox" & iT))
  Else
    .Cells(L, x) = Me.Controls("TextBox" & iT).Text
  End If
Case 4
  iC = iC + 1
  .Cells(L, x) = CDate(Me.Controls("ComboBox" & iC))

A+

Bonjour,

Je croyais avoir résolu le problème mais en travaillant dessus depuis lundi avec des inscription en réel, je me suis aperçu que cela ne fonctionnait pas.

Merci à BrunoM45 pour ton code qui fonctionne uniquement sur la première date et pas sur la date de naissance.

J'ai un autre problème

, j'ai une fonction imprim en double cliquant sur le sport. Depuis que j'ai ajouté la 1ere colonne, je n'arrive pas à sélectionner les bonne cellule.

Je remet le fichier tel qu'il est ce jour.

Merci d'avance pour vos retours

bonjour,

c'est l'éternel problème de date. Excel afficher les dates en prenant en compte les paramètres régionaux.

vba voir les dates Au format américain.

cdate prend en charge les paramètres régionaux.

ta combobox ne contient pas de date !

comment cuisinier cest format différent avec des langages et des cultures différentes.

et bien en ne laissant aucune ambiguïté en utilisant le format international.

.Cells(L, x) = Format(Me.Controls("ComboBox" & iC),"yyyy-mm-dd")

idealement il faudrait utiliser dateserie