Insertion de date dans un textbox et validation
ailyes
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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
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
A voir également:
- Insertion de date dans un textbox et validation
- Ethernet n'a pas de configuration ip valide - Guide
- Insertion sommaire word - Guide
- Touche insertion clavier - Guide
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
2 réponses
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.
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.
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