Suppression de ligne à partir d'un point
Mika25
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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
- Point de restauration - 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.
As tu essayé ton code?