Bonjour a tous,

J'ai un problème dans une de mes macros sur un fichier excel.
En faite je voudrais qu'en fonction de certain paramètre il y est plus ou moins d'onglets qui apparaissent ou non!

Voila 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
Private Sub Worksheet_Change(ByVal Target As Range)
 
     Application.ScreenUpdating = False
 
     Sheets("1").Visible = False
     Sheets("2").Visible = False
     Sheets("3").Visible = False
     Sheets("4").Visible = False
     Sheets("5").Visible = False
     Sheets("6").Visible = False
     Sheets("7").Visible = False
     Sheets("8").Visible = False
     Sheets("9").Visible = False
 
    Sheets("10").Select
 
    If Range("D33") = "A" And Range("D36") = "B" And Range("D31") = "C" Then
    Worksheets(Array("2", "3")).Visible = True
    End If
 
    If Range("D33") = "A" And Range("D36") = "E" And Range("D31") = "X" Then
    Worksheets(Array("2", "4")).Visible = True
    End If
 
    If Range("D33") = "A" And Range("D36") = "E" And Range("D31") = "W" And Range("D51") = "Oui" Then
    Worksheets(Array("2", "5")).Visible = True
    End If
 
    Sheets("10").Select
 
 
End Sub
Je n'affiche pas toutes les lignes mais c'est un peu répétitif et l'essentiel est la! L'erreur que me renvoi excel est celle du titre :"Impossible de définir la propriété Visible de la classe Sheets".

Donc voila je suis là pour répondre à vos questions, merci d'avance.

Alex