Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cacher des colonnes en fonction de la cellule sur laquelle je me trouve

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mickythekiller
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mickythekiller

Guest
Bonjour,
j'aimerais savoir comment je pourrais ajouter cette fonction (automatique) à ma feuille excel :

Dans un tableau, si je sélectionne une ligne de la première colonne (C), j'aimerais cacher les colonne pour lesquelles la valeur de la cette ligne en question est en dehors des valeurs mini et maxi défini en bout de ligne (CI et CJ)
Et dailleur si je rajoute des colonne devrais je modifier les références aux celulles CI et CJ ?

J'espere avoir été clair, merci par avance de votre aide pour de projet perso
 
Trier par date Trier par votes
Re : Cacher des colonnes en fonction de la cellule sur laquelle je me trouve

Bonsoir,
A vue de nez, à incorporer dans le projet de la feuille en question:

Après avec un exemple ce serait plus parlant ..
En espérant t'avoir donné une piste !

EDIT: le premier "Then" est mal passé il faut le mettre à la suite de la deuxième ligne ainsi que le true après "Cel.EntireColumn.Hidden"
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Cacher des colonnes en fonction de la cellule sur laquelle je me trouve

pas compris ton edit
j'ai du supprimé la dernière parenthèse de la 2eme ligne mais çà me donne rien
 
Vote positif 0 Vote négatif
Re : Cacher des colonnes en fonction de la cellule sur laquelle je me trouve

Bonjour mickythekiller et bienvenu,

J'espère avoir été clair [...]
Cliquez pour agrandir...
Pas complètement. Il manque un élément essentiel à la question posée: un fichier!

  • Non pas un fichier complet mais un "petit" fichier extrait de votre fichier de travail en ne conservant que quelques lignes par feuille.
  • Fichier expurgé de toutes données nominatives et confidentielles.
  • Avec une feuille montrant le résultat souhaité et avec les explications qui vont bien.

Pour joindre un fichier:
  • Quand vous rédigez un nouveau message ou quand vous modifiez un de vos messages, passer en mode avancé et cliquez sur 'Gérer les pièces jointes'.
  • Choisissez vos fichiers, cliquez sur envoyer pour les charger, quand ils sont chargés refermez la fenêtre puis cliquez sur 'envoyez...' ou 'enregistrer les changements'.

@A+
 
Vote positif 0 Vote négatif
Re : Cacher des colonnes en fonction de la cellule sur laquelle je me trouve

(re)Bonjour mickythekiller,

Pour ta bienvenue, j'ai construit un tableau exemple.

Si on sélectionne une seule cellule du tableau dans la colonne C, on masque les colonnes du tableau pour les valeurs de la ligne correspondant à la cellule sélectionnée qui sont en dehors des bornes. Les bornes sont situées dans les deux dernières colonnes du tableau.

Si on sélectionne une ou des cellules entièrement en dehors du tableau, on ré-affiche toutes les colonnes du tableau.

VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim FinLig As Long, Fincol As Long
Dim xCell As Range, xUnion

Fincol = Range("C3").End(xlToRight).Column
FinLig = Range("c3").End(xlDown).Row
Set xUnion = Nothing

If Target.Column = 3 And Target.Rows.Count = 1 And _
    Target.Row >= 4 And Target.Row <= FinLig Then
  For Each xCell In Range(Cells(Target.Row, 4), Cells(Target.Row, Fincol))
    If xCell.Value < Cells(Target.Row, Fincol - 1) Or xCell.Value > Cells(Target.Row, Fincol) Then
      If xUnion Is Nothing Then
        Set xUnion = xCell
      Else
        Set xUnion = Application.Union(xUnion, xCell)
      End If
    End If
  Next xCell
  Range(Cells(Target.Row, 4), Cells(Target.Row, Fincol)).EntireColumn.Hidden = False
  If Not xUnion Is Nothing Then
    xUnion.EntireColumn.Hidden = True
  End If
ElseIf Application.Intersect(Range(Cells(3, "c"), Cells(FinLig, Fincol)), Target) Is Nothing Then
  Range(Cells(Target.Row, 4), Cells(Target.Row, Fincol)).EntireColumn.Hidden = False
End If

End Sub

NB: On peut insérer des colonnes avant les deux dernières colonnes mais il faut obligatoirement leur attribuer des en-têtes.

Edit : v2 => modif pour réafficher toutes les colonnes du tableau.

Edit: => v3 houps! Une ligne mal placée dans la v2
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
664
Jaykerz
J
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
521
Sylvia57
S
D
  • Question Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
611
Didjo
D
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
871
piga25
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
307
Sissou71
S
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
554
Yogean
Y
J
  • Résolu(e)
XL 2021 Répartition volume d'heures sur plusieurs colonnes en fonction de l'entête de la colonne
Réponses
4
Affichages
434
JLE
J
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
1 K
Nain porte quoi
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
410
job75
Z
  • Résolu(e)
Microsoft 365 Scinder une ligne en fonction de plusieurs critères
Réponses
10
Affichages
560
Zaadox
Z
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
846
Lu76Fer
C
  • Question Question
Microsoft 365 Transposer des valeurs en 2 colonnes en fonction d'une référence produit
Réponses
9
Affichages
886
Cagnet
C
C
  • Question Question
Microsoft 365 Liste déroulante en colonne 2 en fonction de la colonne 1
Réponses
9
Affichages
973
chris
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
663
Romain77144
R
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
T
  • Question Question
XL 2013 Colonne dynamique en fonction de choix d'une liste déroulante
Réponses
5
Affichages
847
JHA
J
W
  • Question Question
XL 2016 Signaler des bilocations du fait d'horaires identiques ou en chevauchement [selon le contenu de la colonne L du fichier]
2 3
Réponses
34
Affichages
2 K
Webperegrino
W
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…