Discussion :

[malabarbe]

Bosoir à tous,

Je m'explique :
- Je copie une feuille dans une autre
- Dans la nouvelle feuille, j'efface des lignes et des colonnes

La dernière cellule remplie est A:97
Mais si je fais un control + fin, la cellule Z:270 est sélectionnée.

Comment faire pour épurer la feuille pour
que control + fin pointe sur A:97

J'avais trouvé un code, mais je ne le retrouve plus !

[Didier Gonard]

Bonsoir,

Code :

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

MsgBox ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address

voir ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf PAGE 32

cordialement,

Didier

[JPierreM]

Bonsoir,

Bonsoir,

Code :

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

1
2
3
4
5
Sub Réinit()
    Range(Cells.SpecialCells(xlCellTypeLastCell).EntireRow, Cells.Find("*", , , , xlByRows, xlPrevious).EntireRow).Offset(1, 0).Delete
    Range(Cells.SpecialCells(xlCellTypeLastCell).EntireColumn, Cells.Find("*", , , , xlByColumns, xlPrevious).EntireColumn).Offset(0, 1).Delete
    ActiveWorkbook.Save
End Sub

De mémoire il me semble que UsedRange n'est pas suffisant

[malabarbe]

Bonsoir Ormonth,
Oui, cela affiche bien le N° de la dernière cellule remplie

Bonsoir JPierreM,
Ok, cela fonctionne
Mais, je trouve le traitement un très long

Pourais-t'on se servir du code d'Ormonth
pour démarrer l'épuration ?

[Didier Gonard]

De mémoire il me semble que UsedRange n'est pas suffisant

J'ai testé personnellement et c'est nickel, comme tout ce que comporte le tuto de Bidou d'ailleurs

Bonsoir Ormonth,
Oui, cela affiche bien le N° de la dernière cellule remplie

l'important est que si tu fais un CTRL + Fin à suivre tu arrives bien sur la dernière remplie désormais

cordialement,

Didier

[malabarbe]

Bonsoir Ormonth,

Autant pour moi, cela fonctionne.

Peut-on appliquer le code sans passer par le Msgbox ?

[Didier Gonard]

Le Msgbox n'a rien à voir dans l'affaire, l'important est de valider l'usage de la propriété UsedRange pour renvoyer l'objet Range qu'on veut obtenir et qui représente la plage "réelle" voulue.

cordialement,

Didier