Affichage lignes colonnes
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
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
Bonjour
Dans quel endroit du code et dans quel macro avez-vous ce souci ?
Cordialement
Re-bonjour, j'ai le problème dans les deux macros que j'ai mis qui serve à cacher ou afficher les colonnes de toutes les feuilles.
Il s'agit de la 4ème ligne dans les deux macros, selon que j'utitlise tel ou tel bouton.
cordialement, Chti59xcel
Re,
Je n'ai pas le souci sur un fichier bidon
Possible de voir le fichier sans données confidentielles ?
A te relire
Bonjour, je veux bien faire voir mon fichier, mais à mon avis il est trop lourd, il fait 15 Mo.
Comment faire ?
Bonjour, ok
c'est fait ! voici le lien
https://www.cjoint.com/c/ELhjdvYd5RB
code d'accès fichier : dgpe
code d'accès feuilles masquées : callas
cordialement, Chti59xcel
Re
Quel est celui pour accéder à VBA ?
Re
Le bug vient de la feuille Budget Total général
Dans la feuille Sommaire tu as un code Activate qui intervient lorsque tu actives cette feuille et qui cache cette feuille.
Dans les deux codes, corrige comme suit :
Sub ....
Dim f As Worksheet
Application.ScreenUpdating = False
For Each f In Sheets
If Sheets(f.Name).Visible = True Then
.....
....
Application.ScreenUpdating = true
End SubSi ok, clique sur le v vert à coté du bouton Editer pour clôturer le fil lors de ta réponse
Cordialement
Bonjour, merci pour l'envoi du code, j'ai testé, mais à mon avis j'ai mal recopié la formule !
Faut dire, que je ne sais pas écrire de code vba, désolé ! la ligne jaune continue à s'allumer !
Sub Affiche_Entête()
Dim f As Worksheet
Application.ScreenUpdating = True
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
Re
Normal si tu ne recopies pas strictement ce que je te propose
Relis mon message et remplace dans ton code les lignes par celles que je t'ai données
Crdlt
Re-bonjour, j'ai encore une petite demande afin d'assurer la bonne utilisation de mon classeur par les collègues.
Au niveau de la page d'accueil, c'est à dire la feuille sommaire, j'ai donc deux boutons pour afficher ou cacher les en-têtes de colonnes dans toutes les feuilles, ça fonctionne impeccable, merci.
Néanmoins, pour éviter qu'un petit malin joue avec ce bouton, est ce qu'il serait possible de rajouter une ligne de commande dans la macro ci-dessous servant à l'affichage permettant de passer par une petite boite (InputBox) et d'entrer un code avant que cette macro s'active ? D'avance, merci beaucoup, Chti59xcel
Sub Affiche_Entête()
Dim f As Worksheet
Application.ScreenUpdating = False
For Each f In Sheets
If Sheets(f.Name).Visible = True 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
Application.ScreenUpdating = True
End If
Next
End Sub