Inversion date FR/US avec macro VBA

Version imprimable

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 :aie: !

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

Merci !!

Ci-dessous mon code :
Code:

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

09/04/2014, 15h38
Gado2600

Bonjour,
As-tu pensé à changé le format de ta plage de cellules de ton onglet base de données ?
Cordialement,

Bonjour freakhit

[Edit]

Pour éviter la mauvaise interprétation des dates par VBA, lui donner plutôt à interpréter la valeur numérique équivalente contenue dans la propriété Value2 des cellules.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub transpose2()
 
With Sheets("Formulaire")
 Nformat = .Range("c4").NumberFormat
 
    T = .Range("c4:c17").Value2 'mettre dans T la valeur numérique (Value2) et non la valeur date (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)).NumberFormat = Nformat
        .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

[/Edit]

10/04/2014, 13h31
freakhit

Super merci beaucoup DocMarti.

La solution marche à merveille !