Discussion :

[asgarh]

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

[Didier Gonard]

Bonjour,

Il y a de fortes chances que ça se produise car un moment ou un autre tu tentes de cacher toutes les feuilles de ton classeur, ce qui est interdit...


cordialement,

Didier

[asgarh]

tu tentes de cacher toutes les feuilles de ton classeur

Je ne cache pas toute les feuilles j'en garde une (la numéro 10).

[Didier Gonard]

Quand il te retournes le message d'erreur, il doit te proposer débogage, si tu coches, sur quelle ligne le code s'est-il arrêté ?

cordialement,

Didier

[asgarh]

Sa dépend de ce que j'ai mis dans les cases de la feuille numéro 10 mais par exemple si je valide la condition suivante :

Code :

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

1
2
3
4
 
If Range("D33") = "A" And Range("D36") = "B" And Range("D31") = "C" Then
Worksheets(Array("2", "3")).Visible = True 'surligne la ligne là
End If

[mercatog]

Code :

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

Sheets(Array("Feuil2", "Feuil5")).Visible = False 'ou True

génère l'erreur si au moins l'une des feuilles est invisible
boucle donc sur les 2 feuilles

[asgarh]

boucle donc sur les 2 feuilles

Je comprend pas ce que tu veux dire par sa!

Tu me propose de faire une boucle et d'afficher les feuilles les une après les autres?