j’ai remarqué un petit soucis lors des saisies des Rendez-vous.
Les dates jusqu’au 13 du mois s’inscrivent au format correct, mais pas celles du 01 au 12. Voici une capture de l’écran de ce qu’il m’inscrit et je te laisse le code qui valide mes saisies de RDV.
J’espère que cela va t’aider pour voir ce qui cloche dans le format des dates.
Merci d’avance à toi.
Amicalement Rubis
Private Sub VALIDATION_Click()
Application.ScreenUpdating = False
Private Sub VALIDATION_Click()
Application.ScreenUpdating = False
Set Wagenda = Sheets("AGENDA")
Set Wrdv = Sheets("Rdv")
Dl = Wrdv.Range("A" & Rows.Count).End(xlUp).Row + 1
If Dl = 2 Then
Wrdv.Cells(Dl, 1).Value = 1
Else
Wrdv.Cells(Dl, 1).Value = Application.WorksheetFunction.Max(Wrdv.Range("A2:A" & Dl).Value) + 1
End If
Wrdv.Cells(Dl, 2).Value = CDate(Me.TextBox1.Value)
Wrdv.Cells(Dl, 2).NumberFormat = "m/d/yyyy"
Wrdv.Cells(Dl, 3).Value = CDate(Me.TextBox2.Value)
Wrdv.Cells(Dl, 3).NumberFormat = "m/d/yyyy"
Wrdv.Cells(Dl, 4).Value = Me.ComboBox1.Value
Wrdv.Cells(Dl, 5).Value = Me.TextBox3.Value
Wrdv.Cells(Dl, 6).Value = Me.TextBox4.Value
Dc = Wagenda.Cells(7, Columns.Count).End(xlToLeft).Column
For Col = 4 To Dc
If Wagenda.Cells(7, Col).Value = CDate(Me.TextBox2.Value) Then
For Lig = 8 To 33
If Wagenda.Cells(Lig, 4).Value = Me.ComboBox1.Value Then
Wagenda.Cells(Lig, Col) = Me.TextBox3.Value & Chr(10) & Me.TextBox4.Value
GoTo fin
End If
Next Lig
End If
Next Col
fin:
RAZ
Unload Me
Call TRIAGE_RDV
End Sub
j’ai modifié et cela m’inscrit bien les dates comme voulu.
J’ai remplacé le code dans « VALIDATION » et « MODIFICATION ».
Est-ce que je change aussi les lignes dans les deux ci-dessous ?
Private Sub UserForm_Initialize() Me.TextBox1.Value = Format(Date, « dd/mm/yyyy »)
GESTION_AGENDA.ListBox1.List = Sheets(« Rdv »).Range(« A2:F » & Sheets(« Rdv »).Range(« A » & Rows.Count).End(xlUp).Row).Value
End Sub
Private Sub SUPPRESSION_Click() ’ Supprimer le rendez-vous selectionné
Application.ScreenUpdating = False
Set Wrdv = Sheets(« Rdv »)
Dl = Wrdv.Range(« A » & Rows.Count).End(xlUp).Row
For i = 2 To Dl
If Me.lblRdv.Caption = Wrdv.Cells(i, 1).Value Then
Wrdv.Rows(i).Delete
RAZ
Exit For
End If
Next Me.TextBox1.Value = Format(Date, « dd/mm/yyyy »)
Application.ScreenUpdating = False