Référence circulaire diabolique

Version imprimable

25/04/2015, 11h12
Daniel.C

1 pièce(s) jointe(s)

Référence circulaire diabolique

Bonjour,

Excusez-moi de mettre directement le classeur en pièce jointe mais, là, le problème est trop dépendant des données.
J'ai écrit une fonction VBA qui utilise les données d'un tableau (listobject). Elle fonctionne MAIS :
Si je l'utilise cette fonction sous le tableau, c'est à dire en colonne A, B ou C et que j'inscris quelque chose en colonne A, mais sous le tableau, je provoque une référence circulaire. C'est la fonction VBA qui est signalée comme référence circulaire.
J'ai recopié les données dans un nouveau classeur et j'ai le même problème.

En vous remerciant d'avance.
PJ :Pièce jointe 175978

Bonjour,

Peut être avec le code suivant (ajout et modification sont signalés par des ///)

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Function TrouveDate(Nom As Range, Plage As Range) As Date
    Dim C As Range, ResDate As Date
    Application.Volatile
    Application.EnableEvents = False
 
'/// ajout et modif
Dim LigDeb&
Dim LigFin&
LigDeb& = Plage.Cells(1, 1).Row
LigFin& = LigDeb& + Plage.Rows.Count - 1
    For i = LigFin& To LigDeb& Step -1
'///
 
'''    For i = Cells(Rows.Count, Plage.Column).End(xlUp).Row To Plage.Row Step -1
        Debug.Print Cells(i, Plage.Column).Value
        If Application.CountIf(Plage, Nom) = 1 And Cells(i, Plage.Column).Value = Nom Then
            TrouveDate = Cells(i, Plage.Column).Offset(, 1).Value
            Exit Function
        End If
        If Cells(i, Plage.Column).Value <> Cells(i - 1, Plage.Column).Value Or _
                Cells(i, Plage.Column).Offset(, 1).Value <> Cells(i - 1, Plage.Column).Offset(, 1).Value Or _
                Cells(i, Plage.Column).Offset(, 2).Value <> Cells(i - 1, Plage.Column).Offset(, 2).Value Then
            If Cells(i, Plage.Column).Value = Nom Then
                If Cells(i - 1, Plage.Column) = Nom Then
                    If Cells(i - 1, Plage.Column).Offset(, 2) + 1 = Cells(i, Plage.Column).Offset(, 1) Then
                        ResDate = Cells(i - 1, Plage.Column).Offset(, 1)
                    ElseIf ResDate = 0 Then
                        TrouveDate = Cells(i, Plage.Column).Offset(, 1).Value
                        Exit Function
                    Else
                        TrouveDate = Cells(i, Plage.Column).Offset(, 1).Value
                        Exit Function
                    End If
                End If
            End If
        End If
    Next i
    TrouveDate = ResDate
    Application.EnableEvents = True
End Function

25/04/2015, 17h09
Daniel.C

Bonjour,

Alors là, chapeau ! Tu me tires une belle épine du pied ! J'aurais pu chercher longtemps, et pourtant j'ai tout de suite compris - grâce à toi - mon erreur.

Merci.