Bonjour,

Je viens de terminer ma 1ere macro VB

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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
=TestResult(CONCATENER(S$4;$E7))
A l'aide !