Supression ligne suivant critère

  • Initiateur de la discussion Cédric
  • Date de début
C

Cédric

Guest
Bonjour à tous,

J'ai un petit souci avec VBA et Excel
J'ai un tableau dont je voudrais supprimer les lignes automatiquement lorsqu'il y a la mention "VRAI" dans la colonne K.

J'ai tapé le code suivant mais ça ne marche pas

Sub suppr()

i = 1
While Sheets("support BT").Cells(i, 2) <> ""

If Sheets("support BT").Cells(i, 11) = "VRAI" Then
Sheets("support BT").Rows(i).Select
Selection.Delete Shift:=xlUp
End If
i = i + 1
Wend

End Sub

Merci d'avance pour vos réponse
 
K

K@d

Guest
Salut,

essaie d'utiliser le code du fichier joint. Ca devrait marcher sans souci, tu as juste à sélectionner ta plage de cellules et taper la valeur à supprimer.
Si tu as besoin de plus d'infos...

Clément

Note : je pense que ton code ne peut pas marcher car ta feuille change quand tu supprimes une ligne...

"S'il n'y a pas de solution, c'est qu'il n' a pas de problème." (devise Shadock)
 
M

m.lecxe

Guest
Salut,

par principe pour supprimer des lignes, il faut partir de la fin.

fais une boucle du type

for i = ligneFin to 1 step -1
if Cells(i, 11) = "VRAI" then rows(i).delete
next i



j'espère que cela répond à ta question
pour plus d'infos suis le lien suivant
site très bien documenté.

http://jacxl.free.fr/cours_xl/suppr_lignes_vides.html
@+
 

Discussions similaires

Réponses
6
Affichages
202
Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG