Format date UserForm

Bonjour tout le monde,

@ Mimimathy,
Bonjour Mimimathy,

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

Capture d’écran format date RDV

Private Sub VALIDATION_Click()
Application.ScreenUpdating = False

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 = Format(Me.TextBox1.Value, « dd/mm/yyyy »)
Wrdv.Cells(Dl, 3).Value = Format(Me.TextBox2.Value, « dd/mm/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

fin:
RAZ
Unload Me
Call TRIAGE_RDV
End Sub

Bonjour,
Remplace par ceci

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
1 « J'aime »

Bonjour Mimimathy,

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

Unload Me
Call TRIAGE_RDV
End Sub

Merci à toi

Re,
Normalement Non, cela devrait aller
Mais comme je n’ai plus le fichier et que je ne l’ai pas retrouvé sur le forum …

Bonsoir Mimimathy,

Merci pour ton retour, tout fonctionne maintenant. :+1:

Tu voulais le fichier ? si oui je peux te l’envoyer.

A+

Rubis

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.