Discussion :

[info009]

Bonjour,

Je voudrai avec VBA supprimer toutes les lignes dont les cellule de la colonne C sont vides.
Je voudrai aussi supprimé de la colonne D toutes les lignes de la cellule ne contiennet pas "AAA" et "BBB"

J'ai donc essayé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
k =ActiveSheet.range("A" & rows.count).End(xlUp).Row
 
for n = k to 2 step -1
if range("C" & n).Value="" then 
Rows(n).Delete
End If
Next  n 
 
for m=k ro 2 step -1
if Range ("D" & m).value <> "AAA" and Range ("D" & m).value <> "BBB" Then
Rows(m).Delete
End If
Next  m

Mais cela ne mache pas, et il n'y a aucune erreur dans le code. La valeur que k est bonne.

Merci.

[Philippe Tulliez]

Bonjour,

Mais cela ne mache pas, et il n'y a aucune erreur dans le code. La valeur que k est bonne.

C'est curieux ce que tu écris, parce-que d'après ce que tu édites comme code, c'est la variable J qui contient le n° de la dernière ligne (d'après la ligne 2 de ce que tu publies).

[info009]

Oui Désolé, C'était juste une erreur de frappe ( que j'ai corrigé).

Mais sur le code Excel, elle n'y est pas.

[Philippe Tulliez]

Bonjour,

Oui Désolé, C'était juste une erreur de frappe ( que j'ai corrigé).
Mais sur le code Excel, elle n'y est pas.

Le Copier/Coller fonctionne aussi de ton code VBA vers le forum Developpez.
Si tu souhaites une réponse correcte il est préférable de publier un code qui correspond à la réalité sinon on perd son temps.

Je constate dans ton code que tu as deux boucles utilisant la variable k or après avoir supprimé des lignes, la valeur de k ne doit plus correspondre à la réalité.
Ce n'est sûrement pas la cause de ton problème mais il vaudrait mieux recalculer sa valeur.

[Philippe Tulliez]

Bonjour,
Ce code fonctionne à condition que la colonne A soit remplie et qu'il n'y ait pas de colonnes vides dans la plage.

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
Sub RowDelete()
 Dim rng As Range, r As Long
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
 ' Suppresion des lignes dont les cellules de la colonne C sont vides
 With rng
 .Offset(, 2).Resize(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 End With
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
 With rng
  For r = .Rows.Count To 2 Step -1
   If Trim(LCase(.Cells(r, 4))) <> "aaa" And Trim(LCase(.Cells(r, 4))) <> "bbb" Then
   .Cells(r, 4).EntireRow.Delete
   End If
  Next
 End With
End Sub

Dans l'exemple, on supprime les espaces avant et après de la cellule D & r et on ne respecte pas la casse.

D'autres tests sont possibles

Code :

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

If .Cells(r, 4) <> "aaa" And .Cells(r, 4) <> "bbb" Then .Rows(r).Delete

ou

Code :

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

If LCase(.Cells(r, 4)) <> "aaa" And LCase(.Cells(r, 4)) <> "bbb" Then .Rows(r).Delete