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

Microsoft 365 Macro pour afficher/masquer lignes qui ne s'exécute plus :-/

Créer une discussion

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
C

Cinelles

XLDnaute Nouveau
Bonsoir à tous,

Pour afficher ou masquer des lignes en fonction de listes déroulantes, j'ai créé la macro ci-dessous.
J'ai pu la tester complètement sans souci une fois, mais maintenant elle ne se lance plus, quand je sélectionne un item de la liste déroulante, plus rien ne se passe...
Qu'a-t-il pu se passer ? Voici un extrait :

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("46:1331").EntireRow.Hidden = True
Select Case Range("$B$4").Value
Case ("Toto"): Rows("46:74").EntireRow.Hidden = False

Case Else
Rows("46:1331").EntireRow.Hidden = True
End Select
End Sub

Merci pour vos retours, bonne soirée 🙂
 
Solution
Avec votre code il faut que la dernière cellule (B18) contienne "Toto" pour que les lignes 46:74 s'affichent.

Voyez ceci ;
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("46:1331").EntireRow.Hidden = True
If Application.CountIf(Range("B4:B18"), "Toto") Then Rows("46:74").EntireRow.Hidden = False
End Sub
Les lignes s'affichent si au moins une des cellules de la plage B4:B18 contient "Toto".
Trier par date Trier par votes
Bonsoir Cinelles et bienvenu, bonsoir le forum,

Difficile de te répondre sans le fichier qui va bien...
Peut-être les macros événementielles ont été désactivées. Si c'est le cas, dans une module standard ajoute la macro ci-dessous puis réessaie...
VB: 
Sub Macro1()
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Bonjour à tous
Essaye
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("46:1331").Hidden = True
    Rows("46:74").Hidden = Not UCase(Range("$B$4")) = "TOTO"
End Sub
 
Vote positif 0 Vote négatif
Cinelles à dit:
Merci Jacky, mais ça ne change rien, les lignes sont cachées par défaut et ne s'affichent plus en sélectionnant la liste...
Cliquez pour agrandir...
re..
Donne cette liste
Le problème peut venir des majuscules VBA est sensible à la casse
Cette macro est une macro évènementielle, elle se trouve dans la feuille concernée
Clic droit sur l'onglet de la feuille ==>visualiser le code
 
Dernière édition:
Vote positif 0 Vote négatif
Hello à tous,

Alors j'ai compris d'où vient le dysfonctionnement, sans pour autant savoir le régler...
En fait j'ai plusieurs cellule B4, B5, B6.... B18 avec la même liste déroulante.
La macro fonctionne pour une liste (par exemple ..B4).
Après, j'ai pensé bien faire en copiant différents blocs pour chaque cellule B4, B5, etc... Comme dans l'exemple
VB: 
ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("46:1331").EntireRow.Hidden = True
Select Case Range("$B$4").Value
Case ("Toto"): Rows("46:74").EntireRow.Hidden = False

Case Else
Rows("46:1331").EntireRow.Hidden = True
End Select

Select Case Range("$B$5").Value
Case ("Toto"): Rows("46:74").EntireRow.Hidden = False

Case Else
Rows("46:1331").EntireRow.Hidden = True
End Select
End Sub

Et là ça bug...
J'imagine qu'il y a un moyen plus propre de dire si B4="toto" ou B5="Toto" ou B6="Toto"... alors affiche les lignes spécifiques à TOTO ?

Merci à vous
 
Vote positif 0 Vote négatif
Avec votre code il faut que la dernière cellule (B18) contienne "Toto" pour que les lignes 46:74 s'affichent.

Voyez ceci ;
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("46:1331").EntireRow.Hidden = True
If Application.CountIf(Range("B4:B18"), "Toto") Then Rows("46:74").EntireRow.Hidden = False
End Sub
Les lignes s'affichent si au moins une des cellules de la plage B4:B18 contient "Toto".
 
Vote positif 0 Vote négatif
Solution
Merci beaucoup job75, c'est parfait, ça marche très bien ainsi 🙂
Très bon week-end, et merci à tous 🙂
 
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
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
94
un internaute
U
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
130
Yogean
Y
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
685
shf
S
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
599
chaelie2015
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
476
job75
  • Question Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
452
gbinforme
G
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
467
desto
D
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
486
midovic
M
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
L
  • Question Question
XL 2016 code VBA - masque afficher des lignes
Réponses
3
Affichages
617
Jacky67
L
  • Résolu(e)
XL 2016 finaliser mon code VBA
Réponses
8
Affichages
802
Linda42
L
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
677
Cheyenne_2021
C
T
  • Question Question
XL 2019 afficher/masquer lignes avec case d'option (contrôle de formulaire)
Réponses
1
Affichages
1 K
Tioneb_h
T
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
549
Yvan1
Y
F
  • Résolu(e)
XL 2021 Macro qui ne fonctionne pas, je ne comprends pas l'erreur :(
Réponses
3
Affichages
516
fanou06
F
L
  • Question Question
XL 2016 Macro qui ne s'exécute pas
2
Réponses
18
Affichages
1 K
Jacky67
O
  • Question Question
Microsoft 365 Masquer plusieurs lignes sur plusieurs onglets
Réponses
2
Affichages
445
Orson83
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
642
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…