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