Bonjour
Je souhaite réaliser une macro ou un calcul fait référence à une cellule.
Pour le repérage des cellules, je suis "obligé" d'utiliser la forme (cells(i, 5)) par exemple.
Un exemple de la macro à réaliser est donnée ci dessous.
Mon probleme provient de la selection.autofill ou plutôt de ma formule "ActiveCell.FormulaR1C1 = Cells(28, i) * 5"

Avec cette fonction, le calcul indiqué "ActiveCell.FormulaR1C1 = Cells(28, i) * 5", la selection autofill réalise le meme calcul pour toutes les extensions. J'ai donc le même résultat pour chaque cellule alors que je souhaiterais que le calcul s'applique avec la cellule non fixe de la colonne.

Je ne sais pas comment transformer mon calcul pour que la fonction sélection autofill adapte le calcul pour chaque colonne.
Je voudrais donc l'équivalent du second code montré ci dessous avec l'utilisation de la forme cells(i,5).






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
Sub riff04()
'
' riff04 Macro
'
 
'
    Range("F28").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("G28").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("H28").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("I28").Select
    ActiveCell.FormulaR1C1 = "9"
i = 6
    Cells(29, i).Select
    ActiveCell.FormulaR1C1 = Cells(28, i) * 5
 
    Cells(29, i).Select
    Selection.AutoFill Destination:=Range(Cells(29, i), Cells(29, i + 4)), Type:=xlFillDefault
 
    Range("I33").Select
End Sub

Résultats recherchés identique au résultats de la macro ci dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
   Range("F29").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C*5"
    Range("F29").Select
    Selection.AutoFill Destination:=Range("F29:I29"), Type:=xlFillDefault
    Range("F29:I29").Select
    Range("I33").Select