selection globale SAUF une plage

[julien]

bonjour,

je voudrais pouvoir sélectionner la feuille SAUF les lignes 1 à 10, afin d'effectuer un "nettoyage" de la feuille. existe-t-il une intruction pour?
bien evidement je ne peux pas utiliser une selection de la ligne 11 à 65000 et des poussières car cela entraîne un problème par la suite avec l'instruction usedrange.rows.count!!!

merci

 

[STéphane]

With ActiveSheet.UsedRange
.Rows("10:" & .SpecialCells(xlCellTypeLastCell).Row).Select
End With


est-ce que cela te va ??

attention xlcelltypelastcell donnera la dernière cellule de usedrange
pour obtenir réellement la dernière cellule non vide, utiliser une instruction comme suit
Cells.Find("*", , xlValues, xlWhole, , xlPrevious, False).Select

d'autres infos notamment sur <http://dj.joss.free.fr/faq.htm>

bye
STéphane

 

[julien]

le problème est que j'ai des lignes vides dans mon tableau et que je voudrais pouvoir effacer toute la feuille en dessous de la ligne 10 car je ne sais pas jusque quelle ligne l'utilisateur travaillera!

a propos de la fonction UsedRange, que feit-elle EXACTEMENT? c'est la ligne la + basse sur laquelle ont a travaillé??

merci

 

[STéphane]

With ActiveSheet.UsedRange
.Rows("10:" & .SpecialCells(xlCellTypeLastCell).Row).Select
End With

selection.entirerow.delete 'ou selection.entirerow.clear
activesheet.usedrange

comme tu l'as dit, usedrange est la zone sur laquelle tu as travaillé.

 

[STéphane]

sub test_effacement_lignes_vierges_de_usedrange
Application.ScreenUpdating = False
Dim Sauve
Dim Plage As Range, AntiPlage As Range, Used As Range
Set Used = ActiveSheet.UsedRange
Set Plage = Intersect(Used, Rows("1:10"))
Sauve = Used.FormulaLocal
Plage = 1
Set AntiPlage = Used.SpecialCells(xlCellTypeBlanks)
Used.FormulaLocal = Sauve
AntiPlage.Select
Selection.EntireRow.Delete
end sub