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

[malabarbe]

Bonsoir Ormonth,

Oui, j'ai bien compris, Mais quel serait le code
a appliquer pour avoir le mème résultat
sans passer par le Msgbox ?

[mercatog]

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

après suppression, tu sauvegarde ton fichier
le Z270 ne sera plus "mémorisé"

[malabarbe]

Bonsoir mercatog,

Non, cela ne fonctionne pas...

[Didier Gonard]

n'importe quoi qui fasse appel à UsedRange de façon explicite :

Code :

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

activesheet.UsedRange.select

Code :

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

ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select

Code :

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

ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)

cordialement,

Didier

[mercatog]

Pourtant, j'ai testé
j'ai mis un tas de données
ctrl fin -> Z270 est sélectionnée (la dernière cellule en bas à droite)
je supprime des données, la dernière cellule en bas à droite est la A97
ctrl fin -> Z270 est encore sélectionnée (qui n'est plus la dernière cellule en bas à droite)
je sauvegarde le fichier
ctrl fin -> A97 est sélectionnée

[malabarbe]

Bonsoir Ormonth,

J'ai testé le premier code :

Code :

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

1
2
3
 
ActiveSheet.UsedRange.Select
Range("A1").Select

Non seulement cela tourne, mais c'est instantanné !

Ouf, un grand merci pour l'acharnement...

Merci aussi a :
- mercatog
- JPierreM

Pour m'avoir aiguillé vers des solutions

Bonne soirée à tous
Et au plaisir de vous retrouver sur le Forum.