insererdessusavecformule

bonjour crocky
essaie cela (je crois bien que jacky en est l'auteur)

Sub NouvelleLigneAuDessus()
' Insère une ligne au-dessus de la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.EntireRow.insert
ActiveCell.Range("A2").Select
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig - 1, 1), Cells(ZtNumLig - 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig - 1, i).HasFormula Then
Cells(ZtNumLig - 1, i).Clear 'Contents(pour que s'annulent aussi
les commentaires)
End If
Next i
Cells(ActiveCell.Row - 1, 1).Select
End Sub


"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de
news: FE7C29EE-03AE-4A32-83AE-677F3F8822CB@microsoft.com...

bonjour le forum
1)
Sub InsererSousAvecFormules()

Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub
je voudrais non pas inserersous mais dessus que faut-il changer ?
2)
je voudrais ouvrir ma feuille et selectionner la premiere vide d'une
colonne
que faire

merci

Bonjour,

Recopie des formules au dessusdu curseur
(une ligne entière est insérée)

http://cjoint.com/?jyfNBrOUII

Sub essai()
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy ActiveCell
On Error Resume Next
ActiveCell.EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

Recopie des formules au dessus du curseur
(Insertion dans lescolonnes A:E)

Sub essai2()
ActiveCell.Resize(1, ActiveCell.CurrentRegion.Columns.Count).Insert
Shift:=xlDown
ActiveCell.Offset(1, 0).Resize(1,
ActiveCell.CurrentRegion.Columns.Count).Copy ActiveCell
On Error Resume Next
ActiveCell.Resize(1,
ActiveCell.CurrentRegion.Columns.Count).SpecialCells(xlConstants).ClearCont ents
End Sub

Cordialement JB

bonjour le forum
1)
Sub InsererSousAvecFormules()

Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub
je voudrais non pas inserersous mais dessus que faut-il changer ?
2)
je voudrais ouvrir ma feuille et selectionner la premiere vide d'une colo nne
que faire

merci