Msgbox

[chinel]

Salut tout le monde !!!

j'ai une userform et dedans une textbox (date) je voudrais, que si on oublie de rentrer une donnée dans la textbox (date) un message apparaît : "Entre une date !" mais le problème c'est que quand je ferme l'userform il y a un débogage, pourquoi le message n'apparaît plus ?
voici mon code :

If TextBox1.Value = "" Then
MsgBox ("Entre une date !")
End If

With Range("C1")
.Value = CDate(TextBox1.Text) "débogage ici"
.NumberFormat = "dddd dd mmmm yyyy"

End With

Sheets("Planning").Range("K3").Value = ComboBox1.Value
Sheets("Planning").Range("I1").Value = ComboBox2.Value
TextBox1.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
UserForm2.Hide

merci de votre aide !!!

 

[Minick]

Re : Msgbox

Salut,

Tout a fait normal, certe tu verifies la saisie et tu signales l'erreur mais
dans tous les cas tu affectes C1.

En corrigeant comme cela tu traites bien l'erreur.
(avec en prime un test sur la saisie effectuee sinon risque de plantage
si la saisie n'est pas assimilable a une date)

Dim ErreurDate As Long
Dim DateSaisie As Date
 
On Error Resume Next
    DateSaisie = CDate(TextBox1.Value)
    ErreurDate = Err.Number
On Error GoTo 0
 
If TextBox1.Value = "" Then
    MsgBox ("Entre une date !")
ElseIf ErreurDate <> 0 Then
    MsgBox ("Entre une date valide !")
Else
    With Range("C1")
        .Value = DateSaisie
        .NumberFormat = "dddd dd mmmm yyyy"
    End With
    Sheets("Planning").Range("K3").Value = ComboBox1.Value
    Sheets("Planning").Range("I1").Value = ComboBox2.Value
    TextBox1.Value = ""
    ComboBox1.Value = ""
    ComboBox2.Value = ""
    UserForm2.Hide
End If

A verifier (pas teste)

++

 

[chinel]

Re : Msgbox

Super, merci !!!

cela fonctionne bien !!!

merci à toi !!!🙂