Pb de date avec combobox

bonjour à tous !

j'ai un petit soucis avec le format date de mes combobox

mes combobox sont alimentées par RowSource = base!a1:a102

lorsque je selectionne les dates dans mes combobox par le biais du userform les dates sont inversées lors de la restitution

par exemple dans le menu déroulant je sélectionne 01/01/13 et dans mon fichier ça me restitu 04/01/13 (inversion du jour et du mois : format anglais)

j'ai pourtant paramétré mes combobox avec :

Private Sub ComboBox1_Change()

ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yy")

End Sub

Private Sub ComboBox2_Change()

ComboBox2.Value = Format(ComboBox2.Value, "dd/mm/yy")

End Sub

Private Sub ComboBox3_Change()

ComboBox3.Value = Format(ComboBox3.Value, "dd/mm/yy")

End Sub

Private Sub ComboBox4_Change()

ComboBox4.Value = Format(ComboBox4.Value, "dd/mm/yy")

End Sub

je vous joint le fichier

merci pour votre aide

mag

https://www.cjoint.com/c/CLroFsssNxe

Bonjour

Une solution pour le premier bouton, à toi d'adapter pour l'autre

Private Sub valider1_Click()

  With Sheets("Feuil1")
    .Range("B9").Value = TextBox4.Value
    If Me.ComboBox1.ListIndex > -1 Then
      .Range("b12").Value = CDate(ComboBox1.Value)
    End If
    If Me.ComboBox2.ListIndex > -1 Then
      .Range("b14").Value = CDate(ComboBox2.Value)
    End If
      .Range("D9").Value = TextBox1.Value
    If Me.ComboBox3.ListIndex > -1 Then
      .Range("d12").Value = CDate(ComboBox3.Value)
    End If
    If Me.ComboBox4.ListIndex > -1 Then
      .Range("d14").Value = CDate(ComboBox4.Value)
    End If
  End With
End Sub

Merci pour ton aide ........ une fois de + banzai64

ça fonctionne !!!

adaptation réussi pour le 2ème bouton

@ bientôt

Mag