Insérer une formule avec "Rank" en VBA

Bonjour tout le monde,

me voici avec un nouveau problème que je n'arrive pas à résoudre ! :calim2:

J'aimerai créer (avec une macro -> VBA) un code qui me permet d'ajouter dans une cellule la formule suivante

Code:

---

1 2	=RANK(A1;A1:A5)

---

Pour l'instant, je procède ainsi :

Code:

---

1 2	Range("B1") = "=RANK(A1;A1:A5)"

---

Mais j'ai le message d'erreur suivant :

Run-Time error '1004':
Application-defined or object-defined error


Une idée s'il vous plait ?

Merci d'avance.

Bonjour

Code:

---

1 2	Range("B1").Formula = "=RANK(A1,A1:A5)"

---

Pour Formula le séparateur est la virgule.

Tu peux faire (mais je déconseille pour cause de portabilité vers Excel non français)

Code:

---

1 2	Range("B1").FormulaLocal = "=RANG(A1;A1:A5)"

---

Pffff ^^

Merci. Ca fonctionne nickel comme ca.

Encore un grand merci à la communauté.

Bonne journée.

Bonjour,

Il y a une astuce très utile pour répondre à ce genre de question.

Dans excel tu tapes ta formule :

Code:

---

=RANG(A1;A1:A5)

---

Ensuite dans l'editeur faire Affichage / Fenêtre exécution ou CTRL + G

Dans la fenêtre exécution on tape :

Code:

---

?selection.formula

---

On obtiens :

Code:

---

=RANK(A1,A1:A5)

---

Cet exemple fonctionne et permet de ne pas se casser la tête y compris sur des formules complexes.