Etendre une formule

Bonjour le forum ,

Je cherche une solution pour étendre une formule à l'aide du VBA

Je veux appliquer la formule suivante dans A2 : =B1+C1 ( la il n'y a pas de problème pour le VBA)

Ensuite je voudrais lui demander d'étendre la formule , par exemple A3=B2+C2.... jusqu'a A30.

Pour l'instant j'en suis là...

Range("A2").Value = " B1+C1"

Merci d'avance

bonjour,

essaie ceci

Sub aargh()
    Range("A2").FormulaR1C1 = "=R[-1]C[1]+R[-1]C[2]"
    Range("A2").AutoFill Destination:=Range("A2:A30"), Type:=xlFillDefault
End Sub

Bonjour,

Un code à copier dans un module

Sub Recopie()
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[1]+R[-1]C[2]"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A30"), Type:=xlFillDefault

    Range("A2").Select
End Sub

Un fichier joint avec un exemple

Pierrot

Merci beaucoup pour la solution !!!

Bonne semaine à vous deux!!

Bonjour,

C'est un plaisir de répondre quand on connait la solution.

Salutations amicales

Pierrot