Bonjour le forum,
Malgrès que tous les paramètres soient corrects la date que j'essaye de placer en "dd/mm/yyyy" se place en mm/dd/yyyy"
Voici les paramètres introduits :
Dans le code :
'Date IN auto
Me.TextBox1.Value = Format(Date, "dd/mm/yyyy")
Ce que cela donne dans le formulaire :
Le code d'introduction dans le sheet :
'Bouton insérer
Private Sub CommandButton3_Click()
Dim Ligne As Integer
Dim I As Integer
Dim ctrls As Variant
Dim wsModele As Worksheet
Dim wsOverview As Worksheet
Dim Wb As Workbook
Dim shtName As String
Dim Wbe As Workbook
' Renseigner l'onglet "PN request overview"
If MsgBox("Are you sure you want to INSERT this data?", vbYesNo, "Request for confirmation") = vbYes Then 'condition : si oui au message
' le déverrouiiler
Sheets("PN request overview").Unprotect ""
Set Wbe = ThisWorkbook
' Permet de se positionner sur la dernière ligne de tableau NON VIDE
Ligne = Sheets("PN request overview").Range("a65536").End(xlUp).Row + 1
ctrls = Array(Me.TextBox1, _
Me.ComboBox2, _
Me.TextBox2, _
Me.TextBox3, _
Me.ComboBox10, _
Me.ComboBox6, _
Me.ComboBox7, _
Me.TextBox5, _
Me.ComboBox3, _
Me.TextBox6, _
Me.TextBox7, _
Me.TextBox10)
For I = 1 To 12
ws.Cells(Ligne, I) = ctrls(I - 1).Value
ws.Cells(Ligne, 8).NumberFormat = "@"
Next I
End If
' Créer un lien hypertexte sur la Cells(Ligne, 3) avec la valeur de la Textbox2
Set wsOverview = ThisWorkbook.Sheets("PN request overview")
wsOverview.Hyperlinks.Add Anchor:=wsOverview.Cells(Ligne, 3), Address:="", SubAddress:=TextBox2.Value & "!A1", TextToDisplay:=TextBox2.Value
' Créer un nouvel onglet sur la base du modèle
Set wsModele = ThisWorkbook.Sheets("Template PN request")
wsModele.Visible = True
wsModele.Copy , Worksheets(Worksheets.Count)
Sheets("Template PN request (2)").Move after:=Worksheets(4)
Set ws = Worksheets("Template PN request (2)")
ws.Name = TextBox2.Value ' Remplacez "TextBox2" par le nom de votre TextBox
wsModele.Visible = xlSheetVeryHidden
' Trie les données par date la plus récente dans la colonne A
Sheets("PN request overview").Range("A3:L" & Ligne).Sort Key1:=Sheets("PN request overview").Range("A3"), Order1:=xlDescending, Header:=xlNo
' Le re-vérouiller
'ActiveWorkbook = Wbe.Select
Sheets("PN request overview").Protect Password:=""
Sheets("PN request overview").Activate
Unload Me ' Vide et ferme l'Userform ( formulaire)
UserForm1.Show
End Sub
Ce que cela donne dans le sheet :
Le format de date sélectionné pour la cellule :
Pouvez-vous m'expliquer et m'aiguiller vers une solution svp.
Les autres date introduites en dessous de la date d'exemple ont été introduite manuellement.
Et je ne peux pas changer la config d'excel car il y as d'autres utilisateur de ce fichier...
Merci d'avance