Discussion :

[comme de bien entendu]

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

[Philippe Tulliez]

Bonjour,
Manifestement, tu voudrais par le biais d'une fonction personnalisée modifier un objet range (cellule). Ce n'est pas possible.
Une fonction personnalisée renvoie uniquement une donnée dans la cellule qui l'invoque.

[comme de bien entendu]

Merci de votre retour.
Je serais intéressé sur la compréhension de la mécanique interne à VBA/excel qui interdit ce type d'action.
cordialement

[Philippe Tulliez]

Bonjour,
Je te suggère la lecture de cet excellent didacticiel traitant de ce sujet.