Discussion :

[freakhit]

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

[Gado2600]

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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[freakhit]

Super merci beaucoup DocMarti.

La solution marche à merveille !