Supprimer automatiquement 9 lignes/10

Résolu
djipi95 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
djipi95 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour
Je souhaite automatiser une tâche sur xls, a priori assez basique mais je n'ai pas de competence en vba :
Il s'agit simplement de supprimer les 9 premières lignes, de conserver la 10eme et ainsi de suite jusqu'à la fin
Donc je conserverai les lignes 1,11,21,31,41....
Une petite idée pour programmer vela ?
Mille mercis par avance

Djipi95
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie avec 
Sub Test()
Dim Ligne As Long, DerLig As Long
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Ligne = 1
    Do While Ligne < DerLig
        Rows(Ligne + 1).Resize(9).Delete
        DerLig = DerLig - 9
        Ligne = Ligne + 1
    Loop
End Sub

A+
1
djipi95 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Impeccable !

Encore merci
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses