Supprimer une ligne toutes les 5 lignes

[nat54]

Bonjour,

Après quelques essais ratés, je m'en remets à vous.

Cf pièce-jointe où j'ai tout expliqué

Merci !

 

[Pierrot93]

Re : Supprimer une ligne toutes les 5 lignes

Bonjour Nat

regarde peut être le code ci-dessous :

Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -6
    Rows(i - 5 & ":" & i - 1).Delete
Next i

bon après midi
@+

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

Bonjour Nat

regarde peut être le code ci-dessous :

Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -6
    Rows(i - 5 & ":" & i - 1).Delete
Next i

bon après midi
@+

extraordinaire
mais je comprends rien au code 😀

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

et j'ai crié victoire trop vite...

ca marchait nickel sur le fichier test

et sur le vrai fichier... non...

 

[Pierrot93]

Re : Supprimer une ligne toutes les 5 lignes

Re

avec quelques commentaires :

'boucle à partir de la dernière cellule renseignée de la colonne A
'jusqu'à la ligne 2(en remontant, à cause des "delete") avec un pas
'négatif de 6 

For i = Range("A65536").End(xlUp).Row To 2 Step -6
    Rows(i - 5 & ":" & i - 1).Delete
Next i

@+

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

et pourquoi ca bug sur le fichier réel ?

 

[Pierrot93]

Re : Supprimer une ligne toutes les 5 lignes

Re

essaye ainsi, mais attention vers la 40ème ligne il y a 6 lignes à supprimer au lieu de 5...

Dim i As Integer
Range("A65536").End(xlUp).EntireRow.Delete
For i = Range("A65536").End(xlUp).Row To 6 Step -6
    Rows(i - 5 & ":" & i - 1).Delete
Next i

@+

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

Merci

Effectivement 6 lignes car changemetn de page dans mon logiciel
car l'extraction est manuelle (c**$$ LOL) car je fais des copier-coller d'infoview
c'est pour obtenir notre liste de requête

mais bon je préfère avoir à supprimer une ligne par page
plutôt que x fois 5 lignes

ou alors faudrait trouver comment dire en vba
garde uniquement les lignes où tu trouves cette chaine de caractère "Desktop"

 

[Pierrot93]

Re : Supprimer une ligne toutes les 5 lignes

Re

pour tester les cellules de la colonne A qui ne comporte pas la chaine "Desktop", attention en l'état, sensible à la casse...

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Not Cells(i, 1).Value Like "*Desktop*" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

@+

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

tout simplement génial !!!

Merci

La casse ne posera pas de pb c'est toujours écrit pareil vu que c'est un export (enfin un copier-coller)

 

[nat54]

Re : Supprimer une ligne toutes les 5 lignes

Super !
Me reste un dossier à traiter
Ca m'a pris une aprèm grâce à ton code au lieu de 4/5 jours sans.. je pense.. (et j'aurai pêté un boulon 😱)

2800 requêtes BO...