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

Masquer/afficher des cellules sur 3 feuilles en même temps

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

PatrickPrev

XLDnaute Nouveau
Bonjour
Voilà mon petit problème
Je dois masquer ou afficher des lignes sur 3 feuilles différentes
Je m'explique : J'ai une feuille "Commande" sur la-quelle je masque ou affiche les lignes selon la valeur d'une cellule
Ex ;
Si telle valeur dans "$A$17" (lignes 23 à 24 masquer , lignes 19 à 22 afficher)
Si telle valeur dans "$A$17" (lignes 25 à 28 masquer , lignes 19 à 24 afficher)
Si telle valeur dans "$A$17" (lignes 19 à 20 et lignes 23 à 28 masquer , lignes 21 à 22 afficher)
Si telle valeur dans "$A$17" (lignes 19 à 20 et lignes 23 à 28 masquer , lignes 21 à 22 afficher)
Si telle valeur dans "$A$17" (lignes 19 à 22 et lignes 25 à 28 masquer , lignes 23 à 24 afficher)
Si telle valeur dans "$A$17" (lignes 19 à 24 et lignes 27 à 28 masquer , lignes 25 à 26 afficher)
Si telle valeur dans "$A$17" (lignes 19 à 26 masquer, lignes 27 à 28 afficher)
Pour çà pas de problème vous m'avez déjà répondu et je vous en remercie
Je souhaiterai : quand je travaille sur la feuilles et rentre une valeur dans"S17 de la deuille "Commande" les mêmes N° de lignes se masquent ou s'affichent sur les feuilles "Confirmation_U" et "Confirmation_C"

Merci de votre aide
 
Dernière édition:
Trier par date Trier par votes
Re : Masquer/afficher des cellules sur 3 feuilles en même temps

Salut PatrickPrev et le forum
Il suffit de répéter la commande avec le nom de la feuille.
si tu as
Code: 
Range("21:26").hidden = true
pour afficher les lignes 21 à 26 de la feuille commande, il suffit de rajouter la même commande pour chaque feuille concernée :
Code: 
Range("21:26").hidden = true
Sheets("Confirmation_U").Range("21:26").hidden = true
Sheets("Confirmation_C").Range("21:26").hidden = true
et ce pour toutes les lignes de code concernées.
A+
 
Vote positif 0 Vote négatif
Re : Masquer/afficher des cellules sur 3 feuilles en même temps

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Calculate
If Target.Address = "$A$17" Then
Rows.Hidden = False
Select Case Range("$A$17").Value
Case "COSTUME HOMME/MEN'S SUITS", "COSTUME ENFANT/BOY'S SUITS": Range("21:21,22:22,25:25,26:26,27:27,28:28").Select
Selection.EntireRow.Hidden = True
Sheets("Confirmation_Usine").Range("21:21,22:22,25:25,26:26,27:27,28:28").Hidden = True
Case "COSTUME HOMME 3 PIECES/MENS SUITS WITH VEST": Rows("25:28").Hidden = True
Case "VESTE HOMME/MEN'S JACKET": Rows("21:28").Hidden = True
Case "PANTALON HOMME/MEN'S PANTS": Range("19:19,20:20,21:21,22:22,25:25,26:26,27:27,28:28").Select
Selection.EntireRow.Hidden = True
Case "GILET HOMME/MEN'S VEST": Range("19:19,20:20,23:23,24:24,25:25,26:26,27:27,28:28").Select
Selection.EntireRow.Hidden = True
Case "MANTEAU HOMME/MEN'S OVERCOAT": Range("19:19,20:20,21:21,22:22,23:23,24:24,27:27,28:28").Select
Selection.EntireRow.Hidden = True
Case "PARKA HOMME/MEN'S PARKA": Rows("19:26").Hidden = True
End Select
End If
End Sub
j'ai fait l'essai sur une seule ligne en rouge et Excel m'envoie "erreur d'exécution '10004' Impossible de définir la propriété Hidden de la classe Range

Merci
 
Vote positif 0 Vote négatif
Re : Masquer/afficher des cellules sur 3 feuilles en même temps

Salut PatrickPrev et le forum
Utilise les balises de code (icone# en mode avancé)
Quand on dit que les Select/Selection ne servent qu'à ralentir le processus ou, en cas de module de classe à créer une erreur !
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Calculate
If Target.Address(0, 0) = "A17" Then
    Rows.Hidden = False
    Sheets("Confirmation_Usine").Rows.Hidden = False
    Select Case Range("A17")
        Case "COSTUME HOMME/MEN'S SUITS", "COSTUME ENFANT/BOY'S SUITS"
            Range("21:22,25:28").Hidden = True
            Sheets("Confirmation_Usine").Range("21:22,25:28").Hidden = True
            
        Case "COSTUME HOMME 3 PIECES/MENS SUITS WITH VEST"
            Rows("25:28").Hidden = True
            Sheets("Confirmation_Usine").Rows("25:28").Hidden = True
            
        Case "VESTE HOMME/MEN'S JACKET"
            Rows("21:28").Hidden = True
            Sheets("Confirmation_Usine").Rows("21:28").Hidden = True
            
        Case "PANTALON HOMME/MEN'S PANTS"
            Range("19:22,25:28").Hidden = True
            Sheets("Confirmation_Usine").Range("19:22,25:28").Hidden = True
            
        Case "GILET HOMME/MEN'S VEST"
            Range("19:20,23:28").Hidden = True
            Sheets("Confirmation_Usine").Range("19:20,23:28").Hidden = True
        
        Case "MANTEAU HOMME/MEN'S OVERCOAT"
            Range("19:24,27:28").Hidden = True
            Sheets("Confirmation_Usine").Range("19:24,27:28").Hidden = True
        
        Case "PARKA HOMME/MEN'S PARKA"
            Rows("19:26").Hidden = True
            Sheets("Confirmation_Usine").Rows("19:26").Hidden = True
    End Select
End If
End Sub
Je ne l'ai pas testée, c'est une macro simple.
Mettre les ":" pour économiser une ligne, pour moi, ne fait que compliquer la lecture du code. Effectivement, on a un gain en ligne de code. Mais, sur les codes conséquents, on a du mal à se situer dans les tests, les boucles, etc. Mais évidemment, je dis ça parce que j'ai souvent des erreurs...
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Masquer/afficher des cellules sur 3 feuilles en même temps

Bonjour à tous
voici le code que je me suis fait
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Sh As Worksheet
If Target.Address = "$A$17" Then
For Each Sh In Worksheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Rows.Hidden = False
Next

Select Case Range("$A$17").Value
Case "COSTUME HOMME/MEN'S SUITS", "COSTUME ENFANT/BOY'S SUITS"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("21:22,25:28").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "COSTUME HOMME 3 PIECES/MENS SUITS WITH VEST"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("25:28").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "VESTE HOMME/MEN'S JACKET"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("21:28").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "PANTALON HOMME/MEN'S PANTS"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("19:22,25:28").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "GILET HOMME/MEN'S VEST"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("19:20,23:28").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "MANTEAU HOMME/MEN'S OVERCOAT"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("19:26").EntireRow.Hidden = True
Next
End Select

Select Case Range("$A$17").Value
Case "PARKA HOMME/MEN'S PARKA"
For Each Sh In Sheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
Sh.Range("19:24,27:28").EntireRow.Hidden = True
Next
End Select

End If
End Sub

j'ai trouvé ce code sur un bouquin anglais
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Masquer/afficher des cellules sur 3 feuilles en même temps

Salut PatrickPrev et le forum
À voir ton code, je ne suis pas sûr que tu ais compris l'utilisation de select case...
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Sh As Worksheet
If Target.Address = "$A$17" Then
    For Each Sh In Worksheets(Array("Confirmation_Client", "Confirmation_Usine", Me.Name))
        Sh.Rows.Hidden = False

        Select Case Range("$A$17")
            Case "COSTUME HOMME/MEN'S SUITS", "COSTUME ENFANT/BOY'S SUITS"
            Sh.Range("21:22,25:28").EntireRow.Hidden = True

        Case "COSTUME HOMME 3 PIECES/MENS SUITS WITH VEST"
            Sh.Range("25:28").EntireRow.Hidden = True

        Case "VESTE HOMME/MEN'S JACKET"
            Sh.Range("21:28").EntireRow.Hidden = True

        Case "PANTALON HOMME/MEN'S PANTS"
            Sh.Range("19:22,25:28").EntireRow.Hidden = True

        Case "GILET HOMME/MEN'S VEST"
            Sh.Range("19:20,23:28").EntireRow.Hidden = True

        Case "MANTEAU HOMME/MEN'S OVERCOAT"
            Sh.Range("19:26").EntireRow.Hidden = True

        Case "PARKA HOMME/MEN'S PARKA"
            Sh.Range("19:24,27:28").EntireRow.Hidden = True
        End Select
    Next
End If
End Sub
A+
 
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

C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
642
candido57
C
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
246
jurassic pork
M
  • Question Question
Microsoft 365 Problème de non-doublons
Réponses
6
Affichages
498
merinos-BernardEtang
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
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
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
444
chris63
C
  • Question Question
XL 2019 déterminer valeur selon intervalle de date
Réponses
2
Affichages
503
titooooo
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
229
piga25
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
104
vazvaz
V
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
418
crocrocro
C
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
740
vgendron
I
  • Question Question
XL 2016 Dupliquer des colonnes sur plusieurs feuilles
Réponses
2
Affichages
312
AtTheOne
P
  • Résolu(e)
XL 2010 Vérifier contenu de même cellules sur plusieurs feuilles
Réponses
7
Affichages
593
Panda79360
P
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
T
  • Résolu(e)
XL 2016 Afficher/masquer des lignes en fonction d'un critère
2 3
Réponses
39
Affichages
2 K
telemarrk
T
G
  • Question Question
XL 2021 rassembler des données sur une seule feuille du même fichier.
Réponses
1
Affichages
516
chris
H
  • Question Question
XL 2021 [Résolu] Récupérer informations dans plusieurs classeurs et les centraliser dans un autre
2
Réponses
16
Affichages
1 K
Cousinhub
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
627
jgav
C
  • Question Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
520
crocrocro
C
K
  • Question Question
Microsoft 365 Bloquer des plages de cellules
2 3 4
Réponses
46
Affichages
2 K
sousou
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…