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 -
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
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
- Touche insertion clavier - Guide
- Insertion signature word - Guide
- Comment ouvrir un fichier dat - Guide
- Commande en cours de validation fnac - Forum Consommation & Internet
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