Pas de recalcul avec ma 1ere macro VB

Bonjour,

Je viens de terminer ma 1ere macro VB :yaisse2:

Mais pour autant les cellules ou j'utilise ne se calculent pas automatiquement (j'ai bien sur l'option calcul auto activé).
Je suis obligé de placer mon curseur dans la cellule contenant cette fonction et de faire "entrée" pour lancer l'execution.

Voice le code de ma(super) fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function TestResult(Position As String) As String Dim i As Integer   TestResult = "" For i = 1 To Sheets.Count If Sheets(i).Cells(1, 2).Value = Position Then TestResult = Sheets(i).Cells(6, 2)   Exit Function End If   Next i   End Function

---

Et un exemple de formule qui l'utilise:

Code:

---

=TestResult(CONCATENER(S$4;$E7))

---

A l'aide !

Salut garoloup et le forum

Citation:

---

Je viens de terminer ma 1ere macro VB :yaisse2:

---

Fais, lis, citation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function TestResult(Position As String) As String Dim i As Integer   Application.volatile   TestResult = "" For i = 1 To Sheets.Count If Sheets(i).Cells(1, 2).Value = Position Then TestResult = Sheets(i).Cells(6, 2) Exit Function End If Next i End Function

---

Devrai être meilleur comme ça (pas vérifié la fonction, juste rajouté l'instruction qui dit a Excel de recalculer (trop feignant sinon :evilred:)
A+