Supprimer automatiquement 9 lignes/10 Résolu

Question

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

Gyrus · Answer

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    LoopEnd Sub
A+

Supprimer automatiquement 9 lignes/10

1 réponse

Discussions similaires

Newsletters