Discussion :

[domcoool]

Bonjour,

J'ai un fichier EXCEL dont le poids est très lourd. J'ai développé des macro pour faire de la mise en forme et des copier/collé de données.

J'ai recherché sur ce forum et sur internet une macro pour videnger le presse-papier ca pas de soucis.

Par contre la ou j'ai un petit problème, c'est que j'aimerai supprimer les collones et les lignes qui ne font pas partient du tableau (j'ai vus dans des forum que ca peux avoir un impact sur le poids).

Je veux faire cette manip de manière automatique car le copier coller et la mise en forme peuvent être fait par d'autres utilisateurs.

Donc pour le tableau imaginon qu'en colonnes il vas de A à Z et en lignes de 1 à 3000.

Je voudrais que la macro me supprime les lignes de 3001 à 65536 et les colonnes de AA à IV.

Petit détail le nombre de lignes augmente donc comment fais t'on un deplacement du FOcus après le dernier enregistrement ? A noté par contre que le nb de colonnes est invariable.

Merci d'avance pour vos réponses

[jfontaine]

Bonjour,

A noter que pour la suppression des lignes il faut utiliser une colonne a saisie obligatoire (ici colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'Suppression des lignes
Rows(Range("A:A").End(xlDown).Row + 1 & ":65536").Clear
'Suppression des Colonnes
Columns("M:IV").Clear

[larryj]

Bonjour,

Personnellement, je préfère passer par le numéro de ligne ou de colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Suppression d'une ligne
Rows(i).Clear 'ou Rows(i).Delete dans le cas où il y a de la mise en forme à effacer.
'Suppression de plusieurs lignes
Range(Rows(i),Rows(j)).Clear
 
'Suppression d'une colonne
Columns(i).Clear 'ou Columns(i).Delete dans le cas où il y a de la mise en forme à effacer.
'Suppression de plusieurs lignes
Range(Columns(i),Columns(j)).Clear

Je ne sais pas si cette solution est plus lente ou plus rapide que de spécifier l'adresse de la range ?

De plus, pour diminuer les risques, je renseigne toujours le chemin complet de la range, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("SheetName").Rows(i).Clear

[patricktoulon]

bonjour
en aucun cas "clear" supprime donc le resultat dans le meilleur des cas ce que tu obtiendra c'est des lignes vides

"delete " supprime


au plaisir

[larryj]

Bonjour,

Au temps pour moi, je confond avec la commande "ClearContent".
Merci de la précision, cela m'évitera d'utiliser la commande "Delete" (qui, je crois, est plus longue que la commande "Clear" ?)

Bonne journée

[Pierre Fauconnier]

Salut,

Comme l'a précisé Patrick, CLEAR et DELETE n'ont pas du tout le même effet.

CLEAR efface avec différentes déclinaisons pour n'effacer que certaines propriétés d'une cellule. (ClearContents, ClearFormats, ...)

DELETE supprime et amène donc à un décalage des cellules/lignes/colonnes se trouvant sous/à droite de ce que tu supprimes.