Insertion de date dans un textbox et validation
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
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
-
ModérateurBonjour,
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.
-
-
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
-
-
ModérateurBonjour,
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?
