Formule de Calcul et macro

Version imprimable

Bonjour tout le monde. je suis nouveau dans le monde de la programmation, je suis autodidacte en quelque sorte.
J'ai un petit problème avec une formule de calcul voici la macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C10").Select
 
End Sub

Au fait je souhaite automatiser la formule de la cellule (C2:C65536)
Merci d'avance pour votre aide

Bonjour,
C'est ceci que tu souhaites ?
Code:

1 2 3 Sub PlaceFormule() Range("C2:C65536").FormulaR1C1 = "=RC[-2]-RC[-1]" End Sub

27/03/2012, 12h55
soumilo

MerCi CORONA. Pour ton aide et Bonne journée, j'aurai certainement besoin de ton expérience dans l'avenir.

Bonjour,

Excuses-moi Philippe mais je préfère cette solution qui ne colle la formule que sur les cellules renseignées (surtout si soumilo apprend le VBA)
Code:

1 2 3 4 5 6 7 Sub PlaceFormule() Dim derlg As Long With Sheets("Feuil1") 'à remplacer par le nom de ta feuille derlg = .Range("C" & .Rows.Count).End(xlUp).Row ' donne la dernière ligne renseignée .Range("C2:C" & derlg).FormulaR1C1 = "=RC[-2]-RC[-1]" End With End Sub
De plus, sur Excel 2007, le nombre de lignes maxi est de 1 048 576 et non 65536

27/03/2012, 16h14
Philippe Tulliez

Bonjour Dominique,
Aucun problème
J'ai voulu ajouter la référence à la feuille et préférer la référence à une dernière ligne en fonction de la version Office mais j'ai répondu rapidement et donc pas affiné ma réponse.
28/03/2012, 13h44
soumilo

Une fois de plus Merci CASEFAYERE et CORONA! C'est impeccable le boulot que vous faites. Je suis très ravi.