Discussion :

[ekynoxx]

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]

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]

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

[flo_flo]

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é]

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]

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