Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème : dans une feuille Excel ("1") il y a un bouton ("But1").
Lorsque je clique sur ce bouton, la feuille ("1T") doit être activée et visible, les autres feuilles ("2T", "3T", "4T") sont masquées. Les colonnes ("BL:IV") de cette feuille doivent être masquées ainsi que les lignes ("51:65536"). J'avais déjà fait cette manip dans un autre fichier à partir d'une combo, mais le code ne marche pas.
Voici le code que je voulais copier, mais sans succès.

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
Sheets("2T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
Sheets("3T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
Sheets("4T").Visible = True
Columns("B:IV").EntireColumn.Hidden = False
    Sheets("1T").Visible = True
    Sheets("1T").Activate
    Rows("51:65536").Hidden = True
    Columns("BL:IV").EntireColumn.Hidden = True
    Range("A6").Select
    Sheets("2T").Visible = False
    Sheets("3T").Visible = False
    Sheets("4T").Visible = False
    Sheets("Don").Visible = False
    Sheets("Calend").Visible = False
    Sheets("Recap").Visible = False

[Bigalo]

Bonsoir,

Tu masques les colonnes avec

Code :

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

    .EntireColumn.Hidden = True

Même principe pour les lignes : remplace

Code :

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

    Rows("51:65536").Hidden = True

par

Code :

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

    Rows("51:65536").EntireRow.Hidden = True

Pas regardé le reste en détail. Indique si cette modif suffit.

[fred65200]

bonsoir,

personnellement, je crois qu'il faut évider de coder en dur pour les dernières colonne et ligne. Pour une meilleure compatibilité avec Excel 2007, j'écrirai

Code :

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

1
2
3
4
5
6
7
8
9
10
With Sheets("1T")
    .Visible = True
                'Nb de lignes de l'application
    .Rows("51:" & Application.Rows.Count).EntireRow.Hidden = True
                    'Lettre de la dernière colonne de l'application
    .Columns("BL:" & Split(Cells(1, Application.Columns.Count).Address, "$")(1)).EntireColumn.Hidden = True
    'je t'ai ajouté ça pour éviter de "scroller dans le vide",
    .ScrollArea = "A1:BK50"
    Application.Goto .Range("A6")
End With

cordialement

[NEC14]

bonsoir,

personnellement, je crois qu'il faut évider de coder en dur pour les dernières colonne et ligne. Pour une meilleure compatibilité avec Excel 2007, j'écrirai

Code :

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

1
2
3
4
5
6
7
8
9
10
With Sheets("1T")
    .Visible = True
                'Nb de lignes de l'application
    .Rows("51:" & Application.Rows.Count).EntireRow.Hidden = True
                    'Lettre de la dernière colonne de l'application
    .Columns("BL:" & Split(Cells(1, Application.Columns.Count).Address, "$")(1)).EntireColumn.Hidden = True
    'je t'ai ajouté ça pour éviter de "scroller dans le vide",
    .ScrollArea = "A1:BK50"
    Application.Goto .Range("A6")
End With

cordialement

Bonjour Fred65200

Ton code marche super bien.
Merci à Bigalo pour sa participation.
Je vais pouvoir terminer mon application.