Discussion :

[garoloup]

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 !

[Gorfael]

Salut garoloup et le forum

Je viens de terminer ma 1ere macro VB

Fais, lis, citation

Code :

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

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 )
A+