Utilisation de Formula !

Bonjour à tous,
dans une "sub" je remplis des cellules avec une formule comme ceci:

Code:

---

1 2 3 4 5 6 7

' tableau des résultats For i = 1 To joueurs Step 1 j = i + 1 Sheets("Résultats").Cells(j, 1).Value = i Sheets("Résultats").Cells(j, 2).Formula = "=Score(" & "A" & j & ")" Sheets("Résultats").Cells(j, 3).Formula = "=Differences(" & "A" & j & ")" Next i

---

Sauf qu'en exécution, rien ne se calcule !
Si je clique dans la cellule et que je tape "enter" la fonction... fonctionne !
Quelqu'un a-t-il une idée ?
Merci JBL

Bonjour,
Le problème que tu décris vient peut-être du fait que ta feuille est une feuille de type Macro (raccourci clavier pour l'insérer Ctrl+F11) ou un un mauvais formatage des cellules contenant les formules.
Comme tu ne montres pas le code de tes fonctions Score et Differences, il est difficile de t'apporter un début de réponse.
J'ai en vitesse écrit une petite fonction qui renvoie l'adresse de la cellule envoyée en argument à la fonction Score et je n'ai pas de problème particulier en ce qui concerne le renvoie de valeur de cette fonction.
Bien sûr l'appel à la fonction Differences renvoie le message d'erreur #NOM?.

Code:

---

1 2 3

Function Score(rng As Range) Score = rng.Address End Function

---

s

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim joueurs%, i%, j% joueurs = 10 For i = 1 To joueurs Step 1 j = i + 1 Sheets("Résultats").Cells(j, 1).Value = i Sheets("Résultats").Cells(j, 2).Formula = "=Score(" & "A" & j & ")" Sheets("Résultats").Cells(j, 3).Formula = "=Differences(" & "A" & j & ")" Next i End Sub

---

Bonjour,
merci d'avoir regarder mon cas.
Quand j'utilise ta formule "Score = rng.Address" ma feuille se met à jour, mais si je fais "Score = rng.Value" rien ne se passe !
Je ne comprends pas pourquoi.
Merci pour ton aide,
JBL

Y a-t-il une valeur dans cette cellule représentée par la variable objet rng ?