Macro Excel / Masquer et démasquer dynamiquement colonnes [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 21 avril 2020
Statut
Membre
Dernière intervention
21 avril 2020
-
Messages postés
2
Date d'inscription
mardi 21 avril 2020
Statut
Membre
Dernière intervention
21 avril 2020
-
Bonjour,

je débute en programmation VBA et je rencontre pour l'une de mes macros excel un petit soucis.

Voici une image de mon tableur en exemple:


Nous avons:
ligne 1 --> année
Ligne 2--> date du lundi de chaque semaine
Ligne 3 --> n° de la semaine en relation avec la ligne 2

Le fichier contient deja ces infos de la semaine 1-2020 jusque semaine 53-2022. Les données sont masquées selon la configuration "Semaine actuelle (rouge) moins 2 jusque semaine actuelle plus 12 (orange)." (les couleurs sont des mises en formes conditionnelles et donc dynamisées)

Cette configuration doit être conservée et chaque semaine je dois masquer une des semaines précédentes et démasquer une semaine suivante. Donc en semaine 18, je masque U et je démasque AJ et ainsi de suite.
Je souhaite m'épargner de le faire manuellement et je veux une macro qui me permette d'un simple click d'actualiser les semaines dans la configuration voulue.

C'est ici le dynamisme qui me pose problème. Auriez-vous une idée?


Merci par avance.

2 réponses

Messages postés
6985
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2020
562
Bonjour,

Faire Alt F11 sur la feuille concernée pour accéder à l'éditeur

coller ce code dans le module de la feuille.

Il se déclenchera au double clic sur la ligne 3 et sur la colonne concernée

Avec les commentaires, adapter pour coller au mieux. j'ai fait de l'a peu près n'ayant qu'une image:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim macolonne As String
Dim dercolonne As String
Dim avantcolonne As String
If Not Application.Intersect(Target, Rows(3)) Is Nothing Then 'ligne 3
macolonne = Col2Let(Target.Column)
avantcolonne = Col2Let(Target.Column - 2) '2 colonnes avant
dercolonne = Col2Let(Target.Column + 12) '12 colonnes après
    Columns(macolonne & ":" & dercolonne).Select 'affiche jusqu'a 12 colonnes
    Selection.EntireColumn.Hidden = False
      Columns("G:" & avantcolonne).Select 'masque colonne G jusque  2 colonnes avant
    Selection.EntireColumn.Hidden = True
    End If
End Sub
Public Function Col2Let(ByVal numCol As Long) As String
Col2Let = Split(Cells(, numCol).Address, "$")(1) '$A$1
End Function

Messages postés
2
Date d'inscription
mardi 21 avril 2020
Statut
Membre
Dernière intervention
21 avril 2020

Merci beaucoup pour votre rapidité et votre solution. Ca fonctionne super bien!!!

Cordialement,

Loic
Messages postés
12752
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 octobre 2020
708
bonjour, peux-tu montrer le code de la macro, sans le dynamisme?
cela nous aidera à te guider dans l'ajout du dynamisme.