Bonjour à toutes et tous
Voici mon petit problème, j'ai créé un formulaire sur lequel je dois renseigner
Date, nom du client, banque etc...
Après avoir tout renseigner je clique sur le bouton ajouter mon problème arrive dans l'insertion des données le format de ma date se transforme (exemple le 11/06/2014 en 06/11/2014)
Voici ma macro est ce que je dois renseigner quelque chose en plus????
Private Sub UserForm_Initialize() 'Date de la décade
For i = 14 To 24
ComboBox_Date.AddItem Sheets("Suivi Décade").Cells(i, 1)
Next
End Sub
Private Sub CommandButton_Ajouter_Click()
'Coloration des Labels en noir
Label_Date.ForeColor = RGB(0, 0, 0)
Label_Nom_du_Client.ForeColor = RGB(0, 0, 0)
Label_Banque.ForeColor = RGB(0, 0, 0)
Label_N°_du_chèque.ForeColor = RGB(0, 0, 0)
Label_Montant.ForeColor = RGB(0, 0, 0)
'Contrôles de contenu
If ComboBox_Date.Value = "" Then 'SI pas de "Date" ...
Label_Date.ForeColor = RGB(255, 0, 0) 'Label "Date" en rouge
ElseIf TextBox_Nom_du_Client.Value = "" Then
Label_Nom_du_Client.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Banque.Value = "" Then
Label_Banque.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_N°_du_chèque.Value = "" Then
Label_N°_du_chèque.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Montant.Value = "" Then
Label_Montant.ForeColor = RGB(255, 0, 0)
Else
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer, civilite As String
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Cells(no_ligne, 1) = ComboBox_Date.Value
Cells(no_ligne, 2) = TextBox_Nom_du_Client.Value
Cells(no_ligne, 3) = TextBox_Banque.Value
Cells(no_ligne, 4) = TextBox_N°_du_chèque.Value
Cells(no_ligne, 5) = TextBox_Montant.Value
'Après insertion, on remet les valeurs initiales
ComboBox_Date.ListIndex = -1
TextBox_Nom_du_Client.Value = ""
TextBox_Banque.Value = ""
TextBox_N°_du_chèque.Value = ""
TextBox_Montant.Value = ""
End If
End Sub
Private Sub TextBox_Nom_du_Client_Change()
End Sub
Merci d'avance
Mikael
Voici mon petit problème, j'ai créé un formulaire sur lequel je dois renseigner
Date, nom du client, banque etc...
Après avoir tout renseigner je clique sur le bouton ajouter mon problème arrive dans l'insertion des données le format de ma date se transforme (exemple le 11/06/2014 en 06/11/2014)
Voici ma macro est ce que je dois renseigner quelque chose en plus????
Private Sub UserForm_Initialize() 'Date de la décade
For i = 14 To 24
ComboBox_Date.AddItem Sheets("Suivi Décade").Cells(i, 1)
Next
End Sub
Private Sub CommandButton_Ajouter_Click()
'Coloration des Labels en noir
Label_Date.ForeColor = RGB(0, 0, 0)
Label_Nom_du_Client.ForeColor = RGB(0, 0, 0)
Label_Banque.ForeColor = RGB(0, 0, 0)
Label_N°_du_chèque.ForeColor = RGB(0, 0, 0)
Label_Montant.ForeColor = RGB(0, 0, 0)
'Contrôles de contenu
If ComboBox_Date.Value = "" Then 'SI pas de "Date" ...
Label_Date.ForeColor = RGB(255, 0, 0) 'Label "Date" en rouge
ElseIf TextBox_Nom_du_Client.Value = "" Then
Label_Nom_du_Client.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Banque.Value = "" Then
Label_Banque.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_N°_du_chèque.Value = "" Then
Label_N°_du_chèque.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Montant.Value = "" Then
Label_Montant.ForeColor = RGB(255, 0, 0)
Else
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer, civilite As String
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Cells(no_ligne, 1) = ComboBox_Date.Value
Cells(no_ligne, 2) = TextBox_Nom_du_Client.Value
Cells(no_ligne, 3) = TextBox_Banque.Value
Cells(no_ligne, 4) = TextBox_N°_du_chèque.Value
Cells(no_ligne, 5) = TextBox_Montant.Value
'Après insertion, on remet les valeurs initiales
ComboBox_Date.ListIndex = -1
TextBox_Nom_du_Client.Value = ""
TextBox_Banque.Value = ""
TextBox_N°_du_chèque.Value = ""
TextBox_Montant.Value = ""
End If
End Sub
Private Sub TextBox_Nom_du_Client_Change()
End Sub
Merci d'avance
Mikael
Dernière édition: