Gros problème de date

Le 08/02/2025 à 11:40

Bonjour à tous je suis complètement perdu impossible de trouver une solution quand j'édicte mes dates dans mon userform en format dd/mm/yyyy sa marche tres bien mes sur mon tableau de base de donnee mon dd passe en mm je n'arrive pas à trouver la solution

(je vous donne mes formul où il y a mes dates)

' Fontion Insere
Function copy_with_repeat()
Dim LastRow As Long
LastRow = ThisWorkbook.Sheets("Base De Donnée Clients").Range("A1000000").End(xlUp).Row
LastRow = LastRow + 1
With ThisWorkbook.Sheets("Base De Donnée Clients")
.Range("A" & LastRow).Value = Format(TextBox_DateAppelOuPassage.Value, "dd/mm/yyyy")
.Range("B" & LastRow) = ComboBox_OrigineContact.Value
.Range("D" & LastRow) = ComboBox_NumeroClient.Value
.Range("E" & LastRow) = ComboBox_MadameMonsieur.Value
.Range("F" & LastRow) = TextBox_NomPrenom.Value
.Range("G" & LastRow) = TextBox_Adresse.Value
.Range("H" & LastRow) = TextBox_CodePostal.Value
.Range("I" & LastRow) = TextBox_Ville.Value
.Range("J" & LastRow) = TextBox_TelFixe.Value
.Range("K" & LastRow) = TextBox_TelPortable.Value
.Range("L" & LastRow) = TextBox_Mail.Value
.Range("C" & LastRow) = TextBox_Observation.Value
.Range("U" & LastRow) = ComboBox_Commercial.Value
.Range("FW" & LastRow) = ComboBox_Agence.Value
.Range("M" & LastRow) = ComboBox_ChantierMadameMonsieur.Value
.Range("N" & LastRow) = TextBox_ChantierNomPrenom.Value
.Range("O" & LastRow) = TextBox_ChantierAdresse.Value
.Range("P" & LastRow) = TextBox_ChantierCodePostal.Value
.Range("Q" & LastRow) = TextBox_ChantierVille.Value
.Range("R" & LastRow) = TextBox_ChantierTelFixe.Value
.Range("S" & LastRow) = TextBox_ChantierTelPortable.Value
.Range("T" & LastRow) = TextBox_ChantierMail.Value
.Range("V" & LastRow) = TextBox_Date1erRDV.Value
.Range("FX" & LastRow) = ComboBox_Validationdevis.Value
End With
End Function

'Fonction modifier et enregister

Function edit_from_sheet()
Dim rng1 As Range
Dim str_search As String
str_search = ComboBox_NumeroClient.Value
ThisWorkbook.Sheets("Base De Donnée Clients").Activate
Set rng1 = Sheets("Base De Donnée Clients").Range("D:D").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
rng1.Select
Dim row_number As Long
row_number = ActiveCell.Row
ThisWorkbook.Sheets("Base De Donnée Clients").Activate
Sheets("Base De Donnée Clients").Range("A" & row_number).Value = CDate(TextBox_DateAppelOuPassage.Value)
Sheets("Base De Donnée Clients").Range("A" & row_number).NumberFormat = "dd/mm/yyyy" ' Ajustez le format selon vos préférences
Sheets("Base De Donnée Clients").Range("B" & row_number) = ComboBox_OrigineContact.Value
Sheets("Base De Donnée Clients").Range("D" & row_number) = ComboBox_NumeroClient.Value
Sheets("Base De Donnée Clients").Range("E" & row_number) = ComboBox_MadameMonsieur.Value
Sheets("Base De Donnée Clients").Range("F" & row_number) = TextBox_NomPrenom.Value
Sheets("Base De Donnée Clients").Range("G" & row_number) = TextBox_Adresse.Value
Sheets("Base De Donnée Clients").Range("H" & row_number) = TextBox_CodePostal.Value
Sheets("Base De Donnée Clients").Range("I" & row_number) = TextBox_Ville.Value
Sheets("Base De Donnée Clients").Range("J" & row_number) = TextBox_TelFixe.Value
Sheets("Base De Donnée Clients").Range("K" & row_number) = TextBox_TelPortable.Value
Sheets("Base De Donnée Clients").Range("L" & row_number) = TextBox_Mail.Value
Sheets("Base De Donnée Clients").Range("C" & row_number) = TextBox_Observation.Value
Sheets("Base De Donnée Clients").Range("U" & row_number) = ComboBox_Commercial.Value
Sheets("Base De Donnée Clients").Range("FW" & row_number) = ComboBox_Agence.Value
Sheets("Base De Donnée Clients").Range("M" & row_number) = ComboBox_ChantierMadameMonsieur.Value
Sheets("Base De Donnée Clients").Range("N" & row_number) = TextBox_ChantierNomPrenom.Value
Sheets("Base De Donnée Clients").Range("O" & row_number) = TextBox_ChantierAdresse.Value
Sheets("Base De Donnée Clients").Range("P" & row_number) = TextBox_ChantierCodePostal.Value
Sheets("Base De Donnée Clients").Range("Q" & row_number) = TextBox_ChantierVille.Value
Sheets("Base De Donnée Clients").Range("R" & row_number) = TextBox_ChantierTelFixe.Value
Sheets("Base De Donnée Clients").Range("S" & row_number) = TextBox_ChantierTelPortable.Value
Sheets("Base De Donnée Clients").Range("T" & row_number) = TextBox_ChantierMail.Value
Sheets("Base De Donnée Clients").Range("V" & row_number) = TextBox_Date1erRDV.Value
Sheets("Base De Donnée Clients").Range("FX" & row_number) = ComboBox_Validationdevis.Value
Else
MsgBox str_search & "Not Found"
End If
End Function

'Numero Client automatique

Private Sub UserForm_Initialize()
Me.ComboBox_NumeroClient.Value = "CLI-" & Format(ThisWorkbook.Sheets("Base De Donnée Clients").Range("B1").Value + 1, "00000")

'Date automatique

TextBox_DateAppelOuPassage.Text = Format(CDate(Now()), "dd/mm/yyyy")
End Sub

' Format date

Private Sub TextBox_Date1erRDV_AfterUpdate()
On Error Resume Next
Me.TextBox_Date1erRDV = Format(CDate(Me.TextBox_Date1erRDV), "dd/mm/yyyy")
End Sub
'Pour le bouton inserer
Private Sub CommandButtonInsérer_Click()
Call GenerateUniqueRef
Call copy_with_repeat
Call reset_all_controls
Me.ComboBox_NumeroClient.Value = "CLI-" & Format(ThisWorkbook.Sheets("Base De Donnée Clients").Range("B1").Value + 1, "00000")
TextBox_DateAppelOuPassage.Text = Format(CDate(Now()), "dd/mm/yyyy")
Unload Me
End Sub

edit modération : code mis entre balises "</>" via le bouton de la barre d'édition du message, merci d'y penser à l'avenir.

bon courage à celui ou celle qui peut me trouver une solution

Le 08/02/2025 à 11:48

Pour information j'ai même essayé de supprimer toutes mes formules date mais j'ai le même problème le jour s'inverse avec le mois d'un mon tableau base de données

Le 08/02/2025 à 12:16

Bonjour,

et gros problème pour suivre tes sujets. Sur les précédents il t'est demandé de joindre un fichier, sans réponse de ta part... C'est valable aussi ici si tu veux une réponse correcte et rapide.

image

Et quand tu colles un code il faut le mettre en en forme avec cet outil qu'il soit lisible facilement :

image
Le 08/02/2025 à 17:33
11suivieclients-25-01-25-mise-a-jour.xlsm (2.44 Mo)
Le 08/02/2025 à 17:43

Hello, j'ai pas lu mais pour éviter les inversements mois/jour par excel qui est en "natif" en format date US, utilises plutôt

.value2

à la place de

.value

Bonne soirée

Le 08/02/2025 à 18:52

Bonsoir ,

Essayez : .Range("V" & LastRow) = CDATE(TextBox_Date1erRDV.Value)

et Sheets("Base De Donnée Clients").Range("V" & row_number) = CDate(TextBox_Date1erRDV.Value)

Le 09/02/2025 à 11:37

Super je te remercie apparemment ça fonctionne mes j ai une erreur de déblocage sa me note erreur d'exécution 13 : incomparabilité de type.

Le 09/02/2025 à 11:42

Bonjour,

Est ce que la proposition de notre ami BsAlv que tu trouveras en fin de post peut te convenir

https://forum.excel-pratique.com/excel/insertion-des-donnees-dans-un-feuille-excel-198160

Le 09/02/2025 à 11:58

Salut ma fraise

Merci pour ton aide ça fonctionne seul petit problème c'est est-ce que je peux rajouter une condition que si il n'y a pas de date je n'ai pas le message déblocage qui apparaît

Rechercher des sujets similaires à "gros probleme date"