Discussion :

[fullmetalknet]

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

[HurGeek]

Bonjour,
Etant donné la présence du exit sub avant la boucle for, il ne risque pas de se passer grand chose effectivement...

[fullmetalknet]

J'y est bien pensé mais quand je l'enleve, les msgbox apparaissent bien mais il ferme mon userform et me remplie les cellules!

comment faire pour qu'il m'empeche de fermer l'userform quand un textbox est vide?

[HurGeek]

Rajoute un exit sub dans chaque if et enlève celui déjà présent, cela devrait marcher.

[fullmetalknet]

J'ai fais ce que tu m'a conseiller mais plus rien ne marche

[HurGeek]

Met un c/c de ton code sur le forum afin que l'on puisse voir d'où vient le problème.