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.

Nom : Sans titre.png Affichages : 449 Taille : 26,0 Ko

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