Suppression de ligne à partir d'un point
Mika25
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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
- Point de suite word - Guide
- Aller à la ligne excel - 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?