Modifications automatiques d'un tableau

Bonjour,

J'aurais besoin d'aide pour :

1) insérer une ligne entre chaque lignes d'un tableau ;

2) déplacer une cellule dans cette nouvelle ligne ;

3) insérer une ligne vierge ;

Le tout automatiquement (cf. modèle du tableau en PJ).

Quelqu'un aurait-il la solution?

Merci d'avance,

Quentin

8modele.xlsx (10.02 Ko)

Bonjour,

Sub Insérer()
    Dim i%
    For i = 7 To 3 Step -1
        Rows(i).Insert
        Rows(i).Insert
        Cells(i, 4) = Cells(i - 1, 6)
        Cells(i - 1, 6).ClearContents
    Next i
    Cells((6 - 1) * 3, 1).Resize(, 7).Borders.Weight = xlThin
End Sub

Personne n'ayant été désigné pour lancer "automatiquement" la macro, ni à quel moment, ce sera donc toi !

Cordialement

Rechercher des sujets similaires à "modifications automatiques tableau"