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

[Usine à gaz]

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 :

Rows("7:20000").Hidden = True

et qui m'affiche uniquement les lignes souhaitées :

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 :

On Error Resume Next
    [aj7:aj20000].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False

par un code remplaçant TypeFormulas par :

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,

 

[Dranreb]

Bonjour.
Non, ce serait plutôt xlCellTypeConstants

 

[Usine à gaz]

Bonjour Dranreb,

Merci d'être là
OK, je vais vérifier et je vous dit.
Amicalement,
Lionel,

 

[Usine à gaz]

Re Dranreb,

C'était ça, tout fonctionne maintenant.
Encore un grand merci
Amicalement,
Lionel,