Discussion :

[Potzo]

Bonjour tout le monde,

J'ai un classeur dans lequel j'ai une feuille (Kosten) dont je souhaite regulierement effacer toutes les donnees.

Pour cela j'ai ecris une petite macro qui me parraissait evidente :

Code :

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

1
2
3
For k = 2 To Kosten.Cells(Rows.Count, 1).End(xlUp).Row
    Cells(k, 1).EntireRow.Delete
Next k

Malheureusement, elle efface quasiment tout sauf une trentaine de ligne.

je suis donc oblige de l'executer plusieurs fois de suite afin de retrouver une feuille completement vierge.

D'ou peut venir ce probleme ?

merci d'avance


PS : j'ai poste ce meme message dans le forum excel, mais je pense que sa place est plus ici. Donc avis aux moderateurs, vous pouvez supprimer mon precedent message, j'ai pas reussi...

[mayekeul]

bonjour,

essaye plutot ceci

Code :

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

cells(x,x).entirerow.clear

[zyhack]

Bonjour

essaye tous simplement

Code :

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

Worksheets("Kosten").Cells.Delete

oups! trop tard mais bon je préfère préciser la feuille, ça évite les gaffes

[Potzo]

Petite precision : je veux quand meme garder la premiere ligne

Je vais tout de meme essayer ce que tu me proposes

[zyhack]

bonjour

dans ce cas

Code :

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

Worksheets("Kosten").Rows("2:" & Rows.Count).Delete