R
rem$
Guest
bonjour a tous
j'ai un userform (USF2) qui me permet de faire une recherche dans plusieurs feuilles (47) mais lorsque je masque ces feuilles pour n'en laisser qu'une (celle de saisie) il me retourne un message d'erreur d'execution ???
ca ve dire que je ne peut pas masquer mes feuilles ??? pourtant les utilisateurs n'ont pas besoins de voir comment sont organisees les donnees
si c le cas comment est-il possible de masquer les feuilles ???
d'avance merci.......
voici mon code
---------------------------------------------------------------------------------------------
Private Sub recherchebouton_Click()
UserForm2.Show
End Sub
---------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
UserForm2.PrintForm
End Sub
---------------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
End Sub
---------------------------------------------------------------------------------------------
Private Sub ok_click()
Dim cel As Range
Dim x As Byte
If TextBox3.Value <> "vrai" Then Image2.Visible = True
If TextBox1.Value = "" Then MsgBox "Donne moi ton N° d'échantillon"
For x = 1 To 47
Sheets(x).Select
For Each cel In Sheets(x).Range("d4:d" & Sheets(x).Range("d5000").End(xlUp).Row)
If cel.Text = TextBox1.Value Then
cel.Select
GoTo suite
End If
Next cel
Next x
suite:
TextBox2.Value = ActiveCell.Offset(0, -2).Value
TextBox3.Value = ActiveCell.Offset(0, 6).Value
TextBox4.Value = ActiveCell.Offset(0, -1).Value
TextBox5.Value = ActiveCell.Offset(0, 1).Value
TextBox6.Value = ActiveCell.Offset(0, 2).Value
TextBox7.Value = ActiveCell.Offset(0, 3).Value
TextBox8.Value = ActiveCell.Offset(0, 4).Value
TextBox9.Value = ActiveCell.Offset(0, 5).Value
Exit Sub
End Sub
---------------------------------------------------------------------------------------------
Private Sub quitterbouton_Click()
Unload Me
End Sub
---------------------------------------------------------------------------------------------
j'ai un userform (USF2) qui me permet de faire une recherche dans plusieurs feuilles (47) mais lorsque je masque ces feuilles pour n'en laisser qu'une (celle de saisie) il me retourne un message d'erreur d'execution ???
ca ve dire que je ne peut pas masquer mes feuilles ??? pourtant les utilisateurs n'ont pas besoins de voir comment sont organisees les donnees
si c le cas comment est-il possible de masquer les feuilles ???
d'avance merci.......
voici mon code
---------------------------------------------------------------------------------------------
Private Sub recherchebouton_Click()
UserForm2.Show
End Sub
---------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
UserForm2.PrintForm
End Sub
---------------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
End Sub
---------------------------------------------------------------------------------------------
Private Sub ok_click()
Dim cel As Range
Dim x As Byte
If TextBox3.Value <> "vrai" Then Image2.Visible = True
If TextBox1.Value = "" Then MsgBox "Donne moi ton N° d'échantillon"
For x = 1 To 47
Sheets(x).Select
For Each cel In Sheets(x).Range("d4:d" & Sheets(x).Range("d5000").End(xlUp).Row)
If cel.Text = TextBox1.Value Then
cel.Select
GoTo suite
End If
Next cel
Next x
suite:
TextBox2.Value = ActiveCell.Offset(0, -2).Value
TextBox3.Value = ActiveCell.Offset(0, 6).Value
TextBox4.Value = ActiveCell.Offset(0, -1).Value
TextBox5.Value = ActiveCell.Offset(0, 1).Value
TextBox6.Value = ActiveCell.Offset(0, 2).Value
TextBox7.Value = ActiveCell.Offset(0, 3).Value
TextBox8.Value = ActiveCell.Offset(0, 4).Value
TextBox9.Value = ActiveCell.Offset(0, 5).Value
Exit Sub
End Sub
---------------------------------------------------------------------------------------------
Private Sub quitterbouton_Click()
Unload Me
End Sub
---------------------------------------------------------------------------------------------