recopie de formule ans une macro

C

Catrice

XLDnaute Barbatruc

• 5 Septembre 2008

• #2

Re : recopie de formule ans une macro

Bonsoir

Un exemple ci-joint.

 

Pièces jointes

• Classeur1.xls

  23 KB · Affichages: 63
• Classeur1.xls

  23 KB · Affichages: 72
• Classeur1.xls

  23 KB · Affichages: 68

Vote positif 0 Vote négatif

A

amine19

Guest

• 5 Septembre 2008

• #3

Re : recopie de formule ans une macro

merci de la rapidité mais je dois etre un peu abruti mais ton fichier est une image ecran du forum ??? je n'accede pas au fichier excel - je suis sous vista mais office xp
merci de confimer ou pas mon abrutissage !

 

Vote positif 0 Vote négatif

A

amine19

Guest

• 5 Septembre 2008

• #4

Re precision voici extrai macro

ActiveCell.FormulaR1C1 = "=RC[-6]/RC[-5]*30"
Range("J4").Select
Selection.AutoFill Destination:=Range("J4:j126")
Range("J4:j126").Select
Selection.NumberFormat = "#,##0"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 5 Septembre 2008

• #5

Re : recopie de formule ans une macro

Re,

Le fichier s'ouvre bien chez moi.
Voici la Macro :
Sub Test()
Range("C1").AutoFill Destination:=Range("A1:" & Range("A65536").End(xlUp).Address).Offset(0, 2)
End Sub

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 5 Septembre 2008

• #6

Re : recopie de formule ans une macro

Re,

voici le code du fichier joint :

Dans E4 et E65536 le E correspond à la colonne à tester (pour trouver la derniere cellule.
Offset(0, 5), le 5 correxpond au decalage par rapport à E. A partir de J se trouve à 0,1,2,3,4,5 colonnes (on commence par 0).
A toi d'adapter. Si tu veux tester la colonne D, remplacer E par D et 5 par 6.

Sub test2()
Set MaZone = Range("E4:" & Range("E65536").End(xlUp).Address).Offset(0, 5)
Range("J4").FormulaR1C1 = "=RC[-6]/RC[-5]*30"
Range("J4").AutoFill Destination:=MaZone
With MaZone
.NumberFormat = "#,##0"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
End Sub

 

Pièces jointes

• Classeur1.xls

  22.5 KB · Affichages: 55
• Classeur1.xls

  22.5 KB · Affichages: 63
• Classeur1.xls

  22.5 KB · Affichages: 60

Vote positif 0 Vote négatif

A

amine19

Guest

• 7 Septembre 2008

• #7

Re : recopie de formule ans une macro

bravo et merci tu as eclairé mes petites cellules, maintenant mes lignes et mes colonnes te remercient. J'aime bcp creer des appli sur excel mais je me limite aux assistants, la j'avoue que ca donne envie de prendre des cours particulier !
merci encore tu m'as vraiment depatouillé.

 

Vote positif 0 Vote négatif