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
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
A voir également:
- Suppression de ligne à partir d'un point
- Forcer la suppression d'un fichier - Guide
- Aller à la ligne excel - Guide
- Partage de photos en ligne - Guide
- Point de suite word - Guide
- Site de vente en ligne particulier - Guide
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
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.
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.
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
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 :
On boucle de 28 à 2
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
30 juil. 2013 à 15:34
As tu essayé ton code?