Date inverser

Le 10/12/2018 à 11:52

Bonjour,

Je rencontre encore un problème :'(

Dans mon programme avant j'entrait les dates moi même au format : ##/##/####

Donc en gros j'entre une date dans une Textbox de mon Userform

Ensuite quand je clic sur enregistrer, il recopier la date dans une cellule

A ce moment la je n'ai jamais eu de problème...

mais, ici pour la mise à jours de mon programme, j'ai modifier pour que la date du jours s'affiche automatiquement :

    Me.TextBox91.Value = Date
    Me.TextBox91.Value = Format(Now, "dd-mm-yy")

Quand je suis dans l'userform, je voit que la date s'affiche correctement donc par exemple : 10-12-18

Mais dans la feuille excel (après avoir enregistrer) il indique : 12-10-18

du coup quand je revient dans l'userform beh il l'affiche pareil : 12-10-18

Assez bizarre quand même ! :/

Le 10/12/2018 à 13:00

Bonjour,

Un exemple, qui pourra peut-être utile.

Cdlt.

12geoffrey027.xlsm (24.62 Ko)

Le 10/12/2018 à 13:45

Bonjour, merci à toi en effet je comprend

mais je comprend pas comment l'appliquer dans mon code (quelqu'un me la fait)

il fonctionne avec les TAG pour recopier les données...

'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

Le 10/12/2018 à 13:54

Re,

Et tu penses que l'on peut intervenir !...

Quel est le(s) contrôle(s) qui comportent une date ?

Joins un fichier.

L'auteur va se reconnaître, s'il passe par là.

Cdlt.

Le 10/12/2018 à 13:55

Voici le fichier

14de-l-habitat-o-jardin-copie.xlsm (514.20 Ko)

Le 10/12/2018 à 17:16

Une idée ?