Date inséré par USERFORM n'a pas le format Date

[lloyd67]

Salut la communauté,

j'ai un sushi que je n'arrive pas à RESOUUUUUUDRE !!! non di diou

1. mon fichier est joint

2. mon problème :

C'est un fichier simple de saisie de feuille de production d'atelier,
où je reprend ce qu'on écrit le personnel de production pour sortir 3 indicateurs.

J'ai une feuille nommée "SAISIE"
- Partie de gauche (en-tête Orange) pour la saisie via un USERFORM (accès avec bouton "FORMULAIRE")
- Partie de droite (en-tête Grise) pour la "rechercheV" des données dans ma base (automatique).

Dans mon USERFORM de saisie, j'ai intégré plusieurs données, dont la 1ere : la date à saisir (ce n'est pas la date du jour, mais la date du document papier à saisir), la n'est pas le problème.

Une fois validé, une ligne apparais dans mon tableau.
Le soucis, c'est que pour que les indicateurs des autres pages prennent en compte les données, le format de la cellule doit se remettre à jour.
=> Je dois soit double cliquer et ENTREE pour que la donnée soit prise en compte.
=> Ou convertir la ligne en date via CONVERTIR.

En partant de là, je me suis dit, je vais faire un deuxième bouton lié à une maccro CONVERTIR en Date pour toute la colonne date.
=> ça fonctionne !!!!

MAIS

quand j'ai une date de type :
01/02/2018

si j'appui une nouvelle fois sur mon bouton CONVERTIR, elle passe en
02/01/2018 (ça inverse le mois et le jour quand c'est possible)

etc.....

J'ai même essayé d'enregistrer une maccro pour convertir 2 fois la colonne des dates pour que cela s'inverse deux fois, mais rien n'y fait.....

Donc je ne pense pas que ce soit la bonne solution.
La meilleure soluce serai de trouver un moyen pour que lorsque je valide ma fiche de mon userform, elle soit directement en date et pris en compte par la même occasion dans mes feuilles d'indicateur.


merci de me filer quelques tuyaux !
@+

 

[Robert]

Bonjour Lloyd, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim A As Long

A = CDate(Me.TextBox8.Value)
With Feuil7
    derlign = .Range("a65536").End(xlUp).Row + 1
    .Cells(derlign, 2).Value = ComboBox1
    .Cells(derlign, 3).Value = TextBox2
    .Cells(derlign, 4).Value = TextBox3
    .Cells(derlign, 7).Value = TextBox5
    .Cells(derlign, 6).Value = TextBox4
    .Cells(derlign, 5).Value = TextBox6
    .Cells(derlign, 8).Value = ListBox1
    .Cells(derlign, 1).Value = A
    .Cells(derlign, 1).NumberFormat = "dd/mm/yy"
    .Range("A5").Select
End With
UserForm2.Show
End Sub

 

[lloyd67]

ça marche du feu de dieu, merci !!!
moi qui galérait à trouver des pirouettes cacahuètes....

MERCI