recopier les formules

[charpy]

bonjour le forum

j'ai un code qui insere une ligne avec son numero sur plusieurs feuilles avec une userform

Private Sub CommandButton1_Click() 'inserer
Dim ligne As Single
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil1").Activate
ligne = TextBox1.Value
If ligne = 0 Then Exit Sub
Rows(ligne & ":" & ligne).Select
Selection.Insert Shift:=xlDown
Range("a1").Select
Sheets("Feuil1").Select
End Sub

je n'arrive a lui dire de recopier les formules de la ligne du desous ou du dessus
qui a une idée
merci
charpy

 

[EricS]

Bonjour,

en utilisant l'enregistreur de macro on obtient les codes suivants :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/10/2004 par Eric
'
'
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Selection.AutoFill Destination:=Rows("5:6"), Type:=xlFillCopy
Rows("5:6").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 05/10/2004 par Eric
'
' copie incrémentée
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("7:7").Select
Selection.AutoFill Destination:=Rows("6:7"), Type:=xlFillDefault
Rows("6:7").Select


tu peux t'en inspirer

A+
Eric

 

[CHti160]

Salut"charpy"et"EricS"
vois du coté de l'aide "AutoFill, méthode"

tu peux imaginer avoir 3 colonnes A.... B....C où C et le total de AB
donc la formule se trouve en C1 soit SourceRange
tu donnes à fillRange une valeur supérieure ou adaptable
ainsi ta formule sera copiée dans ta plage
une solution peut être !!!!!!!!!!!!!!!!!
Selection.Insert Shift:=xlDown
Set SourceRange = Worksheets("Feuil1").Range("C1")
Set fillRange = Worksheets("Feuil1").Range("C1:C20")
SourceRange.AutoFill Destination:=fillRange
Range("a1").Select
Sheets("Feuil1").Select
A+++
Jean Marie