XL 2013 Résolu par Dranreb : specialcellsValue : je n'y arrive pas

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous et à toutes,

Toujours dans mon super fichier (grâce à vous tous ;)), je bute sur un souci nouveau :

Ce fichier contient en moyenne 20.000 lignes.
Pour faciliter les traitements,
j'ai créé un code qui masque toutes les lignes :
Code:
Rows("7:20000").Hidden = True
et qui m'affiche uniquement les lignes souhaitées :
Code:
On Error Resume Next
    [aj7:aj20000].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False
Jusque là, tout allait bien mais mon fichier contenant beaucoup de lignes avec un nombre très important de formules, j'ai voulu que mes cellules n'aient plus de formules mais que les résultats (valeurs).
J'ai donc inséré un code qui quand cela est opportun fait le calcul et affiche uniquement les résultats (valeurs)

Après avoir teminé mon code, pour tester, j'ai voulu afficher uniquement les lignes concernées par un traitement test.

Et là, ça ne marche plus.
Mes petites recherches m'ont permis de comprendre qu'il faut remplacer mon code d'affichage initial :
Code:
On Error Resume Next
    [aj7:aj20000].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False
par un code remplaçant TypeFormulas par :
Code:
On Error Resume Next
    [aj7:aj20000].SpecialCells(xlCellTypevalue, 1).EntireRow.Hidden = False
Mais ça ne fonctionnement pas et je n'arrive pas à trouver le Pkoi.
Auriez-vous la solution ?

Un grand merci à toutes et à tous déjà pour m'avoir lu.
Bonne journée,
Amicalement,
Lionel,
 

Discussions similaires


Haut Bas