Bonjour à tous,

Je suis nouveau sur ce forum et je débute dans le VBA.. Je m'excuse par avance pour le sujet qui d'après mes recherches est vu et revu... mais mes compétences limitées m'ont empêché d'appliquer les solutions.

Le contexte :
J'ai un formulaire sur lequel je rentre des données dont la première case (C4) est au format date.
En cliquant sur un bouton d'enregistrement, j'active la macro qui m'enregistre les données du formulaire dans un onglet "base de données" par une transposition (ajout ligne par ligne).

Le problème :
La date est inversée entre ma case C4 et ma base de données = passe du français à l'anglais. Je m'arrache les cheveux a bidouiller !

Pouvez-vous m'aider please ? Je suis désespéré..

Merci !!

Ci-dessous mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub transpose()
 
With Sheets("Formulaire")
    T = .Range("c4:c17").Value
    With Sheets("Base de données")
        If IsEmpty(.Range("a1")) Then dl = 1 Else: dl = .Range("A65000").End(xlUp).Row + 1
        .Range(.Cells(dl, 1), .Cells(dl, 14)) = Application.transpose(T)
       End With
    .Range("c4:c17").ClearContents
 
End With
MsgBox "Votre dialogue sécurité a bien été intégré à la base - Merci pour votre contribution"
End Sub