Insertion de date dans un textbox et validation

ailyes Messages postés 21 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

je suis débutant dans le vba, je n'arrive pas à completer mon userform :
1: pour inserer la date
2: pour l'incrementation des numéro

merci

2 réponses

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Montre nous déjà ce que tu as fait, ce que tu as tenté (et qui n'a pas fonctionné), et nous pourrions alors compléter ce qu'il te manque.
    0
    1. ailyes Messages postés 21 Statut Membre
       
      merci et desolé pour l'abscence
      0
    2. ailyes Messages postés 21 Statut Membre
       
      Private Sub ComboBox2_Change()
      ThisWorkbook.Sheets("Affichage").Range("C2") = ComboBox2
      End Sub


      Private Sub ComboBox5_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

      End Sub


      Private Sub CommandButton1_Click()
      Unload Me
      End Sub
      Private Sub CommandButton2_Click()
      Application.ScreenUpdating = False
      'Sheets("AFFICHAGE").Unprotect
      Sheets("AFFICHAGE").Select

      Rows("2:2").Select
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Unload UserForm1
      End Sub

      Private Sub ComboBox1_Change()
      ThisWorkbook.Sheets("Affichage").Range("b2") = ComboBox1
      End Sub

      Private Sub ComboBox3_Change()
      ThisWorkbook.Sheets("Affichage").Range("D2") = ComboBox3
      End Sub
      Private Sub ComboBox4_Change()
      ThisWorkbook.Sheets("Affichage").Range("K2") = ComboBox4
      End Sub



      Private Sub TextBox1_Change()
      [A2] = TextBox1
      End Sub

      Private Sub TextBox2_Change()
      [f2] = TextBox2
      End Sub

      Private Sub TextBox3_Change()
      [i2] = TextBox3
      End Sub

      Private Sub TextBox4_Change()
      [h2] = TextBox4
      End Sub


      Private Sub TextBox5_Change()
      [E2] = TextBox5
      End Sub
      0
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Lorsque l'on pose une question il convient d'être un minimum sérieux et explicite.
    1: pour inserer la date
    2: pour l'incrementation des numéro

    Sans savoir ou tu veux insérer une date, comment, par quel contrôle???
    L'incrémentation des numéros??? Quels numéros? ou? quand? comment? pourquoi?
    0