Insertion de lignes

2 réponses

Mario Turgeon

14/04/2004 à 17:02

Bonjour!

J'aimerais avoir une macro qui ins=E8re une ligne en dessous=20
de celle s=E9lectionner avec le format et les formules de=20
celles en dessus.

Merci

2 réponses

ru-th

14/04/2004 à 18:07

Salut

une possibilité

Sub Macro1()
Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1)
Application.CutCopyMode = False
Rows(ActiveCell.Row + 1).SpecialCells(xlCellTypeConstants,
23).ClearContents
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Mario Turgeon" a écrit dans le
message de news:1cbd701c42231$9172ac90$
Bonjour!

J'aimerais avoir une macro qui insère une ligne en dessous
de celle sélectionner avec le format et les formules de
celles en dessus.

Merci

ru-th

14/04/2004 à 18:18

léger correctif
Sub Macro1()
on error resume next 'plus prudent
Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1)
Application.CutCopyMode = False
Rows(ActiveCell.Row + 1). _
SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:

Salut

une possibilité

Sub Macro1()
Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1)
Application.CutCopyMode = False
Rows(ActiveCell.Row + 1).SpecialCells(xlCellTypeConstants,
23).ClearContents
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Mario Turgeon" a écrit dans le
message de news:1cbd701c42231$9172ac90$
Bonjour!

J'aimerais avoir une macro qui insère une ligne en dessous
de celle sélectionner avec le format et les formules de
celles en dessus.

Merci

Insertion de lignes

2 réponses

Veuillez sélectionner un problème