Macro masquer colonnes - valeur cellule Résolu/Fermé

Question

Bonjour à tous,

J'aimerais que quelqu'un me réfère une macro qui me permettrait de masquer des colonnes en fonction de la valeur d'une cellule de la feuille.

Par exemple, j'ai une feuille qui possède un tableau de 30 colonnes représentant des années, l'année 1 débutant à la colonne Q. 

Je voudrais que les colonnes des années supérieures à la valeur de la cellule H13 soient masquées. Donc si la valeur de H13 est de 8, je voudrais que les colonnes Y à  AT soient cachées.

Merci de bien vouloir m'aider

Gilles


Configuration: Platform: Windows XP SP3 (WinNT 5.01.2600) 
MSIE: Internet Explorer v8.00 (8.00.6001.18702)

Mike-31 · Answer

Salut,

Colles ce code dans un module et associe le à un bouton

Sub colonne ()
'MasquerColonnes
    Dim i As Variant
    Application.ScreenUpdating = False
    [Q1:AT1].EntireColumn.Hidden = False
    For col = 17 To 47
    With Feuil1.Cells(1, col)
    If .Value > [H13] Then Columns(col).Hidden = True
    End With
    Next col
    Application.ScreenUpdating = True
End Sub

Mike-31 · Answer

Re,

non, le code que je t'ai donné est applicable dans toutes les feuilles, il suffit de le coller dans un module (Alt et touche F11) ou clic droit sur l'onglet de feuille concernée/Visualiser le code, Insérer un module et coller le code

Sub colon()
'MasquerColonnes
    Dim i As Variant
    Application.ScreenUpdating = False
    [Q1:AT1].EntireColumn.Hidden = False
    For col = 17 To 47
    With Feuil1.Cells(1, col)
    If .Value > [H13] Then Columns(col).Hidden = True
    End With
    Next col
    Application.ScreenUpdating = True
End Sub

ensuite à partir de la barre d'outils formulaire (affichage/Barre d'outils/Formulaire) créer un bouton et Associer à la macro
ou encore avec la barre contrôle du Visual Basic créer un commanButton
dans ce cas le contrôle du bouton sera dans les propriétés de la feuille, coller  le nom de la macro "colon" exemple

Private Sub CommandButton1_Click()
colon
End Sub

ou tu optes pour un déclenchement automatique lorsque la valeur de la cellule H13 change, dans ce cas , dans la propriété de la feuille tu colles ce code qui fait référence à la macro colon

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$13" Then
colon
End If
End Sub

tu répètes l'option retenue dans la propriété de tes feuilles, qui utiliseront le même code "colon"

si tu as besoin d'un exemple on verra ça demain

Mike-31 · Answer

Re,

Pour joindre un fichier, s'il ne contient pas de note confidentielles soit dans un post ou dans un message perso en cliquant sur le pseudo du membre à qui tu souhaites l'envoyer
clic sur ce lien/Parcourir pour sélectionner le fichier/Créer le lien/Autoriser l'accès et colle le lien généré en haut de la feuille

Mike-31 · Answer

Re,

Excuse, j'ai oublié de mettre le lien.
Donc clic sur ce lien 

https://www.cjoint.com/

et /Parcourir pour sélectionner le fichier/Créer le lien/Autoriser l'accès et colle le lien généré en haut de la feuille 
soit sur un post ou sur un message privé, dans ce cas clic sur le pseudo du membre à qui tu souhaites l'envoyer et message privé

gber1 · Answer

Bonjour

Voici la partie de mon fichier pour lequel je voudrais cette macro.

https://www.cjoint.com/?fedXuTa5h1

(J'espère que le lien fonctionnera !)

Gilles

Mike-31 · Answer

Re,  

Remplace le code sur le module par celui ci   

Sub colon()  
'MasquerColonnes  
Dim i As Variant  
Application.ScreenUpdating = False  
[Q1:AT1].EntireColumn.Hidden = False  
For col = 17 To 47  
With Cells(8, col)  
If .Value > [H13] Then Columns(col).Hidden = True  
End With  
Next col  
Application.ScreenUpdating = True  
End Sub 

Par contre si tu souhaites afficher les colonnes, il y a un problème avec la Validation que tu as limité à 20, ce qui limite l'utilisation de la macro à 20 

le code si dessus masque toute le colonnes de Q à At si en H13 il n'y a aucune valeur, si tu saisis 20 s'affichent les colonnes dont la valeur est inférieure ou égale à 20 et le colonnes avec valeur supérieure à 20 reste masquées et ne peuvent et inaccessible du à la validation  

ou on ajoute une ligne par exemple si H13 est vide on affiche toute les lignes, avec ce code 

Sub colon() 
'MasquerColonnes 
Dim i As Variant 
Application.ScreenUpdating = False 
[Q1:AT1].EntireColumn.Hidden = False 
For col = 17 To 47 
With Cells(8, col) 
If .Value > [H13] Then Columns(col).Hidden = True 
If [H13] = "" Then Columns(col).Hidden = False 
End With 
Next col 
Application.ScreenUpdating = True 
End Sub 

ou tu modifies la Validation et tu sélectionnes Avertissement à la place d'Arrêt sur l'onglet Alerte d'erreur 

A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Content de t'avoir rendu service.

J'y pense dans la cellule H13, à la place de mettre une restriction limitant la saisie à 20, tu peux faire une liste de validation dans source saisis 
=$Q$8:$AJ$8

Macro masquer colonnes - valeur cellule

7 réponses

Discussions similaires