Masquer Afficher colonnes par vba

Résolu/Fermé

Vba
Colonne

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 1 oct. 2017 à 22:20
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 3 oct. 2017 à 15:03

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

A voir également:

Vba masquer colonne
Masquer conversation whatsapp - Guide
Déplacer une colonne excel - Guide
Vba dernière colonne non vide ✓ - Forum VB / VBA
Colonne word - Guide
Additionner colonne excel - Guide

6 réponses

Réponse 1 / 6

Archer
2 oct. 2017 à 12:57

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 3 / 6

via55 Messages postés 14399 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 16 avril 2024 2 701
1 oct. 2017 à 22:43

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

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
2 oct. 2017 à 12:36

Bonjour via,
N'y aurait-il pas une astuce pour que le MP n(apparaisse pas en "calir" dans le code ?
En te remerciant.

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié le 2 oct. 2017 à 12:53

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

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

Discussions similaires

Newsletters