INsertion ligne en dessous

mat58 · 30 Juillet 2011

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 · 30 Juillet 2011

Re : INsertion ligne en dessous

Bonjour,

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

Code:

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

cf. fichier joint

mat58 · 30 Juillet 2011

Re : INsertion ligne en dessous

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

Softmama · 30 Juillet 2011

Re : INsertion ligne en dessous

Bonsoir,

vois si ceci correspond mieux.

VB:

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

INsertion ligne en dessous

mat58

Guest

Softmama

XLDnaute Accro

Pièces jointes

mat58

Guest

Pièces jointes

Softmama

XLDnaute Accro

Pièces jointes

Discussions similaires

INsertion ligne en dessous

mat58

Guest

Softmama

XLDnaute Accro

Pièces jointes

mat58

Guest

Pièces jointes

Softmama

XLDnaute Accro

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency