Discussion :

[zine pef]

salut tout le forum
dans mon fichier j'ai 3 option bouton ,et en répétez 3 fois le meme code
1°) si possible en change les 3 option bt par un combobox avec un code seulement
2°) dans l'apercus le num auto affiche erreur
merci

[Mikaz]

Salut,

Voici deja une premiere chose qui pourrait alléger ton code ... (je suis pas sur des numéro de feuille ... j'ai juste regardé vite fait)

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 OptionButton3_Click()
 
    evo (1)
 
End Sub
 
'function evo qui
Private Function evo(sh As Integer)
Application.Visible = True
With Sheets(sh)
  .Range("A1").AutoFilter Field:=2, Criteria1:=ComboBox1
   RenommerLesLignesVisibles
   Me.Hide
 .PrintPreview
 .AutoFilterMode = False
   RenommerLesLignesOrigines 
   Me.Show
   Application.Visible = True
End With
End Function

et pour faire une combo, ajoute un element ComboBox que t'appel CB_feuille

et rajoute dans initialize de ta userform, qui ajoute le nom de chaque feuille dans l'odre dans la combo, apres arrange toi un peu pour faire fonctionner le tous

Code :

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

1
2
3
For j = 1 To ActiveWorkbook.Sheets.Count
        CB_feuille.AddItem (Sheets(j).Name)
Next j

Et j'ai pas vue d'erreur ?

[zine pef]

merci Mikaz
je vais essayer le code