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 :
et qui m'affiche uniquement les lignes souhaitées :
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 :
par un code remplaçant TypeFormulas par :
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,
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
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
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,