Textbox

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)

4 réponses

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

    Une fois encore merci
    0
    1. 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
      0
      1. merci je vais essayer
        0
        1. Bonjour,

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