Discussion :

[muzele]

Bonjour à tous!
J'utilise le code trouvé sur la discussion :http://www.developpez.net/forums/d75...cel-condition/ pour supprimer une ligne entière sous condition à l'aide d'une macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprLigne()
 
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
For i = DerLigne To 1 Step -1
    If Cells(i, 3).Value = "KO" Then
    Cells(i, 3).EntireRow.Delete
    End If
Next i
 
End Sub

Ce code fonctionne à merveille mais je voudrais le modifier en supprimant la ligne mais à partir de la colonne B.
Je sais qu'il faudrait modifier quelque chose sur

Code :

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

Cells(i, 3).EntireRow.Delete

Mais je ne sais le faire. En quelque sorte un "Supprimer et décaler les cellules vers le haut".
I need your help please!
Merci d'avance!

[lps02]

Bonsoir

Essaie le code suivant : le nombre de ligne est calculée à partir de la colonne A mais les "KO" sont données en colonne "B" et on supprime la ligne entiere.
Cordialement
lps02

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprLigne()
 
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
For i = DerLigne To 1 Step -1
    If Cells(i, 2).Value = "KO" Then
    Cells(i, 2).EntireRow.Delete
    End If
Next i
 
End Sub

Re bonsoir

Un complément à mon code précédent si tu veux garder les valeurs en colonnes A et B et supprimer à partir de la colonne C Dans mon exemple, je suppose que les valeurs s'arrêtent à la colonne w.
Attention toutefois dans ce cas là, les cellules remontent à partir de la colonne C mais les valeurs des colonnes A et B restent inchangées. Est ce bien ce que tu recherches?
Cordialement
lps02

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
Sub SupprCellules()
 
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
For i = DerLigne To 1 Step -1
'les "KO" sont dans la colonne C
    If Cells(i, 3).Value = "KO" Then
'suppression des cellules à partir de la colonne C jusque Z et les cellules remontent.
    Range("C" & i & ":Z" & i).Delete Shift:=xlUp
 
    End If
Next i
 
End Sub

[muzele]

Merci lps02,
Désolé pour le retard!. Au fait c'est la deuxième solution qui résout mon problème. Pour moi, il n'y a que la colonne A qui garde ses valeurs, le reste est supprimé.
Merci encore une fois!