Ajout de lignes

[Grégf]

Bonjour,

je cherche à rajouter une ligne via une macro toujours en fin tableau (donc dans le fichier joint en B19) et que ça me garde la formule de la colonne H (j'aurais des menus déroulants dans certaines colonnes). J'ai essayé en enregistrement de macro mais ça a ses limites puisque ça me rajoute toujours les lignes en B19 et je n'y connais rien.
Merci de vos retour, cordialement.

 

[job75]

Bonjour Grégf,

Affectez cette macro au bouton :

Sub AjouterLigne()
If IsError(Application.Caller) Then Exit Sub 'sécurité
With Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 3)
    .Insert
    .Copy .Rows(0)
    On Error Resume Next 'si aucune SpecialCell
    .SpecialCells(xlCellTypeConstants) = ""
End With
End Sub

Fichier .xlsm joint.

A+

 

[Grégf]

Merci Job 75, ça fonctionne exactement comme je le voulais.
Bonne fête de fin d'année, cordialement, Grég.