l’ordinateur
  1. l’ordinateur
  3. Code VBA pour masquer ou afficher des lignes en fonction d'une valeur de cellule
Intereting Posts
Réaffectation de la touche de verrouillage des capsules sur Windows ou OS X Quel est ce cylindre sur les câbles? Vim: Comment définir la préférence pour les types de fichiers personnalisés? Rechercher et remplacer un outil capable de gérer plusieurs fichiers et sous-dossiers Risques liés à l'élimination des fusibles de Linux (pour se débarrasser des fichiers .fuse_hidden) Comment puis-je supprimer tout dans mon historique Firefox plus ancien que N jours? Comment fusionner / combiner des fichiers avec des extensions .001, .002, .003 .. etc? Logiciel de gravure de DVD pour Mac, recherche d'un Nero équivalent Comment insérer de manière dynamique du texte à partir d'un fichier externe dans une diapositive Powerpoint? Montage automatique des volumes Truecrypt au moment de la connexion utilisateur Quelle est la double flèche bleue qui apparaît sur les liens? Comment désactiver l'option d'arrêt à l'écran de connexion? Gzip sans goudron? Pourquoi sont-ils utilisés ensemble? Copier toute la hiérarchie du système de fichiers d'un lecteur à l'autre Hiberner à partir du menu de démarrage sans désactiver le sommeil hybride

Code VBA pour masquer ou afficher des lignes en fonction d'une valeur de cellule

C'est mon code, mais ça ne fait vraiment rien, je ne vois rien de mal avec ça: 

Private Sub PG1(ByVal Target As Range) If .Range("E50").Value = "Passed" Then Rows("51").EntireRow.Hidden = True End If ElseIf Range("E50").Value = "Failed" Then Rows("51").EntireRow.Hidden = True End If End Sub

Mon intention est que lorsque cette cellule spécifique de la ligne précédente est définie sur "Passé" dans la liste déroulante, la ligne ci-dessous apparaîtrait, si elle est "Echec" puis elle sera masquée à la place.

Il semble que votre code comporte des fautes de frappe. Vous voulez quelque chose comme ça: 

 Sub PG1() If Range("E50").Value = "Passed" Then Rows("51:51").EntireRow.Hidden = True ElseIf Range("E50").Value = "Failed" Then Rows("51:51").EntireRow.Hidden = False End If End Sub

Pour que la ligne cache / affiche la mise à jour lorsque vous modifiez la feuille, mettez-la dans un événement Worksheet_Change : 

 Private Sub Worksheet_Change(ByVal Target As Range) If Range("E50").Value = "Passed" Then Rows("51:51").EntireRow.Hidden = True ElseIf Range("E50").Value = "Failed" Then Rows("51:51").EntireRow.Hidden = False End If End Sub

Il n'y avait aucune faute de frappe. "Les lignes (51)" sont valides. Mais vous n'avez pas besoin du modificateur "en route" 

 rows(n).hidden=true ; where n is an valid row number

Pour cacher plusieurs lignes 

  range(rows(n1),rows(n2)).hidden=true ; will hide rows n1 though n2 
 Private Sub PG1() Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed") End Sub