SPECIALCELLS

[marie]

Bonjour à tous

j'ai besoin d'aide

Voilà j'ai un fichier avec un onglet macro où je met toutes les macros que j'ai besoin et un onglet base. Sur cet onglet base, j'ai une formule :'=REPLACE(RC[-1],1,1,''T'')' à mettre en colonne AE. cette formule remplace à la 1è lettre de la colonne Ad par un T.
Le problème est que cette formule doit être appliqué sur 1000 ou 2500 lignes.

Ce que je fais pour l'instant c'est que j'applique cette formule sur 2500 lignes et supprime les lignes vides, seulement c'est un peu long

j'ai vu dans l'aide que la formule specialcell permettrait de sélectionner la dernière ligne, seulement j'arrive pas à la faire marcher; Donc si qqn peut m'aider.

SVP

 

[Titi_Malembourg]

Coucou,
Regarde ca, ca devrait marcher :

Range('A1').activate
rows(Activecell.Specialcell(xlcelltypeLastcell).row&':'&Activecell.Specialcell(xlcelltypeLastcell).row).select

a+ et bonne journée !