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 sommaire word - 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