Date inversée de USF à Feuille excel

**dgeo10** · 10/12/2018, 21h30

Bonsoir,
J'ai un petit problème avec mes dates ! :o
J'ai un USF pour ma facturation,
Il affiche la date du jours pour une nouvelle facture, ensuite quand je clic sur le bouton enregistrer il copie les données dans une feuille excel jusqu'ici pas de problème,

Cependant, lorsque la date est inférieur à J12 sa bug je m'explique :

Une date comme aujourd’hui donc 10-12-18 va être recopier dans excel en 12-10-18 ...
Mais si j'entre dans la TextBox 15-12-18 alors la, il recopie bien 15-12-18

J'ai regarder sur le net et en effet sa bug entre la version FR et US mais tout est bien en français dans les paramètres et même si je force le format en dd-mm-yy sa change rien

avez vous une idée ???

**unparia** · 10/12/2018, 23h20

Bonjour

avez vous une idée ?

Oui, bien sûr --->> une textbox contient une chaîne de caractères et non une date, un nombre, etc ....
Intéresse-toi aux fonctions dee conversion de type, parmi lesquelles la fonction cdate.

**dgeo10** · 10/12/2018, 23h57

Heu .. ok mais dans mon code qui recopie les texbox il fonctionne avec les tag. Je n'ai pas de code qui dit tel textbox se copie sur tel cellule.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'Enregistrer le devis ou la facture
Private Sub CommandButton6_click()
 
    If ComboBox13 = "" Then
    MsgBox "Aucun mode sélectionné"
    Exit Sub
    Else
 
 
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
Dim PM As Integer 'Partie Mobile
Dim NN As String 'Nouveau Numéro
Dim PF As String 'Partie Fixe
 
If ComboBox13.Value = "Devis" Then
If TextBox96.Value = "" Then
TextBox96.Value = "0"
End If
End If
 
 
If MsgBox("Êtes-vous sûr ?", 36, "Confirmation") = vbYes Then 'condition : si "Oui"au message
 
    Select Case UCase(Me.ComboBox13.Value) 'agit en fonction de la valeur de la ComboBox13 (convertie en majuscules)
 
        Case "DEVIS" 'cas "DEVIS"
            Set O = Worksheets("Devis") 'définit l'onglet O
        Case "FACTURE" 'cas "FACTURE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
        Case "ACOMPTE" 'cas "ACOMPTE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
    End Select 'fin de l'action en fonction de la valeur de la Combobox13
    PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
    For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
        'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle dans la cellule
        'ligne = PLV / colonne = valeur de la propriété [Tag] du contrôle
        If CTRL.Tag <> "" Then O.Cells(PLV, CTRL.Tag).Value = CTRL.Value
    Next CTRL 'prochaine contrôle de la boucle
End If 'fin de la condition
PF = Left(O.Cells(PLV - 1, 1).Value, 5)
PM = Mid(O.Cells(PLV - 1, 1).Value, 6) + 1
NN = PF & Format(PM, "00000")
O.Cells(PLV, 1).Value = NN
Worksheets("Facturier").Range("BV:BX").ClearContents 'supprime les données qu'il copie en trop dans Facturier
Worksheets("Devis").Range("BZ:BZ").ClearContents 'supprime les données qu'il copie en trop dans Devis
 
MsgBox "Les données sont enregistrées"
 
'Methode simple pour revenir à l'userform "Vide"
Unload Me 'Quitte l'userform
UserForm2.Show 'Revient dans l'userform
 
End If
End Sub

**Theze** · 11/12/2018, 14h50

Bonjour,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If CTRL.Tag <> "" Then
 
    With O.Cells(PLV, CTRL.Tag)
 
        If IsDate(CTRL.Value) Then .Value = CDate(CTRL.Value) Else .Value = CTRL.Value
 
    End With
 
End If

**BENNASR** · 11/12/2018, 14h56

bonsoir
sur ce super site j'ai vu les membres recommandent :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Sheets("feuil1").Cells(1, 1) = DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), Day(TextBox1.Value))
End Sub

**Pierre Fauconnier** · 11/12/2018, 15h44

Envoyé par BENNASR

bonsoir
sur ce super site j'ai vu les membres recommandent :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Sheets("feuil1").Cells(1, 1) = DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), Day(TextBox1.Value))
End Sub

Je ne suis pas certain que cela résoudrait le problème, puisque VBA va traduire la valeur de Textbox1 en date avant d'en extraire les trois parties (qui seront donc identiques avant et après).

Perso, je travaille en recomposant la date sur base des trois parties extraites de TextBox1 grâce à split ou à left, instr et right, en fonction du format de saisie supposé/vérifié dans le textbox.

Ne ne ferais pas du tout confiance à cDate, en tout cas.

Month(cDate("03/12/2018") ==>> 12
Month(cDate("12/31/2018") ===> 12

**Pierre Fauconnier** · 11/12/2018, 16h38

Salut Theze,

Ben oui, c'est justement ce que je voulais illustrer

A savoir qu'avec cDate, c'est le VBA qui "décide" de ce que tu as saisi. cDate dépend en plus des paramètres régionaux, ce qui fait que si tes paramètres régionaux Windows sont MM/jj/aaaa, cDate("03/12/2018") renverra le 12 mars, alors que si ces paramètres sont jj/MM/aaaa, ça renverra le 03/12...

C'est pourquoi je préfère considérer que la date a été saisie au format demandé et parser par rapport à ce format, plutôt que de déléguer cette tâche à VBA qui fera à sa sauce.

**Theze** · 11/12/2018, 16h42

Ok, Ok, je n'avais pas saisie le sens de ta réponse désolé

**Pierre Fauconnier** · 11/12/2018, 16h44

Pas de soucis...

Y a pas à être désolé. Pas toujours facile de bien se faire comprendre par clavier ^^

**MarcelG** · 11/12/2018, 16h51

Bonjour à tous,

(Hé salut!)

Si je peux me permettre.

Tous mes formulaires sont composés de 3 TextBox avec contrôle du mois (1à12) et Tab automatiques.

**Pierre Fauconnier** · 11/12/2018, 16h57

Salut Marcel,

Permets-toi, surtout (plus on est de fous

)

Perso, je n'aime pas. Pour des saisies récurrentes, je trouve que c'est galère sur le plan de la saisie. Et ça ne résout que les problèmes de userform. Pour tout ce qui est échange de données, on est quand même chocolat.

Mais à nouveau, ici comme ailleurs, ce n'est que "ma" vérité, qui est loin d'être universelle...

PS: Je réponds à ton mp ce soir. Promis juré, croix de bois, croix de fer...

**patricktoulon** · 11/12/2018, 17h15

bonsoir a tous

pour les moins exigeants qui developpe qu'en francais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim retour  As VbMsgBoxResult
    retour = vbYes
    With TextBox1
        If IsDate(.Value) Then
            If Format(.Value, "dd/mm/yyyy") <> .Value Then
                retour = MsgBox("la date est valide mais pas au bon format" & vbCrLf & "voulez vous la mettre reformatée", vbYesNo, "conversion de date")
            End If
            If retour = vbYes Then Sheets("feuil1").Cells(1, 1) = DateSerial(Year(.Value), Month(.Value), Day(.Value))
        Else
            MsgBox "ca n'est pas une date valide !!"
        End If
    End With
End Sub

pour les plus exigeants qui developpe en international

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
Private Sub CommandButton2_Click()
    Dim retour As VbMsgBoxResult, FORMAT_US_FR As String, x As Long
    retour = vbYes
    x = Application.International(xlDateOrder)
    FORMAT_US_FR = Switch(x = 0, "mm/dd/yyyy", x = 1, "dd/mm/yyyy", x = 2, "yyyy/mm/dd")
    With TextBox1
        If IsDate(.Value) Then
            If Format(.Value, FORMAT_US_FR) <> .Value Then
                retour = MsgBox("la date est valide mais pas au bon format" & vbCrLf & "voulez vous la mettre reformatée", vbYesNo, "conversion de date")
            End If
            If retour = vbYes Then Sheets("feuil1").Cells(1, 1) = DateSerial(Year(.Value), Month(.Value), Day(.Value))
        Else
            MsgBox "ca n'est pas une date valide !!"
        End If
    End With
End Sub

j'aurais pu ajouté une condition sur le xl4DigitYears mais j'ai pensé que c'etait suffisant pour une premiere fourné

je précise a toute fin utile que si les 4 digits pour l'année sont omis c'est l'année en cours qui est prise en compte

edit
j'ai corrigé le type de variable et les deux code pour la transcription si pas d'erreur mille excuses

**dgeo10** · 11/12/2018, 21h40

Bonsoir et merci pour vos réponse
je mélange un peut tout maintenant.

Une personne sur Facebook ma aider aussi tout à l'heure
voici un code que j'ai rajouter (quand j'appuie sur enregistrer facture

Code :

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

1
2
3
4
5
6
7
For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
    If CTRL.Tag <> "" Then
        With O.Cells(PLV, CTRL.Tag)
            If IsDate(CTRL.Value) Then .Value = CDate(CTRL.Value) Else .Value = CTRL.Value
        End With
    End If
Next

La maintenant la date du jours qui s'affiche dans mes textbox sont parfaitement recopier dans les cellules sur ma feuille sans inversion
MAIS :

Problème 1 :
Maintenant quand je suis dans l'USF
et que je regarde mes anciennes Factures (donc déjà enregistrer dans la base de données)
je clic sur la facture dans la listbox et il me la replace dans les textbox...

Mais il m'affiche une date encore mélanger ... dans la feuille c'est une facture avec comme date : 31-11-18
et il me l'affiche dans la textbox en 18-11-31 :s :s :s
à devenir fou !

problème 2 :
Si j'ai envie pour x raison d'entrer une autre date que celle du jours (il l'affiche automatiquement du coup)
donc je modifie la date du jours 11-12-18 en 10-11-18
et quand j'enregistre la facture il me copie quand même celle du jours ! malgré que j'ai mis une autre date dans la textbox ..

Heu ... je devient fou je pense
trop de codage tue le ... mais étant novice .... mdr

**dgeo10** · 11/12/2018, 21h43

Pour celui qui à envie
voici mon fichier avec les données persos supprimer

**Theze** · 12/12/2018, 06h29

Bonjour,

Une personne sur Facebook ma aider aussi tout à l'heure
voici un code que j'ai rajouter (quand j'appuie sur enregistrer facture

mais c'est le code que je t'ai donné plus haut et nous ne sommes pas sur Facebook ici !
Essai d'affecter la propriété "Text" de la cellule à tes TextBox plutôt que "Value" pour voir :

Code :

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

1
2
 
TextBox1.Text = Range("A1").Text

Date inversée de USF à Feuille excel

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager