Discussion :

[chtixcel]

Bonjour, j'ai trouvé ce bout de code qui fonctionne correctement, sauf qu'à la fin il souligne en jaune la ligne " Sheets(f.Name).Select" Il y a donc une erreur qui je pense est liée au fait que j'ai deux feuilles cachées qui ne sont accessibles que par un petit userfom avec un code. Il s'agit de la feuille qui se nomme : "Privé" et de la feuille qui s'appelle : "Budget Général Total" Est ce que quelqu'un aurait une solution à me proposer pour résoudre ce problème ? D'avance, merci, cordialement, Chti59xcel

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
Sub Cache_Entête()
For Each f In Sheets
If Sheets(f.Name).Visible Then
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = False
Else
Sheets(f.Name).Visible = True
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = False
Sheets(f.Name).Visible = False
End If
Next
End Sub
 
Sub Affiche_Entête()
For Each f In Sheets
If Sheets(f.Name).Visible Then
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = True
Else
Sheets(f.Name).Visible = True
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = True
Sheets(f.Name).Visible = False
End If
Next
End Sub

[BDA53]

A quoi corresponde f.name ? Est-ce une variable ?

A ta place, je mettrais plutôt :

Code :

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

Worksheets(1).Rows(1).EntireRow.Hidden = TRUE

PS : la prochaine n'oublie pas la balsie [/CODE] . Ton code sera plus lisible

[chtixcel]

Bonjour, je ne suis pas assez calé pour dire si f.name correspond à une variable. Ce que je sais, c'est que dans mon programme, il y a deux feuilles cachées par macro, donc même quand on ouvre les onglets, elles n'apparaissent pas. Si bien que lorsque je lance la macro pour faire disparaître dans toutes les feuilles les en têtes de colonnes et les lignes, la macro agit sur toutes les feuilles et à la fin bloque sur les deux feuilles cachées avec un message d'erreur de ce type " erreur d'exécution 1004 et la 4ème ligne de la macro (Sheets(f.Name).Select) est surligné en jaune ?

Merci pour l'aide, chti59cel

[Marc-L]

Bonjour !

Mais tu n'es pas assez calé pour savoir qu'un bon code n'a pas besoin de Select ni d'Activate !

Exemple dans cette discussion … Conformément aux règles du forum, sans code balisé, je n'irais pas plus loin …


______________________________________________________________________________________________________
Je suis Paris, …

[patricktoulon]

Bonjour
tu n'es pas assez acllé bon ca c'est pas grave mais raisonons un peu
ici on a un soucis avec f.name qui est somme toute inutile
puisque dans ce cas la on aurais besoins d'un nom specifique (toto,titi ou tout ce que tu veux ")

d'autant plus que si je traduit ton code ca donne

pour tout les sheets dans le sheets


pas bien !!!!!!

Code :

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

1
2
3
4
5
6
Sub Cache_Entête()
 For Each f In Sheets
 If Sheets(f.Name).Visible Then
 Sheets(f.Name).Select
 ActiveWindow.DisplayHeadings = False
 Else

bien!!!!

Code :

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

1
2
3
4
5
6
Sub Cache_Entête()
 For Each f In worksheets
 If f.Visible Then
 f.Select
 ActiveWindow.DisplayHeadings = False
 Else

sinon j'ai des crayons de couleur aussi

aussi entre nous la mise en hidden de la barre est valable pour tout le classeur donc je ne vois pas l'interet de tester le sheets amoins que cela doit etre pris en compte
donc

Code :

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

1
2
3
Sub Cache_Entête()
 ActiveWindow.DisplayHeadings = False
  End Sub

Code :

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

1
2
3
Sub Affiche_Entête()
 ActiveWindow.DisplayHeadings = True
  End Sub

et tu balance affiche ou cache dans le activate et deactivates des feuilles concernées

[Theze]

Bonjour,

A quoi servent ces boucles ? Pour afficher les entêtes des feuilles cachées qui sont, je pense, affichées momentanément pour modif. manuelle puis cachées à nouveau et masquer les entêtes pour les autres feuilles qui elles restent visibles, il suffit d'utiliser l'évènement "Workbook_SheetActivate". A mettre dans le module du classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
    Select Case Sh.Name
        Case "Privé", "Budget Général Total"
            ActiveWindow.DisplayHeadings = True
 
        Case Else
            ActiveWindow.DisplayHeadings = False
    End Select
 
End Sub