Discussion :

[florian.renault]

Bonjour,

Serait-il possible d'avoir de l'aide sur le cas ci-dessous ?
Le code en bleu ne fonctionne pas mais celui en blanc fonctionne seulement je voudrais éviter les formules en R1C1.



code fonctionnel

Code :

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

1
2
3
4
5
6
7
Sub Macro7()
 
    Dim test As Integer
    test = 11
    Range("B1").FormulaR1C1 = "=RANK.EQ(R[11]C,R[" & test & "])-1"
 
End Sub

code non fonctionnel

Code :

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

1
2
3
4
5
6
7
Sub test()
 
    Dim x As String
    x = "12:12"
    Range("B1").Formula = "=EQUATION.RANG(B12;" & x & ")-1"
 
End Sub

Une personne a une idée ?

Cordialement,
Florian

[Menhir]

Code :

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

Range("B1").FormulaLocal = "=EQUATION.RANG(B12;" & x & ")-1"

[florian.renault]

Merci beaucoup je test