Discussion :

[chris09300]

bonjour
je cherche les infos suivantes:
peut on remplacer le code suivant par un autre code, car je repete x fois la ligne ci dessous pour chaque mois.

Code :

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

Sheets("Janv").Visible = False

et il y a-t-il un autre moyen que le .select, peut etre plus rapide.

Code :

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

Sheets("Livres").Select

merci pour les infos.
cris

[Theze]

Bonjour,

Pour cacher les feuilles des mois. Comme indiqué en commentaire, elles doivent être nommées de la manière suivante "'janv, févr, mars, avr, mai,juin, juil, août, sept, oct, nov, déc" (faire un Debug.Print pour voir ce que retoure la fonction "MonthName".

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
 
Sub Cacher()
 
    Dim Fe As Worksheet
    Dim TblMois(1 To 12) As String
    Dim I As Integer
 
    'charge le tableau avec les noms des mois en abrégés
    'False pour les noms en entier
    For I = 1 To 12
 
        TblMois(I) = MonthName(I, True)
 
    'les noms des feuilles doivent être :
    'janv, févr, mars, avr, mai,juin, juil, août, sept, oct, nov, déc
 
    Next I
 
    'cache toutes les feuilles des mois
    For I = 1 To 12
 
        'ignore l'erreur due à la feuille inexistante
        On Error Resume Next
        Worksheets(TblMois(I)).Visible = False
 
    Next I
 
End Sub

Il faut autant que possible éviter les Select ça fait sautiller l'écran et ralentir le code :

Code :

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

1
2
3
4
5
6
7
8
 
'un bloc de code :
Sheets("Feuil1").Select
Range("A1:B10").Select
Selection.Interior.ColorIndex = 3
 
'peut être remplacé par :
Sheets("Feuil1").[A1:B10].Interior.ColorIndex = 3

Hervé.

[Philippe Tulliez]

Bonjour,
Pourquoi deux boucles et le passage par une variable tableau intermédiaire ?
Ceci suffit

Code :

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

1
2
3
4
5
6
7
 
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 12
      Worksheets(MonthName(i, True)).Visible = False 
    Next i
    On Error GoTo 0

Et ce code pour afficher les feuilles quand elles sont cachées et les cacher si elles sont visibles.

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 12
      With Worksheets(MonthName(i, True))
      .Visible = Not (.Visible)
      End With
    Next i
    On Error GoTo 0

[Theze]

Bonjour corona,

Tu as tout à fait raison, je n'ai pas réfléchi plus loin :0(

Hervé.

[chris09300]

merci a vous
cris