Insertion de date dans un textbox et validation
Fermé
ailyes
Messages postés
18
Date d'inscription
samedi 8 décembre 2012
Statut
Membre
Dernière intervention
21 octobre 2015
-
6 oct. 2015 à 20:39
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 22 oct. 2015 à 10:12
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 22 oct. 2015 à 10:12
A voir également:
- Insertion de date dans un textbox et validation
- Ethernet n'a pas de configuration ip valide - Guide
- Insertion liste déroulante excel - Guide
- Insertion sommaire word - Guide
- Comment ouvrir un fichier dat - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
7 oct. 2015 à 08:07
7 oct. 2015 à 08:07
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.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
22 oct. 2015 à 10:12
22 oct. 2015 à 10:12
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?
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?
21 oct. 2015 à 19:50
21 oct. 2015 à 19:52
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