Insertion des lignes suivant valeur VBA ou macro

Bonjour,

je souhaite insérer des lignes suivant le tableau en pièce jointe . le programme doit reconnaitre automatiquement les lignes remplies par les classes et insérer le nombre de lignes correspondant. voir pièce jointe.

voici ce que j'ai fait pour un début.

Sub insertion_DN()

Dim n As Integer, nb_d_class As Integer, v As Integer, i As Integer

v = Range("B3")

n = 1

nb_d_class = 4

For i = 1 To v

Range("A3").Select

Selection.Insert Shift:=xlDown

Next i

End Sub

merci d'avance pour votre aide .

Bonjour.

Sub Demo()
    Application.ScreenUpdating = False
                            R& = 3
    With Feuil1
        With .[A2].CurrentRegion:  VA = .Value:  .Clear:  End With
        .Columns(2).ColumnWidth = .Columns(1).ColumnWidth

        For L& = 2 To UBound(VA)
            .Cells(R, 1).Value = VA(L, 1)

            With .Cells(R + 1, 1).Resize(VA(L, 2), 3)
                With .Borders:  .LineStyle = xlContinuous:  .Weight = xlThin:  End With
                .Interior.ColorIndex = 34
            End With

            R = R + VA(L, 2) + 1
        Next
    End With
End Sub

Bonjour,

Un autre exemple..

Cdlt.

Public Sub CreerTableaux()
Dim lastRow As Long, i As Long
Dim lrow As Long, r As Long, c As Long
    Application.ScreenUpdating = False
    lrow = 3: c = 3
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To lastRow
        r = Cells(i, 2)
        Cells(lrow, 6) = Cells(i, 1)
        With Cells(lrow + 1, 6).Resize(r, c)
            .Borders.Weight = xlThin
            .Interior.Color = RGB(189, 215, 238)
        End With
        lrow = lrow + 1 + r
    Next
End Sub

Bonjour,

Merci beaucoup Marc et Jean-Erick , vos programmes me sauvent vraiment !