Bonjour,
J'ai une userform avec plusieurs textbox et combobox, cette macro est utilisé par des techniciens qui doivent remplir les textbox et combobox.
J'ai creer un code qui ouvre un msgbox si le textbox est vide, ca ca marche le soucis c'est que quand je valide par mon bouton il ne se passe plus rien l'userform reste ouvert.
voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58 Private Sub CommandButton1_Click() '(bouton "valider") Application.ScreenUpdating = False Sheets("Historique général").Select ActiveSheet.Unprotect Sheets("Historique général").Select Dim liste_derniere_ligne(6) As Long, i As Byte Dim derniere_ligne As Long Dim derniere_cellule As Range If Me.TextBox2 = "" Then MsgBox ("veuillez rentrez l'heure d'appel!!!") End If If Me.TextBox3 = "" Then MsgBox ("veuillez rentrez l'heure d'arrivée!!!") End If If Me.TextBox4 = "" Then MsgBox ("veuillez rentrez l'heure de fin!!!") End If If Me.TextBox5 = "" Then MsgBox ("veuillez rentrez le numéro de BTFI!!!") End If If Me.TextBox6 = "" Then MsgBox ("veuillez rentrez la nature du dépannage!!!") End If If Me.ComboBox2 = "" Then MsgBox ("veuillez rentrez le lieu!!!") End If If Me.ComboBox5 = "" Then MsgBox ("veuillez rentrez le technicien!!!") End If Exit Sub For i = 1 To 6 liste_derniere_ligne(i) = Sheets("Historique général").Cells(65536, i).End(xlUp).Row Next Set derniere_cellule = Sheets("Historique général").Cells(WorksheetFunction.Max(liste_derniere_ligne), 1) 'Colonne A : date d'appel recu: derniere_cellule.Offset(1, 0) = (Me.TextBox1) derniere_cellule.Offset(1, 0) = CDate(CSng(Date)) 'Colonne B : Heure d'appel: derniere_cellule.Offset(1, 1) = (Me.TextBox2) .... unload userform
Partager