Textbox

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention - 25 mars 2017 à 08:28

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)

Afficher la suite

A voir également:

Textbox
Comment concatener plusieurs textbox ✓ - Forum Excel
Colorer textbox sélectionné ✓ - Forum VB / VBA
Focus TextBox WPF ✓ - Forum C#
Erreur sur isdate textbox ✓ - Forum VB / VBA
Vba textbox date format dd/mm/yyyy ✓ - Forum Excel

4 réponses

Réponse 1 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

Réponse 2 / 4

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

merci je vais essayer

Réponse 3 / 4

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

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

Réponse 4 / 4

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

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

Une fois encore merci

Discussions similaires

[VBA] format de date dans textbox

[Excel-VBA] format date

Textbox date

Backcolor TextBox

TextBox au format date

Votre réponse

Discussions similaires