problème derniere cellule

Supprime la colonne Z et ensuite fais un 'enregistrer sous' avec le même nom
de fichier mais pas un enregistrer simple.
...Marche pas a tous les coups !

Yves

"Stéphane" <stephane.auboussu@-----nospam----s-g-c.fr> a écrit dans le
message news: #O8eAKMJFHA.2936@TK2MSFTNGP15.phx.gbl...

lorsque dans un tableau il y a une derniere cellule de créer en Z100 par
exemple et que celle ci est ensuite suprimé. et qu'en réalité la derniere
cellule est M50, commenet faire pour que la derniere cellule devienne M50
?

Cordialement

Stéphane

Qu'appelles-tu la "dernière cellule" ?
Si c'est la l'intersection de la dernière ligne renseignée et de la dernière
colonne renseignée :

Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Select

AV

C'est la cellule atteinte par ctrl+fin : xllastcell
Ce qui dimensionne les barres de défillement

Cordialement

Stéphane
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:O3ldT$MJFHA.484@TK2MSFTNGP15.phx.gbl...

Qu'appelles-tu la "dernière cellule" ?
Si c'est la l'intersection de la dernière ligne renseignée et de la
dernière

colonne renseignée :

Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Select

AV

Essaye ça, ça suffit souvent pour rétablir les choses :

Sub zz()
x = ActiveSheet.UsedRange.Address
End Sub

AV

Merci ca marche


Cordialement

Stéphane