ajouter ligne

[news]

Bonsoir,

je voudrais ajouter 25 lignes après la dernière ligne,

If Range("L100") <> 0 Then
Rows("2:2").Select
Selection.Copy
ActiveCell.SpecialCells(xlLastCell).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

Range("A2").Select

mais cela ne fonctionne pas, qu'à la prochaine ligne est ajouté 25 lignes
au format de ligne ("2:2"),

comment résoudre,
merci d'avance des réponses,

 

[Gorfael]

Re : ajouter ligne

Salut news et le forum

If Range("L100") <> 0 Then
Rows("2:2").Select
Selection.Copy
rows(ActiveCell.SpecialCells(xlLastCell).row & ":" & _
ActiveCell.SpecialCells(xlLastCell).row + 25).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
un truc dans ce goût là
A+

 

[news]

Re : ajouter ligne

Bonjour Gorfael et à tous du forum,

merci pour réponse,
j'ai remis tes expressions,
mais la ligne 125 est tj. écrasé ( j'e l'ai remarqué comme j'ai ajouté un montant dans Range(K125)),
d'après l'expression:
PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

devrait quand même que ajouter des lignes avec format,

dans la feuille que j'utilise est déjà un format de lignes jusqu'à la ligne 125,
dès que dans la ligne 100, Range(L100) <> 0, then
ajoute de lignes à partir de la 126e ligne,
l'expression que j'utilise est:

Application.Goto Reference:="ajoutes_lignes"
Selection.Copy
Range("E8").Select
Sheets("GL").Select
' ActiveCell.SpecialCells(xlLastCell).Select

Rows(ActiveCell.SpecialCells(xlLastCell).Row & ":" & _
ActiveCell.SpecialCells(xlLastCell).Row).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
aurait besoin que l'ajout de lignes commence à la 126e ligne,

merci d'avance de réponses,

bonne journée,

 

[news]

Re : ajouter ligne

Bonjour à tous du forum,
j'ai ajouté l'expression suivante et cela fonctionne:

Dim Ligne As Long
Ligne = ActiveCell.SpecialCells(xlLastCell).Row
Rows(Ligne + 1)

Application.Goto Reference:="ajoutes_lignes"
Selection.Copy

Dim Ligne As Long
Ligne = ActiveCell.SpecialCells(xlLastCell).Row
Rows(Ligne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("A2").Select
bonne journée encore,