Discussion :

[fnroux]

Bonjour,

je cherche à faire une macro pour masquer des colonnes de plusieurs onglets (toujours les mêmes). J'aimerais avoir un bouton permettant de masquer les colonnes en fonction d'une valeur définie dans une celulle. Par exemple si dans feuille 1 en A1 = Janvier alors masquer colonnes C à M des feuilles 2, 3 et 4. Par contre si feuille 1 en A1 = Février alors masquer colonnes D à M des feuilles 2, 3 et 4 etc... jusque Novembre où l'on cache M et décembre où l'on ne cache rien.

J'aimerais avoir un deuxième bouton qui permettant d'afficher ce qui a été caché sur le même principe de fonctionnement (référence à une celulle contenant une valeur).

Je vous remercie par avance pour votre aide, j'imagine que si le père noel existe c'est sur ce forum!

Joyeuses fêtes

[NVCfrm]

Bonsoir fnroux,
Recopies le texte suivant dans un module. et essaye le pas à pas avec F8.
Les tests pouvant ne pas correspondre à tes exigences. Le procédé de masquage est dans la boucle for. Tu pourras ensuite l'attribuer à un bouton de commande.

cordialement.

'Mode d'emploi: _
S'assurer que les cellule A1 ou B1 referencées dans _
le code ne sont pas vide. _
Vous pouvez changer ces références si vous voulez. _
Si la cellule "B1", devant contenir les noms de feuilles _
est vide l'instruction ne se poursuivra pas. _
Vous serez invité à définir les nom de feuilles.
'Si le caractère de séparation des noms n'est pas une virgule, _
une invite à définir le caractère
'Si vous entrez un seul nom de feuille avec une virgule au début ou à la fin, _
vous serez informé du nom incorrect. _
Il en est de même pour un nom mal orthograpié ou absent.
'_Si la valeur de la cellule A1 est 0 un avertissement sera affiché.
'NB: La procédure en l'état n'a pas été testé.

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
28
29
30
31
32
33
34
35
Sub MasqueColonne()
    Dim r As Range, Sh As String, colonne_debut As Integer, _
    colonne_fin As Integer, n As Long, Tab_sh
    '
    If InStr(1, Range("B1"), ",") = 0 Then _
        MsgBox "Le séparateur n'est pas reconnu ou la cellule de texte est vide!" _
        & Chr(13) & " Utilisez une virgule " & "comme séparateur de noms.", _
        vbExclamation, "Séparateur incorrect": Exit Sub
    n = Range("a1")
    If n = 0 Then _
        MsgBox "Vérifier la valeur de date.", vbCritical, "Erreur": Exit Sub
    On Error GoTo Fin
 
    Select Case Month(Range("a1"))
        Case Is = 1
            colonne_debut = 4
            colonne_fin = 12
        Case 2 To 11
            colonne_debut = 5
            colonne_fin = 12
        Case Is = 12
            colonne_debut = 3
            colonne_fin = 13
    End Select
    Tab_sh = Split(Range("B1"), ",")
    For n = 0 To UBound(Tab_sh)
        Worksheets(Tab_sh(n)).Columns.Hidden = False
        Worksheets(Tab_sh(n)).Range(Cells(1, colonne_debut), Cells(1, colonne_fin)).Columns.Hidden = True
    Next
    Exit Sub
Fin:
    Err.Clear
    MsgBox "Le nom de feuille " & Chr(34) & Tab_sh(n) & Chr(34) & " n'éxiste pas!", vbInformation, "Erreur"
 
End Sub