Suppression de ligne à partir d'un point

Fermé
Mika25 - 30 juil. 2013 à 14:47
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 30 juil. 2013 à 15:34
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.

A voir également:

3 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
30 juil. 2013 à 15:12
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.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
30 juil. 2013 à 15:34
Salut Mélanie,
As tu essayé ton code?
0
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.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
30 juil. 2013 à 15:34
Bonjour,
N'ayant pas bien compris la demande, je propose deux choix :

On boucle de fin colonne AJ jusque 28 :
For i = .Range("AJ" & .Rows.Count).End(xlUp).Row To 28 Step - 1


On boucle de 28 à 2
For i = 28 To 2 Step - 1 

0