Discussion :

[lexus92]

Bonjour à toutes et à tous,

J'ai créé deux boutons tout simple. Un qui copie colle un tableau matières, et l'autre qui copie colle un tableau prod. La copie est dynamique, et tout ça marche très bien.

Je souhaiterais maintenant créer un bouton qui lorsque je clique dessus masque à partir de la cellule J jusqu'au l'avant avant dernier tableau. Lorsque je click à nouveau sur le bouton, il me réaffiche tout.

Du coup, si j'utilise mes deux boutons, le masquage devra suivre pour toujours afficher à la partir de la cellule J, les trois derniers tableaux.

Je vous joins un fichier .

Merci par avance,

Cordialement,

Alexandre

[Theze]

Bonjour,

Est ce que ceci pourrait convenir ?

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
36
37
38
 
Sub MacroMatiere()
 
    Range("L200:N271").Copy Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
 
    'sélection pour aller jusqu'aux nouvelles colonnes
    Cells(1, Columns.Count).End(xlToLeft).Select
 
End Sub
 
Sub MacroProd()
 
    Range("O200:Q271").Copy Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
 
    'sélection pour aller jusqu'aux nouvelles colonnes
    Cells(1, Columns.Count).End(xlToLeft).Select
 
End Sub
 
Sub AfficherCacher()
 
    'teste si la colonne J est cachée ou non
    If Columns("J:J").EntireColumn.Hidden = False Then
 
        'cache à partir de J sauf les 3 derniers tableaux
        Range(Cells(1, 10), _
              Cells(1, Columns.Count).End(xlToLeft) _
                                     .End(xlToLeft) _
                                     .End(xlToLeft) _
                                     .End(xlToLeft)).EntireColumn.Hidden = True
 
    Else
 
        Columns.EntireColumn.Hidden = False
 
    End If
 
End Sub

Hervé.

[lexus92]

Re bonjour,

La macro marche parfaitement, mais j'ai juste un petit souci. Je suis obligé de créer trois nouveaux tableaux pour que la macro marche, mais si je pars de mon fichier de base, avec les tableaux gris, et que j'applique la macro, cette dernière me cache le début de mon tableau. Ce que je souhaiterais, c'est que la macro fasse ce qu'elle fait, mais qu'elle marche dès le premier tableau grisé se situant en (J:K).

Merci énormément,

Cordialement

[Theze]

Re,

Je ne suis pas sûr de bien comprendre mais si tu as ton tableau de base, tu veux donc cacher de J à W ?
Il te suffit de faire comme pour les autres tableaux, entrer "END" (ou autre chose) en W1, Z1, AC1 et AF1. La macro cherche 4 fois la dernière cellule non vide de la droite vers la gauche et une fois cette cellule trouvée (il faut bien évidemment qu'elle existe c'est pour ça qu'il faut entrer quelque chose dans les cellules concernées) elle cache les colonnes situées dans la plage.

Hervé.

[lexus92]

Bonjour Theze,

En effet, il me suffisait de rajouter un mot sur les lignes 1. Je m'en suis rendu compte tout à l'heure. Tout marche à la perfection.

Merci beaucoup pour ton aide,

Bon week end,

Cordialement,

Alexandre