Simplification de code

Version imprimable

14/03/2011, 09h43
chris09300

Simplification de code

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:

Sheets("Janv").Visible = False

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

Code:

Sheets("Livres").Select

merci pour les infos.
cris

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:

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:

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é.

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

Code:

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:

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

14/03/2011, 12h24
Theze

Bonjour corona,

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

Hervé.
16/03/2011, 20h45
chris09300

merci a vous
cris