textbox

Question

Bonjour, 
j'ai excel 2010 et je souhaite rendre la cellule 11 (la cellule de la date) facultative
c'est à dire qu'on peut entrer une date comme ne rien mettre 
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)

f894009 · Answer

Bonjour,
If TextBox11 <> "" Then
    Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Else
    Cells(Insuv, 11) = ""
End If

amram.a · Answer

merci je vais essayer

amram.a · Answer

If TextBox11 <> "" Then
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Else
Cells(Insuv, 11) = ""
End If

Je met on me met eureur

Mais quand je fais comme suite ça passe

If TextBox11 <> "" Then
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Else
Cells(Insuv, 11) = "
End If

amram.a · Answer

Merci f894009  pour ton aide utile 
J'ais compris maintenant et ça marche parfaitement 
Une fois encore merci

Textbox

4 réponses

Discussions similaires

Newsletters