Aide pour code VBA Excel

Version imprimable

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:

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

31/01/2008, 19h21
Bigalo

Bonsoir,

Tu masques les colonnes avec

Code:

.EntireColumn.Hidden = True

Même principe pour les lignes : remplace

Code:

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

par

Code:

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

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

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:

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

Citation:
Envoyé par 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:

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. :bug: