XL 2010 Masquage de lignes très, très, très long

[Usine à gaz]

Bonjour à toutes et à tous,

Me voilà à nouveau à vous solliciter (je suis intarissable LOL).

Ce que je souhaite faire :
Afficher uniquement les lignes si les cellules contiennent 1, colonne AI (col 35)
Avant affichage de la colonne choisie, je dois masquer toutes les lignes.

Affichage : Fonctionne parfaitement
masquage : Fonctionne mais TRES TRES TRES LONG
pour le test : la feuille contient moins de 1 000 lignes
Fichier de travail : la feuille contient jusqu'à 20 000 lignes

Je cherche comment faire pour que le masquage soit plus rapide mais je ne trouve pas.
Auriez-vous un code magique ?

Je joins le fichier test.
Bonne semaine à toutes et à tous,
Avec mes remerciements,
Amicalement,
Lionel,

 

[robertjamin]

Bonjour,
Pour moi pas besoin de code VBA pour faire cela mais créer un tableau avec la colonne AI
Vous placer le cureur en A1 vous cliquez l'onglet Insérer > Tableau vous déterminer la plage de AI2:AI20000
Vous laissez coché Mes colonnes ont des entêtes.
Puis Ok.
Le mot colonne apparaît en A1 vous cliquez pour ouvrir la liste de filtre sous décochez Vides et vous n'avez plus que les lignes qui contiennent 1 ou les valeurs d'entête.

 

[Dranreb]

Bonjour.
Et comme ça, ça n'irait pas plus vite ?

Sub lignes100() 'affiche lignes col AI - col 35 (contient 1)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
Rows("7:20000").Hidden = True
[AI7:AI20000].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

 

[Usine à gaz]

Bonjour Dranreb,

Merci pour cette rapide réponse.
Je teste et je reviens.
Amicalement,
Lionel,

 

[Usine à gaz]

Re-Danreb,

Nom de d'là de nom de d'là : c'est quasi instantané.
Génial !!!
Un grand merci vraiment.
Amicalement,
Lionel,

 

[Usine à gaz]

Re-Danreb,

Petit hic .....
Quand j'exécute ton code sur la colonne M, il m'affiche 2 lignes de la colonne J
Je joins le fichier.
Je cherche à comprendre LOL

 

[Usine à gaz]

Re,

J'ai trouvé.
c'est une erreur dans ma formule ou dans une condition, j'ai mis résultat au lieu de "".
Encore merci

 

[Usine à gaz]

Re Danreb,

Je voudrais utiliser le code :

[Ai7:Ai20000].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False

avec une valeur à la place de CellTypeFormulas, 1
ou utiliser > 0

je n'arrive pas à trouver comment faire

 

[Dranreb]

Il y a xlCellTypeConstants aussi.
Conseil: Enregistrer une nouvelle macro et faire onglet Accueil, dernier groupe Édition, commande Rechercher et sélectionner, Rubrique Atteindre, bouton Cellules…
Ça permet de voir ce qui est possible et ça engendrera le code qui les sélectionne.

 

[Usine à gaz]

Merci Danreb,
Je vais voir ça

 

[Usine à gaz]

Re Danreb,

J'ai trouvé mon bonheur :
Ce lien n'existe plus
Encore un grand merci à toi
Amicalement,
Lionel,