Gerry trouve qu’il est plus facile d’assembler des formules qui utilisent des références de cellule R1C1. Elle sait comment faire cela lors de l’ajout manuel de formules à une feuille de calcul, mais se demande comment elle peut utiliser des références R1C1 dans des formules qu’elle assemble et insère dans des cellules à l’aide d’une macro. Elle se demande s’il y a quelque chose dont elle doit faire attention en faisant cela.

Lorsque vous remplissez normalement une formule dans une cellule, vous utiliserez ce type de syntaxe dans votre macro:

Cells(3,1).Formula = "=A1 + A2"

Range("A3").Formula = "=A1 + A2"

L’un ou l’autre fonctionnera correctement; ils remplissent tous les deux une formule simple dans la cellule A3. Si, cependant, vous souhaitez utiliser des références R1C1 dans la formule que vous placez dans la cellule A3, il vous suffit de changer la propriété Formula en propriété FormulaR1C1:

Cells(3,1).FormulaR1C1 = "=R1C1 + R2C1"

Range("A3").FormulaR1C1 = "=R1C1 + R2C1"

Il est intéressant de noter que si vous placez les formules R1C1 ci-dessus dans une cellule et que l’affichage R1C1 n’est pas activé dans la feuille de calcul, Excel convertit la formule pour refléter l’affichage actif. En d’autres termes, il change automatiquement « = R1C1 + R2C1 » en « = $ A $ 1 + $ A $ 2 ». Le contraire est également vrai: placez la formule «= A1 + A2» dans une cellule et elle s’affiche sous la forme «= R [-2] C + R [-1] C» si l’affichage R1C1 est activé.

Vous devez également noter que puisque Formula et FormulaR1C1 sont des propriétés, vous pouvez les lire et voir la formule dans la cellule au format souhaité. Par exemple, disons que la cellule A3 contient la formule « = A1 + A2 ». Si vous exécutez ensuite la macro suivante, vous verrez la formule affichée dans les formats souhaités:

Sub TestFormula()

Dim sMsg As String

sMsg = "Regular format: " & Cells(3,1).Formula & vbCrLf     sMsg = sMsg & "R1C1 format: " & Range("A3").FormulaR1C1     MsgBox sMsg End Sub

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (5294) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.