[VBA-E] - Supprimer une ligne sur un critere.

**ekynoxx** · 04/06/2007, 16h51

Bonjour a tous,

je travaille sur une macro qui doit supprimer une ligne sur un certain critere.
Sur le code suivant le critere est 2C07.

Code :

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

1
2
3
4
5
6
For Each MyCell In Range("AB1:AB6000")
        If MyCell = "2C07" Then
            Range("A" & MyCell.Row, "AB" & MyCell.Row).Select
            Selection.Delete Shift:=xlUp
        End If
    Next MyCell

Le probleme vient du fait que si j'ai deux lignes de suite avec 2C07.
En effet, le fait de deleter la premiere ligne 2C07 fait remonter la seconde d'un cran et le test ne s'appliquera pas sur elle et donc elle ne sera pas supprime alors qu'il le faudrait.
Le probleme est que je ne peux pas laisser des lignes blanches donc je ne pense pas pouvoir eviter Shift:=xlUp.

Merci d'avance.

**flo_flo** · 04/06/2007, 17h00

Code :

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

1
2
3
4
5
6
 
For Each MyCell In Range("AB1:AB6000")
        If MyCell <> "2C07" Then Next MyCell
            Else Range("A" & MyCell.Row, "AB" & MyCell.Row).Select
            Selection.Delete Shift:=xlUp
        End If

Peux-tu tester ca ?

**ekynoxx** · 04/06/2007, 17h21

Ca passe pas il manque un Next MyCell quelquepart.
Ca compile pas.

**flo_flo** · 04/06/2007, 17h44

Voilà comment j'aurais fait perso :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim l as Integer  'la ligne sur laquelle on travaille
l = 1
 
While l < Range("AB1").CurrentRegion.Rows.Count
Do
If Range("AB" & l).Value = "2C07" Then
     Rows(l & ":" & l).Select
     Selection.Delete Shift:=xlUp
Else l = l + 1
Loop

Si la cellule contient 2C07, alors on supprime la ligne, tout remonte d'un cran, on bouge pas le numéro de la ligne.
Sinon, on passe à la ligne suivante.

J'espère que ca pourra t'aider... désolé de passer d'un For à un While

Invité · 04/06/2007, 18h00

Bonjour Flo_flo et Ekinoxx,

J'ai aussi cette solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'N° 1ère ligne (modifier éventuellement)
pl = 1
 
'N° dernière ligne (modifier éventuellement)
dl = 6000
 
 
'N° colonne (modifier éventuellement)
c = 1
For i = pl To dl
txt = Cells(i, c)
        If txt = "2C07" Then
        Rows(i).Select
        Selection.Delete Shift:=xlUp
         i = i - 1
         End If
Next i

Amicalement.

**ekynoxx** · 04/06/2007, 18h24

J'ai pris ton code Jacques Jean mais j'ai un message d'erreur qui dit:
Object variable or With block variable not set.
La ligne en jaune est celle avec le txt:

Code :

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

1
2
3
4
5
6
7
8
9
c = 28
    For i = 1 To 6000
    txt = Cells(i, c)
       If txt = "2C07" Then
                Rows(i).Select
                Selection.Delete Shift:=xlUp
                i = i - 1
        End If
        Next i

Invité · 04/06/2007, 19h02

Re Ekinoxx,

C'est bien ici que vous avez le message ?

Code :

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

txt = Cells(i, c)

Si oui dans votre module avez-vous "Option Explicit" et dans ce cas est-ce que la variable "txt" est bien déclarée ?

Essayez aussi sinon de modifier la variable txt en txt1 quelque fois que chez vous txt serait un mot clé ?

Car, comme toujours j'ai fait des essais avant de vous envoyer le code et cela fonctionnait sans problème.

**flo_flo** · 05/06/2007, 10h08

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub enlever_les_2C07()
Dim i As Integer
Dim txt As String
    For i = 1 To 6000
    txt = Cells(i, 28)
       If txt = "2C07" Then
                Rows(i).Select
                Selection.Delete Shift:=xlUp
                i = i - 1
        End If
        Next i
End Sub