Insertion de lignes par un Bouton

Bonjour à tous,

Je suis actuellement bloqué sur la création de mon classeur Excel, et je souhaiterais avoir votre avis.

Je souhaiterais pouvoir créer l'aide d'un bouton autant de ligne, que la valeur (Lig dans le fichier joint) d'une cellule donnée.

Autre subtilité, il faudrait que les lignes s'incrémentent de 1 jusqu'à Lig dans la colonne N° Casier.

Je vous joint un fichier avec en onglet 1, mon tableau, et en onglet 2 le résultat voulu.

En espérant avoir été assez clair.

Merci.

Bonjour pliskhy le forum

ton fichier en retour, j'ai pas fait la couleur des casiers que tu aies un peu à faire quand même

a+

Papou

Bonjour,

Bonjour Paritec,

Une seconde proposition avec tableau (listobject).

Cdlt.

Option Explicit

Public Sub DEMO()
' Declaration des variables
Dim lo As ListObject
Dim lCol As Long, lRow As Long
Dim nb As Long, I As Long
Dim rng As Range

    ' Optimisation procédure
    Application.ScreenUpdating = False
    ' Initialisation variable tableau
    Set lo = Me.ListObjects(1)
    ' Nombre de colonnes tableau
    lCol = lo.ListColumns.Count
    ' Nombre de lignes tableau
    lRow = lo.ListRows.Count
    ' Nombre de lignes à insérer
    nb = Me.Cells(11).Value + 1
    ' Redimensionnement tableau en fonction de nb
    Set rng = lo.Range.Resize(lRow + nb, lCol)
    lo.Resize rng
    ' Copie de la 1er. ligne tableau dans lignes inserees
    For I = 2 To lo.DataBodyRange.Rows.Count
        lo.DataBodyRange.Rows("1:1").Copy
        lo.DataBodyRange.Rows(I & ":" & I).PasteSpecial xlPasteAll
        Application.CutCopyMode = False
    Next I

    ' RAZ variables
    Set rng = Nothing
    Set lo = Nothing

End Sub

Merci à vous deux ca fonctionne impec