Supprimer une ligne toutes les 5 lignes

Pierrot93

XLDnaute Barbatruc

• 17 Août 2009

• #2

Re : Supprimer une ligne toutes les 5 lignes

Bonjour Nat

regarde peut être le code ci-dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 17 Août 2009

• #3

Re : Supprimer une ligne toutes les 5 lignes

Pierrot93 à dit:

Bonjour Nat

regarde peut être le code ci-dessous :

Code:

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
@+

Cliquez pour agrandir...

extraordinaire
mais je comprends rien au code 😀

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 17 Août 2009

• #4

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...

 

Pièces jointes

• Demande_VBA.xls

  21.5 KB · Affichages: 140
• Demande_VBA.xls

  21.5 KB · Affichages: 139
• Demande_VBA.xls

  21.5 KB · Affichages: 147

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2009

• #5

Re : Supprimer une ligne toutes les 5 lignes

Re

avec quelques commentaires :

Code:

'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

@+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 17 Août 2009

• #6

Re : Supprimer une ligne toutes les 5 lignes

et pourquoi ca bug sur le fichier réel ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2009

• #7

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...

Code:

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

@+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 17 Août 2009

• #8

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"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2009

• #9

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...

Code:

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

@+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 18 Août 2009

• #10

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)

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 18 Août 2009

• #11

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...

 

Vote positif 0 Vote négatif