Masquer Afficher Colonnes Par Vba [Résolu] - CCM

Informatique Mobile Applis & Sites Image & Son Maison Securité Téléchargement Forum Bureautique Développement Internet Jeux vidéo Matériel Réseau Vidéo/TV Virus/Sécurité Emploi

• Forum
• Applis & Sites
• Bureautique
• Excel

Bonjour, De nouveau je fais appel à votre science en remerciant toutes personnes qui m'apporteront les codes nécessaires. Je souhaiterai masquer - démasquer les colonnes : Dans un premier code : C:E - J:M - O:Q - S:U et X:AF de façon à ne pas pouvoir les afficher par : Format, Colonne, Afficher ni par sélection avant après des colonnes masquées. Dans un second temps : Pouvoir les ré-afficher Afficher la suite Répondre (6) Partager

• Copier

A voir également:

• Excel afficher masquer colonne bouton + -
• Déplacer colonne excel - Guide
• Trier colonne excel - Guide
• Liste déroulante excel - Guide
• Formule somme excel colonne - Guide
• Formule moyenne excel plusieurs colonnes - Guide

Réponse 1 / 6 Meilleure réponse La meilleure réponse est la réponse qui a été validée par nos équipes. Bonjour au plus simple Sub Cache() ' cache Colonne Cells.EntireColumn.Hidden = False Range("C:E,J:M,O:Q,S:U,X:AF").EntireColumn.Hidden = True End Sub Sub DeCache() ' Decache Colonne Cells.EntireColumn.Hidden = False End Sub A+ Maurice Réponse 2 / 6 Décidément tu ne te repose jamais... ? Mais je suis heureux de voir ta fidélité à me répondre et je t'en remercie de tout mon cœur. Sauf erreur de m part, j'aurai une dernière question dans quelques jours. Je te souhaite une bonne nuit. Réponse 3 / 6 Bonjour 1) Déverrouiller toutes les cellules de la feuille (clic droit sur triangle en haut à droite entre les barres de titres - Format de cellule - Protection - Décocher Verrouillée 2) Protéger la feuille avec un mot de passe, par ex abcd (Onglet Révision - Protéger la feuille) 3) Ouvrir l'éditeur VBA avec ALT+F11 puis Insertion - Module Copier et coller les macros suivantes dans la page blanche Sub Masquer() ActiveSheet.Unprotect "abcd" Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("J:M").Select Selection.EntireColumn.Hidden = True Columns("O:Q").Select Selection.EntireColumn.Hidden = True Columns("S:U").Select Selection.EntireColumn.Hidden = True Columns("X:AF").Select Selection.EntireColumn.Hidden = True ActiveSheet.Protect "abcd" End Sub Sub Demasquer() ActiveSheet.Unprotect "abcd" Columns("C:E").Select Selection.EntireColumn.Hidden = False Columns("J:M").Select Selection.EntireColumn.Hidden = False Columns("O:Q").Select Selection.EntireColumn.Hidden = False Columns("S:U").Select Selection.EntireColumn.Hidden = False Columns("X:AF").Select Selection.EntireColumn.Hidden = False ActiveSheet.Protect "abcd" End Sub Remplacer dans les macros les abcd par le code utilisé pour la protection de la feuille avant de fermer l'éditeur Les amcros se lancent depuis l'onglet Developpeur - Macros où tu peux dans Options leur affecter le raccourci clavier de ton choix Cdlmnt Via Réponse 4 / 6 Bonjour via, N'y aurait-il pas une astuce pour que le MP n(apparaisse pas en "calir" dans le code ? En te remerciant. Bonjour le plus simple serait de protèger VBA pour que la lecture des macros ne soit pas accessible, non? _afficher VBA / Outils >/ Propriètés de VBA project / Protection avec un mot de passe à ne pas oublier ! _n'agit qu'après fermeture et réouverture du fichier crdlmnt

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question Réponse 5 / 6 Bonjour jean300, Je te propose ce code VBA : Option Explicit Sub ColsHideShow() ActiveSheet.Unprotect "abcd" Range("C:E, J:M, O:Q, S:U, X:AF").Columns.Hidden = Not Columns("C").Hidden ActiveSheet.Protect "abcd" End Sub ⚠  Les lignes #6 et #7 doivent être en une seule ligne. Lance cette macro pour masquer les colonnes ; puis lance-la de nouveau pour afficher les mêmes colonnes. Cordialement   Réponse 6 / 6 Bonjour lucien, Mes remerciements pour ta soluce dont je prends note. Au plaisir. Afficher toute la discussion

Votre réponse

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin mettre en majuscule automatiquement une saisie excel VBA remplacer une colonne en majuscule valeur derniere cellule dans une colonne Selectionner première cellule vide d'une colonne chercher une valeur dans une colonne précise Devenez membre en quelques clics

• Connectez-vous simplement avec ceux qui partagent vos intérêts
• Suivez vos discussions facilement et obtenez plus de réponses
• Mettez en avant votre expertise et aidez les autres membres
• Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

Questions et réponses sur Excel

Newsletters

Newsletters Actu du jour Voir un exemple

Les informations recueillies sont destinées à CCM BENCHMARK GROUP pour vous assurer l'envoi de votre newsletter.

De plus, lors de votre inscription sur ce formulaire, des données personnelles (dont votre adresse email sous forme hachée et pseudonymisée) peuvent être partagées avec nos partenaires Data à des fins de personnalisation de la publicité et des contenus qui vous sont proposés. Vous trouverez le détail de ces informations et pouvez vous y opposer à tout moment.

Plus généralement, vous bénéficiez d'un droit d'accès et de rectification de vos données personnelles, ainsi que celui d'en demander l'effacement dans les limites prévues par la loi.

Vous pouvez également à tout moment revoir vos options en matière de prospection commerciale et ciblage. En savoir plus sur notre politique de confidentialité ou notre politique Cookies.