INsertion ligne en dessous

[mat58]

Bonjour
J'aimerais savoir si c'est possibe d'inserer une ligne mais en dessous et non pas au dessus comme par défaut avec la fonction "inserer" car en fait j'ai 5 cellues qui sont fusionnées et j'aimeais en rajouter une sixieme mais a la fin.
merci

 

[Softmama]

Re : INsertion ligne en dessous

Bonjour,

une possibilité à l'aide d'un bouton :

ActiveCell.Offset(1, 0).EntireRow.Insert

cf. fichier joint

 

[mat58]

Re : INsertion ligne en dessous

Merci c'est presque ca sauf que moi j'ai des lignes fusionnées.
Voir le fichier joint

 

[Softmama]

Re : INsertion ligne en dessous

Bonsoir,

vois si ceci correspond mieux.

Private Sub CommandButton1_Click()
Dim c As Range, fus As String
Set c = Cells(ActiveCell.Row, 2)
fus = c.Offset(0, -1).MergeArea.Address
Do While c.Offset(0, -1).MergeArea.Address = fus
    Set c = c(2, 1)
Loop
c.Offset(-1, 0).EntireRow.Insert
c.Offset(-2, 0) = c.Offset(-1, 0)
c.Offset(-1, 0) = c.Offset(-2, 0) + 1
End Sub