Discussion :

[audesara]

Bonjour,

Voici mon problème :
Je désire supprimer les lignes de ma feuille de classeur où sur la colonne B la valeur de la cellule est égale à 0, et cela à partir seulement de la ligne 7.

J'ai déjà trouvé sur le forum le code suivant qui permet de supprimer les lignes non désirées, mais cela le fait sur la totalité de la feuille, or j'aimerai rajouter la contrainte de ne commencer les suppressions qu'à partir de la ligne 7 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EffaceLg0()
 
Dim R As Long
Application.ScreenUpdating = False
 
For R = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 1 Step -1
    If Range("B" & R) = 0 Then Rows(R).Delete
Next R
 
Application.ScreenUpdating = True
End Sub

Une âme charitable pourrait-elle m'aider pour modifier ce code afin qu'il réponde à mes attentes ?

Je précise que je n'y connais quasiment rien en VBA...

Un grand merci !

[Philippe Tulliez]

Bonjour,
En remplacant cette ligne

Code :

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

For R = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 1 Step -1

Par

Code :

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

For R = 7 To 1 Step -1

Même si tu écris

Je précise que je n'y connais quasiment rien en VBA...

Il me semble intéressant de comprendre comment fonctionne une boucle.

[audesara]

Merci pour cette réponse si rapide,

Cependant cela ne fonctionne pas...

[Philippe Tulliez]

Bonjour,
Je ne comprends pas, tu nous montres un code qui supprime les lignes de la dernière ligne remplie vers la première en supprimant toutes les lignes dont la cellule B de cette dite ligne contient 0.
Tu demandes ensuite de modifier ce code pour que la suppression commence à la ligne 7. C'est ce que j'ai modifié.
Peut-être aurais-je dû comprendre, s'arrête de supprimer à la ligne 7, ce qui est évidemment différent.
Si c'est cela que tu souhaites, et j'espère cette fois avoir compris, voici le code.
Modification à faire sur cette même ligne.

Code :

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

For R = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 8 Step -1

[audesara]

Merci beaucoup, c'est en effet cette dernière solution qui vient résoudre mon problème !