Inserer une ligne grace à un bouton

[Fixxup]

Bonjour,

Voici tout d'abord mon classeur excel : mon classeur

Malgré mes recherches sur ce forum et quelques tentatives qui ont échoué, je n'ai pas réussi à créer une macro qui puisse ajouter une ligne dans mon tableau. Cette macro pouvant être activée grâce au bouton qui se situe à coté du tableau.

Pourriez vous m'aider s'il vous plait ?!

Merci d'avance. Si ma demande n'est pas clair, je peux bien entendu la reformuler 😀

 

[Cousinhub]

Re : Inserer une ligne grace à un bouton

Bonsoir,
en supposant que la dernière cellule de la colonne B soit remplie, tu peux essayer ce code :
(s'il ne l'est pas, cela fonctionnera quand même, mais la mise en page (fin du code) sera mal effectuée)

Sub Insere()
Dim Derlig&
Derlig = [B65000].End(xlUp).Row
With Rows(Derlig)
    .Copy
    .Insert Shift:=xlDown
    .SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
With Range(Cells(5, 2), Cells(Derlig + 1, 12))
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End With
End Sub

 

[Fixxup]

Re : Inserer une ligne grace à un bouton

Super ca marche impec !!!

Merci merci merci énormément.

Fixxup