Sujet Précédent Sujet Suivant

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:

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 523
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+
1
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
0