Procédure trop grande

Bonjour.

J’ai créé une macro qui me permet de supprimer des lignes avec un écart régulier. Le problème est la quantité de lignes à analyser. (95000)

Lorsque je l’exécute le message suivant apparait : ‘’Erreur de compilation : Procédure trop grande.’’

L’aide de Microsoft ne m’est d’aucune utilité. J’ai lu aussi qu’il faut la séparer en plusieurs morceaux mais comment faire.

1- Comment faire pour la couper en plusieurs segments?

2- Y-a-t-il une autre façon d’écrire ''la sélection et la suppression des lignes'' que je ne veux pas.

Voici la progression : (+12 entre 49 et 61 et +36 entre 61 et 97)

Rows("1:13").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlUp

Rows("49:61").Select

Selection.Delete Shift:=xlUp

Rows("97:109").Select

Selection.Delete Shift:=xlUp

Merci pour votre aide.

bonjour

sans VBA, avec une colonne de pointage et un TCD

joins le fichier de données et le critère d'effacement

la limite est le poids pour joindre (le forum limite), mais un TCD de 100 000 lignes est faisable !

Bonjour jmd; j'ai oublié de dire que je suis novice.

C'est quoi un TCD?

Je ne peux pas joindre le fichier de données. (Confidentiel)

Le fichier de la macro doit suffire, puisqu'il s'agit de sélectionner et supprimer un groupe de lignes avec une progression constante.

Merlin

re

une macro ne "suffit" pas

une macro crée un problème en général voir toutes les questions sur ce forum. Alors qu'Excel n'a pas besoin de VBA !

un TCD est la fonction n°1 dans le menu n°2 d'Excel standard. C'est bon signe

VBA n'est pas en standard.

il faut apprendre les TCD avant d'apprendre 1+1

joins ton fichier avec des valeurs et des titres modifiés.

bonjour

il faut inverser l'ordre des delete

Rows("97:109").Delete Shift:=xlUp
Rows("49:61").Delete Shift:=xlUp
Rows("1:13").Delete Shift:=xlUp

A+

Maurice

Rechercher des sujets similaires à "procedure trop grande"