Discussion :

[apnw7931]

Bonjour tout le monde,

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

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

Code :

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

1
2
 
=RANK(A1;A1:A5)

Pour l'instant, je procède ainsi :

Code :

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

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.

[mercatog]

Bonjour

Code :

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

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 :

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

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

[apnw7931]

Pffff ^^

Merci. Ca fonctionne nickel comme ca.

Encore un grand merci à la communauté.

Bonne journée.

[aalex_38]

Bonjour,

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

Dans excel tu tapes ta formule :

Code :

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

=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 :

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

?selection.formula

On obtiens :

Code :

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

=RANK(A1,A1:A5)

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