Ascenseur amnésique

Bonjour René

essaie d'enregistrer le fichier (et énetuellement de l'ouvrir de nouveau)

--
Cordialement

@+
Xav
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de
news:4A075624-F592-4A67-A78D-72ED883F4012@microsoft.com...

Bonjour à tous,
Depuis que je fréquente le forum, certains me prennent pour un expert :-)
Alors, on me pose toutes sortes de questions auxquelles je peux répondre
(merci le forum).
La suivante cependant me laisse sans voix :
Un tableau de 1000 lignes.
Le haut de l'ascenseur (barre de défilement verticale) correspond au haut
du

tableau et le bas au bas (baobab! :-)).
Quand j'efface ou détruis 500 lignes, l'ascenseur ne s'adapte pas à la
nouvelle situation.
Merci de perpétuer ma (fausse) réputation...et je rendrai à César ce qui
appartient à César (encore une histoire de forum!).
--
René Delcourt

Quand j'efface ou détruis 500 lignes, l'ascenseur ne s'adapte pas à la
nouvelle situation.
il est sûr que les habitants des étages supérieurs à ceux détruits

apprécient que les câbles du dit ascenseur restent à la bonne longueur
...jusqu'à la prochaine réorganisation de l'immeuble , laquelle demandera
une fermeture/enregistrement et une inauguration/réouverture...

amitiés architecturales

--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WORKS

NB - adresse : enlever NOSPAM
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
4A075624-F592-4A67-A78D-72ED883F4012@microsoft.com...

Bonjour à tous,
Depuis que je fréquente le forum, certains me prennent pour un expert :-)
Alors, on me pose toutes sortes de questions auxquelles je peux répondre
(merci le forum).
La suivante cependant me laisse sans voix :
Un tableau de 1000 lignes.
Le haut de l'ascenseur (barre de défilement verticale) correspond au haut
du
tableau et le bas au bas (baobab! :-)).
Quand j'efface ou détruis 500 lignes, l'ascenseur ne s'adapte pas à la
nouvelle situation.
Merci de perpétuer ma (fausse) réputation...et je rendrai à César ce qui
appartient à César (encore une histoire de forum!).
--
René Delcourt

Bonjour René

essaie d'enregistrer le fichier (et énetuellement de l'ouvrir de nouveau)

Oui mais prière de donner des réponses beaucoup plus complexe à M.

Delcourt qui se trouve être un expert.

Bonjour,

J'ai lu quelque part une méthode pour "reseter" l'objet usedrange. je
pense que c'est ce qu'il faut faire pour ton problème. Je vais essayer
de retrouver cette astuce.

Stéphane

J'ai retrouvé:

Sub zaza()
ActiveSheet.UsedRange

End Sub

Bonjour Sylfanie,

'---------------------------
Sub ReseterUsedRange()

Activesheet.usedrange

End sub
'---------------------------


Salutations!


"Sylfanie" <sylfanie@tele2.fr> a écrit dans le message de news: 1124805465.878025.81190@z14g2000cwz.googlegroups.com...


Bonjour,

J'ai lu quelque part une méthode pour "reseter" l'objet usedrange. je
pense que c'est ce qu'il faut faire pour ton problème. Je vais essayer
de retrouver cette astuce.

Stéphane

Bonsour®
René Delcourt wrote:

Depuis que je fréquente le forum, certains me prennent pour un expert
;o)))

Ils ne connaissent pas : http://www.excelabo.net
http://dj.joss.free.fr/faq.htm

Merci de perpétuer ma (fausse) réputation...
dans ce cas voir les explications là :

http://www.excelabo.net/xl/plantages.php#fichierobèse

et je rendrai à César ce qui appartient à César (encore une histoire de
forum!).
;o))) Celui qui touche au hash est c.. comme un manche !!

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

J'ai trouvé ça et ça remet l'ascenseur :

Sub Reset_lastcell()
'David McRitchie, http://www.mvps.org/dmcritchie/excel/lastcell.htm
Dim x As Long 'Attempt to fix the lastcell on the current worksheet
x = ActiveSheet.UsedRange.Rows.Count 'see J-Walkenbach tip 73
End Sub

Source : http://www.mvps.org/dmcritchie/excel/lastcell.htm

Bon courage.

Philippe

J'ai retrouvé:

Sub zaza()
ActiveSheet.UsedRange

End Sub

Bonsour® "Amnésique Michel" ;o)))

je dirai même plus :
Sub ménage()
'--- par Denis Michon
Dim sh As WorkSheet
On Error Resume Next
For Each sh In Worksheets

sh.Range(sh.Cells.SpecialCells( _
xlCellTypeLastCell).EntireRow, _
sh.Cells.Find("*", , xlFormulas, _
, xlByRows, xlPrevious).EntireRow) _
.Offset(1, 0).Delete

sh.Range(sh.Cells.SpecialCells( _
xlCellTypeLastCell).EntireColumn, _
sh.Cells.Find("*", , xlFormulas, _
, xlByColumns, xlPrevious). _
EntireColumn).Offset(0, 1).Delete
Next
ActiveWorkbook.Save
Set Sh = Nothing
End Sub

@+

Bonjour Modeste,

Je sais, je sais... mais faut-il toujours sortir l'artillerie lourde à chaque fois ?

ceci : Activesheet.usedrange fonctionne bien sauf si la feuille est barbouillé !!!

;-))


Salutations!


"Modeste" <nomail@nomail.net> a écrit dans le message de news: eqB2G9%23pFHA.904@TK2MSFTNGP10.phx.gbl...
Bonsour® "Amnésique Michel" ;o)))

je dirai même plus :
Sub ménage()
'--- par Denis Michon
Dim sh As WorkSheet
On Error Resume Next
For Each sh In Worksheets

sh.Range(sh.Cells.SpecialCells( _
xlCellTypeLastCell).EntireRow, _
sh.Cells.Find("*", , xlFormulas, _
, xlByRows, xlPrevious).EntireRow) _
.Offset(1, 0).Delete

sh.Range(sh.Cells.SpecialCells( _
xlCellTypeLastCell).EntireColumn, _
sh.Cells.Find("*", , xlFormulas, _
, xlByColumns, xlPrevious). _
EntireColumn).Offset(0, 1).Delete
Next
ActiveWorkbook.Save
Set Sh = Nothing
End Sub

@+