Supprimer ligne SAUF si

**John Parker** · 26/08/2013, 12h08

Bonjour,

Décidément je suis un habitué de ce forum ces derniers temps.

J'aurais besoin de vos compétences pour réaliser une macro me permettant de supprimer une ligne (jusque là j'avais réussi), cependant je voudrais que la ligne entière soit supprimer SAUF SI la cellule H contient la valeur "fixe".

Je pense qu'il faut utiliser une boucle FOR mais j'ai vraiment beaucoup de mal avec VBA...

Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
Sub SupprimerLigne()
 
    Selection.EntireRow.Delete
 
End Sub

**EngueEngue** · 26/08/2013, 12h14

Supposons que tu sois en Feuil1, que tu veuilles tester toutes tes lignes y compris la première et que ta dernière ligne remplie ait sa case en A remplie:

Code :

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

1
2
3
4
5
6
7
8
9
Sub SupprimerLigne()
With Sheets("Feuil1")
For i = .range("A" & rows.count).end(xlup).row to 1 step -1
If .cells(i,8)<>"fixe" then
 .cells(i,8).EntireRow.Delete
end if
next i
end with
End Sub

**John Parker** · 26/08/2013, 12h21

Merci pour ta réponse. Je n'ai pas été assez clair. En fait j'aimerai que l'utilisateur clique sur une cellule de la ligne puis lance la macro en cliquant sur un bouton que j'ai créé. Si la cellule H de la ligne sélectionné contient "fixe", la ligne ne se supprime pas.

**EngueEngue** · 26/08/2013, 12h26

Si tu veux un évenement voilà:

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligne = Target.Row
If ActiveSheet.Cells(ligne, 8) <> "fixe" Then
 ActiveSheet.Cells(ligne, 8).EntireRow.Delete
End If
End Sub

Pour ton histoire de bouton voilà:

Code :

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

1
2
3
4
5
6
Sub bouton()
ligne = Selection.Row
If ActiveSheet.Cells(ligne, 8) <> "fixe" Then
 ActiveSheet.Cells(ligne, 8).EntireRow.Delete
End If
End Sub