Discussion :

[jbggg]

bonjour,

j'ai un problème, je ne vois pas où mettre le code pour cacher mon userform, excel se met en debogage.

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
Private Sub CommandButton1_Click()
 
If TextBox1 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox6 <> "" Then
 
    Worksheets("BM").Activate
    Worksheets("BM").Range("E12") = TextBox1.Value
    Worksheets("BM").Range("E14") = TextBox2.Value
    Worksheets("BM").Range("E15") = TextBox3.Value
    Worksheets("BM").Range("G14") = TextBox4.Value
    Worksheets("BM").Range("L14") = TextBox5.Value
    Worksheets("BM").Range("G15") = TextBox6.Value
    lgt.Hide
 
Else
    MsgBox "Il manque des informations"
 
End If
 
 
End Sub

[rvtoulon]

slt,
je mettrais le code après End if.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 Worksheets("BM").Range("G15") = TextBox6.Value
 
Else
    MsgBox "Il manque des informations"
 
End If
  lgt.Hide
'ou unload lgt
End Sub

A+

[jbggg]

j'ai testé aussi de le mettre après le End If mais pareil

[rvtoulon]

Re,
"lgt" est-ce bien le nom de l'userform? quel est la ligne concernée par le problème?

[jbggg]

merci,
je me suis emmêler les pinceaux avec les noms de userform.

par contre il était bien placé dans le premier code cr si tu le mets après le End if alors le controle de saisie des textbox ne sert à rien.

[rvtoulon]

re,
ok