Suppression de ligne à partir d'un point
Mika25
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je souhaite supprimer des lignes ne contenant pas un critère, mais je voudrais commencer à partir de la cellule AJ28, j'ai écris ce bout de code, mais ça ne marche pas.
Si j'enlève le 28, la macro fonctionne, mais remonte jusqu'à la 1ère ligne.
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("AJ" & i).Value <> "Soleil" Then
.Rows(i).Delete
End If
Next i
End With
Merci.
Je souhaite supprimer des lignes ne contenant pas un critère, mais je voudrais commencer à partir de la cellule AJ28, j'ai écris ce bout de code, mais ça ne marche pas.
Si j'enlève le 28, la macro fonctionne, mais remonte jusqu'à la 1ère ligne.
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("AJ" & i).Value <> "Soleil" Then
.Rows(i).Delete
End If
Next i
End With
Merci.
A voir également:
- Suppression de ligne à partir d'un point
- Forcer la suppression d'un fichier - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Partage de photos en ligne - Guide
- Formulaire en ligne de meta - Guide
- Point de suite word - Guide
3 réponses
coucou,
Si je comprends bien, au lieu de s'arrêter à la ligne 2 , il va jusqu'à la 1
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
if i<>1 then
If .Range("AJ" & i).Value <> "Soleil" Then
.Rows(i).Delete
End If
end if
Next i
End With
Merci.
Si je comprends bien, au lieu de s'arrêter à la ligne 2 , il va jusqu'à la 1
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
if i<>1 then
If .Range("AJ" & i).Value <> "Soleil" Then
.Rows(i).Delete
End If
end if
Next i
End With
Merci.
J'ai retrouvé mon erreur, sur cette ligne :
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
j'aurais dû mettre To 28 et non 2, et supprimer AJ28 au début pour mettre AJ.
Merci.
For i = .Range("AJ28" & .Rows.Count).End(xlUp).Row To 2 Step -1
j'aurais dû mettre To 28 et non 2, et supprimer AJ28 au début pour mettre AJ.
Merci.
As tu essayé ton code?