Discussion :

[leenneje]

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

Code :

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

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

[Philippe Tulliez]

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 :

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

1
2
3
Function Score(rng As Range)
 Score = rng.Address
End Function

s

Code :

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

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

[leenneje]

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

[Philippe Tulliez]

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