Textbox
amram.a
Messages postés
58
Statut
Membre
-
amram.a Messages postés 58 Statut Membre -
amram.a Messages postés 58 Statut Membre -
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)
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)
A voir également:
- Textbox
- Vba textbox date format dd/mm/yyyy ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
- Remplissage textbox automatiquement - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
- Focus TextBox WPF ✓ - <a href="https://forums.commentcamarche.net/forum/c-262">Forum C#</a>
- Erreur sur isdate textbox ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
- Séparateur de milliers textbox - <a href="https://forums.commentcamarche.net/forum/programmation-3">Forum Programmation</a>
4 réponses
Bonjour,
If TextBox11 <> "" Then
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Else
Cells(Insuv, 11) = ""
End If
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
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
