Suppression de lignes en VBA

Résolu

Tydher Messages postés 123 Date d'inscription Statut Membre Dernière intervention -
Tydher Messages postés 123 Date d'inscription Statut Membre Dernière intervention - 20 avril 2011 à 09:05

Bonjour à tous

Je souhaiterai supprimé des lignes qui contiennent une chaine de valeur spécifique :

Dim i As Integer
i = 3

While Cells(i, 1) <> "FIN"
    Cells(i, 1).Select
    If Cells(i, 1) = "*x*" Then
        Rows("i:i").Select
        Selection.Delete Shift:=xlUp
    End If
    i = i + 1
Wend

Cependant, l'algo me parcours seulement les cellules et me supprime jamais les lignes.
J'ai essayé avec

Rows(i),
Rows("i:i"), 
Range 
Cells

et aussi une combinaison de Range(Cells(i,1) ....
mais sans succès.

Votre aide sera la bienvenue

A voir également:

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

bonjour
essaies plutot comme ça,
quand on supprime des lignes, il faut commencer par le bas

Dim i As Integer  
i = 10  
While Cells(i, 1) <> "FIN"  
    If Cells(i, 1) = "*x*" Then  
      Cells(i, 1).EntireRow.Delete  
    End If  
    i = i - 1  
Wend

bonne suite

Réponse 2 / 2

Tydher Messages postés 123 Date d'inscription Statut Membre Dernière intervention 6

Merci ça marche niquel.

J'ai d'abord récuperer la case la plus basse

i = 1
Cells(i, 1).Select
While Cells(i, 1) <> "FIN"
    i = i + 1
Wend

Puis effectuer la boucle comme décrit au dessus

While i <> 1
    If Cells(i, 1) = "x" Then
      Cells(i, 1).EntireRow.Delete
    End If
    i = i - 1
Wend

Merci beaucoup

Discussions similaires

Afficher toutes les lignes masquées excel

On me voit connecté sur facebook alors que je n'y suis pas

Votre réponse

Discussions similaires