Bonjour,
Je fais un appel de fonction qui se déroule automatiquement, puisque
je suis en mode calcul automatique mais qui refuse de réaliser une affectation en même temps.
La fonction est dans une cellule et elle récupère 2 parametres postés dans deux autres cellules.
L'objectif est de mettre en temps réel à jour des données dans un autre onglet.
Peut être ce n'est pas possible, mais j'aimerais en être certain.
Pour le moment cela déclenche l'erreur :
Erreur définie par l'application ou par l'objet.
Voici la fonction. Merci de votre retour.

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
16
17
18
19
20
21
22
23
24
25
26
27
Function MAJ_Marque_Bordereau(P_An As String, P_Eo As String) As String
Dim A_comparer As String
Dim P_A As String
Dim P_B As String
Dim i  As Integer
On Error GoTo GestionErreur
P_A = Left(P_An, Len(P_An) - 1)
P_B = Left(P_Eo, Len(P_Eo) - 1)
' parcours du bordereau de prix
With ActiveWorkbook.Worksheets("Bordereau de prix")
For i = .Range("FIN_DE_TABLEAU_BORDEREAU").Row To .Range("Fin_Mnt_RoomTV").Row
    If .Range("B" & i) = "AN" Or .Range("B" & i) = "EO" Then
    A_comparer = .Range("C" & i)
        If InStr(A_comparer, P_A) > 0 Or InStr(A_comparer, P_B) > 0 Then
            .Range("J" & i).Value = 1
        End If
    End If
Next i
' Fonction qui ne renvoie rien de visible
End With
MAJ_Marque_Bordereau = ""
finTrt:
Exit Function
GestionErreur:
MsgBox Error$
Resume finTrt
End Function