Comparaison cellule et combobox

Bonjour

Une question toute bete mais je tourne en rond depuis plus de deux heures en ayant tout essayé

j'ai une cellule A1 de ma feuille de calcul qui affiche une date ( j'ai imposé un format à ma cellule de type "dd mmm yyyy ")

j'ouvre un combobox je choisi une date superieure à celle affichée dans A1 et si tout va bien en cliquant sur le bouton

de mon userform j'aurais une confirmation que la date de la cellule est inferieure à celle affichée dans la combobox

je joins mon fichier .

En vous remerciant pour toute correction de ce qui ne fonctionne pas , Cordialement .

Bonjour,

Déjà là:

Sub Bouton1_QuandClic()
    Cells(1, 1) = Format(Date + 2, "dd mmm yyyy")
End Sub

Tu ne mets pas une date, mais du texte !

Pour avoir une date :

Sub Bouton1_QuandClic()
    With Cells(1, 1)
        .Value = Date + 2
        .NumberFormat = "dd mmm yyyy"
    End With
End Sub

Et :

Private Sub CommandButton1_Click()
    If CDate(ComboBox1.Value) <= Cells(1, 1) Then
        MsgBox "la date affichée dans la combobox est inferieure à celle affichée dans la cellule A1"
    End If
End Sub

Que dire , Un grand merci ne suffirait plus ! dire que je pensais que Cells(1, 1) = Format(Date + 2, "dd mmm yyyy")

permettait d'imposer un format date à une cellule !

Merci pour avoir rattrapé les choses Mferrand , je rend grace à votre savoir ..bravo !

Bonjour,

Format renvoie une chaîne (String)... C'est la cellule qu'il faut formater pour l'apparence...