Astuces Excel
  1. Astuces Excel
  3. Masquer les lignes en fonction des données de la cellule
Intereting Posts
Copier une ligne de la list maître si la colonne D contient un certain text Copier / PasteSpecial vs Range.Value = Range.Value Android: ouverture d'un document Office sans la copy locale excel-vba: Affectez une police en gras aux lignes dans le text de string Comment examiner plusieurs conditions dans plusieurs cellules en même time dans excel édition des connections de données de files odc dans Excel à des procédures stockées Attendez que application.run soit terminé Remplir ComboBox et Textfields d'Excel Mise à jour des cellules sur une feuille Excel ouverte tout en basculant application.screenupdating off on on Traçage des durées de phase sexuelle féminine et masculine Je tente d'exporter un file excel vers pdf mais l'alignment est en cours? Combinaison de 2 classurs en 1 feuille de calcul basée sur la valeur commune de la ligne Couleur de fond en fonction de la différence avec la cellule Comment utiliser une list pour ne prendre en count que les lignes contenant certaines données? Load Testing "Excel n'a pas pu être lancé. La reference d'object n'est pas définie à une instance d'un object"

Masquer les lignes en fonction des données de la cellule

Je souhaite cacher certaines des lignes dans une feuille de calcul si la cellule dans la colonne A contient 0. Elle est calculée à l'aide d'une formule.

Par ex. Si A1 contient la valeur "0", la ligne n ° 1 devrait se cacher.

Je sais que je peux écrire ce code sur Sheet's Activate Event, mais cela ralentit les performances du file.

Existe-t-il un bon moyen d'en réaliser sans compromettre les performances du file?

vous pouvez toujours utiliser un filter pour y parvenir. Je pense que cela serait beaucoup plus efficace.

Modifier: Pour améliorer les performances de votre code, vous pouvez faire ce qui suit:

  1. Désactiver les events
  2. Désactiver les calculs

Avant d'exécuter la boucle pour masquer les lignes 

 With Excel.Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual .Cursor = xlWait End With

Une fois la boucle terminée 

 With Excel.Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .Cursor = xlDefault End With

J'espère que cela t'aides. L'utilisation explicite de variables peut également donner une impulsion aux performances et aux calculs. Bien que la déclaration explicite de vos variables devrait également être utile.