bonjour
dans mon classeur excel j'ai un bouton qui me permet de créer des fiches de non conformité qui s'appel fiche1, fiche2...
en cliquant sur un bouton je voudrait afficher ces fiches pour cela j'ai fait un userform qui demande quel fiche je veut afficher avec 2 possibilité soit toutes soit la fichex.
voila le code auquel j'ai pensé:
Private Sub CommandButton1_Click()
For i = 1 To 2
Select Case i
Case 1
If OptionButton1.Value = True Then
For j = 1 To 20
Sheets("fiche" & j).Visible = True
Next j
Sheets("fiche1").Select
End If
Case 2
If OptionButton1.Value = False Then
ActiveWorkbook.Sheets("fiche" & ComboBox1.Value).Visible = True
Sheets("fiche" & ComboBox1.Value).Select
End If
End Select
Next i
Unload UserForm5
End Sub
pour la deuxieme parti pas de problème j'arive a afficher la fichex. mais pour la partie toute je ne sais pa coment faire car je ne connait pas le nombre de fiche qui vont etre créer.
par défaut j'ai mis de 1à20 car il y en aura moin de 20 sa c sur mais sa ne marche pas.
merci
dans mon classeur excel j'ai un bouton qui me permet de créer des fiches de non conformité qui s'appel fiche1, fiche2...
en cliquant sur un bouton je voudrait afficher ces fiches pour cela j'ai fait un userform qui demande quel fiche je veut afficher avec 2 possibilité soit toutes soit la fichex.
voila le code auquel j'ai pensé:
Private Sub CommandButton1_Click()
For i = 1 To 2
Select Case i
Case 1
If OptionButton1.Value = True Then
For j = 1 To 20
Sheets("fiche" & j).Visible = True
Next j
Sheets("fiche1").Select
End If
Case 2
If OptionButton1.Value = False Then
ActiveWorkbook.Sheets("fiche" & ComboBox1.Value).Visible = True
Sheets("fiche" & ComboBox1.Value).Select
End If
End Select
Next i
Unload UserForm5
End Sub
pour la deuxieme parti pas de problème j'arive a afficher la fichex. mais pour la partie toute je ne sais pa coment faire car je ne connait pas le nombre de fiche qui vont etre créer.
par défaut j'ai mis de 1à20 car il y en aura moin de 20 sa c sur mais sa ne marche pas.
merci