Discussion :

[soumilo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
C'est ceci que tu souhaites ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[soumilo]

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[soumilo]

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