suppression de ligne

[POWO]

Bonjour à tous,

Aujourd'hui je bloque sur un truc que j'ai déjà fait 100 fois et qui soudainement ne marche plus....

voilà mon code

worksheets("ORDER").select
selection.End(xlDown).select
selection.offset(1,0).EntireRow.select
selection.entireRow.delete

La dernière ligne qui fait une suppression de ligne ne marche pas... est-ce que par hasard quelqu'un pourrais m'expliquer pourquoi??

Merci d'avance pour votre aide...

Cordialement

Powo

 

[POWO]

Re : suppression de ligne

Bon juste pour complément, VBA m'affiche une erreur de type "1004"....

 

[job75]

Re : suppression de ligne

Bonjour POWO,

Vous savez, en VBA il est généralement inutile de sélectionner, les Select sont à proscrire.

Mais bon, si dans la feuille ORDER la sélection est la dernière cellule remplie de la colonne, la ligne de Selection.End(xlDown) sera la dernière ligne de la feuille (65536 sur Excel 2003).

Et ensuite il y aura bug sur Selection.Offset(1, 0) puisqu'on sort de la feuille...

A+

 

[POWO]

Re : suppression de ligne

Merci pour ta réponse. En fait mon erreur est bien plus simple que ça... je viens de me rendre compte que je n'avais pas enlever la protection de ma feuille. Donc ce code marche finalement parfaitement, j'ai juste besoin d'un café pour me réveiller...

Désolé pour le dérangement...

A+ POWO

 

[job75]

Re : suppression de ligne

Re,

Autre hypothèse : si la feuille est protégée, la ligne avec Delete ne peut pas être exécutée.

Edit : c'est donc bien ça (je n'avais pas rafraîchi).

A+