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

Microsoft 365 afficher et masquer des lignes selon une valeur de la liste

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion biba78
  • 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
B

biba78

XLDnaute Junior
Bonjour à tous,
besoin de votre aide
Je souhaite afficher les lignes masquées selon le ville sélectionnée dans la cellule J8.
Exemple :
J8 = Bordeaux => afficher site 1 , Site 4 et Site 8
J8= Lille => afficher Site 4, Site 6 et Site Site 9
J8= Lyon => afficher Site1, Site 8 et Site 9
J8= Toutes les villes => afficher tous les sites
En vous remerciant à l’avance
 

Pièces jointes

Trier par date Trier par votes
Bonjour à tous
La sélection n'est pas en J8, mais en i8
Autre proposition par "Select Case"
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [i8]) Is Nothing Then
        Rows("12:20").Hidden = True
        Select Case UCase(Trim([i8]))
        Case "BORDEAUX"
            Range("12:12,15:15,19:19").EntireRow.Hidden = False
        Case "LILLE"
            Range("15:15,17:17,20:20").EntireRow.Hidden = False
        Case "LYON"
            Range("12:12,19:20").EntireRow.Hidden = False
        Case "TOUTES LES VILLES"
            Rows("12:20").Hidden = False
        End Select
    End If
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonsoir à tous,
je reviens vers vous suite au changement de la présentation de mon tableau
je souhaite plutôt mettre en surbrillance les colonnes selon le ville sélectionnée dans la cellule J3.
Exemple :
J8 = Bordeaux => colonnes site 1 , Site 4 et Site 8
J8= Lille => colonnes Site 4, Site 6 et Site Site 9
J8= Lyon => colonnes Site1, Site 8 et Site 9
J8= Toutes les villes => afficher tous les sites
En vous remerciant à l’avance pour votre aide
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re..
Au risque de me répéter==>La sélection n'est pas en J8, mais en i8

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [i8]) Is Nothing Then
        Range("a12:m20").Interior.ColorIndex = xlNone
        Select Case UCase(Trim([i8]))
        Case "BORDEAUX"
            Range("a12:m12,a15:m15,a19:m19").Interior.ColorIndex = 43 ' vert
        Case "LILLE"
            Range("a15:m15,a17:m17,a20:m20").Interior.ColorIndex = 43
        Case "LYON"
            Range("a12:m12,a19:m20").Interior.ColorIndex = 43
        Case "TOUTES LES VILLES"
            Range("a12:m20").Interior.ColorIndex = 43
        End Select
    End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
biba78 à dit:
J’avoue que je n’avais pas penser à faire la sélection par mois.
Non uniquement par ville avec la mise en surbrillance des colonnes
En vous remerciant par avance
Cliquez pour agrandir...
RE..
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C
    If Not Application.Intersect(Target, [j3]) Is Nothing Then
       [tablo].Interior.ColorIndex = xlNone
        Select Case UCase(Trim([j3]))
        Case "BORDEAUX"
            For Each C In Array(1, 4, 8)
                [tablo].Columns(C).Interior.ColorIndex = 43    ' vert
            Next
        Case "LILLE"
            For Each C In Array(4, 6, 9)
                [tablo].Columns(C).Interior.ColorIndex = 43
            Next
        Case "LYON"
            For Each C In Array(1, 8, 9)
                [tablo].Columns(C).Interior.ColorIndex = 43
            Next
        Case "TOUTES LES VILLES"
           [tablo].Interior.ColorIndex = 43
        End Select
    End If
End Sub
La pj devrait faire
 

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

Discussions similaires

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
128
Yogean
Y
O
  • Question Question
XL 2021 finaliser un script VBA pour répartir une liste de personnes dans des villes.
2
Réponses
19
Affichages
468
gbinforme
G
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
189
Daniel200666
D
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
668
Nel'
N
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
476
job75
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
  • Résolu(e)
XL 2013 (RESOLU) Masquer et/ou afficher des colonnes selon une valeur
Réponses
5
Affichages
793
chaelie2015
T
  • Question Question
Microsoft 365 Macro pour rendre visible les lignes de couleur masquées par des filtres
Réponses
3
Affichages
324
Phil69970
N
  • Résolu(e)
Microsoft 365 Afficher-désafficher lignes selon réponses de menu déroulants (oui-non)
Réponses
11
Affichages
576
NicodePorto
N
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
511
Romain77144
R
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
439
Phil69970
T
  • Résolu(e)
XL 2010 Masquer les lignes en fonction du résultat d'une liste déroulante
Réponses
11
Affichages
728
Titi456
T
  • Résolu(e)
XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules
Réponses
2
Affichages
583
chaelie2015
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
685
shf
S
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
POWERQUERY :: Tris dynamiques, regroupements et somme
Réponses
1
Affichages
169
merinos-BernardEtang
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
740
vgendron
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
507
Aya_flo
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…