Supprimer automatiquement 9 lignes/10

Résolu/Fermé

djipi95 Messages postés 8 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 7 mars 2016 - 18 nov. 2015 à 15:44
djipi95 Messages postés 8 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 7 mars 2016 - 18 nov. 2015 à 16:13

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:

Supprimer automatiquement 9 lignes/10
Supprimer une page word - Guide
Clé windows 10 gratuit - Guide
Supprimer compte instagram - Guide
Supprimer mot de passe windows 10 - Guide
Windows 10 gratuit - Accueil - Mise à jour

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
18 nov. 2015 à 16:05

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+

djipi95 Messages postés 8 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 7 mars 2016
18 nov. 2015 à 16:13

Impeccable !

Encore merci

Discussions similaires

Voxbone ? qui est-ce ?