XTRL+SHIFT+FLECHE BAS

[Philippe]

Bonjour,

J'aimerais traduire en Macro La conjonction des trois touches pour une sélection continue :

Columns("O:IV").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(rowOffset:=1).Activate
ActiveCell.EntireRow.Select

Selection.Delete Shift:=xlUp

Merci pous les réponses

 

[Zon]

Salut ,

Philippe pour le Ctrl shift bas, en VBA on peut l'écrire:

range([A1],[A1].end(xldown)).select ou encore range([A1],[A65536].end(xlup)).select

pour faire ce que tu demandes

Columns("O:IV").Delete
[A65536].end(xlup)(2).EntireRow.Delete

à adapter le A65536 par C65536 le cas échéant.

A+++

 

[Philippe]

Re: CTRL+SHIFT+FLECHE BAS

Je complète ma question par ceci, en fait les colonnes à détruire sont toujours positionnées à O mais par contre les lignes sont variables et c'est pour cela que je me positionne par Atteindre, Dernière Cellule sous VBA + 1 ligne et c'est à partir de cette dernière que je désire supprimer toutes les lignes jusqu'à la fin.
Pourquoi ces suppressions, en fait je m'aperçois que des lignes vides qui ont tournées avec des MACROS qui les ont remplies et vidées, elles restent malgé tout dans le poids du fichier (avant 13MO et après 2MO) à la sortie au moment de l'enregistrement.

Columns("O:IV").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(rowOffset:=1).Activate
ActiveCell.EntireRow.Select

Merci pour les réponses