Suppression lignes masquées et régression logarithmique

[superexcelfrancois]

Bonjour,

Je souhaiterais faire des régressions logarithmiques sur les données d'un tableau filtré. C'est à dire que mes données d'entrée ne doivent être que les lignes non masquées. J'ai écrit la macro suivante pour cela, mais les lignes masquées des ranges "iX1" et "iY1" ne sont jamais supprimées. ET du coup, la régression se fait sur toutes less lignes du tableau.

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
Function logRegVBA(ByVal Y1 As Range, ByVal X1 As Range) As Variant
 
If Y1.Rows.Count = X1.Rows.Count Then
 
    Dim iY1 As Range
    Dim iX1 As Range
    Dim i As Integer
 
   Set iY1 = Y1
   Set iX1 = X1
 
    i = 0
 
    For j = 0 To Y1.Rows.Count
 
        If iY1.Rows(j).Hidden = True Then
 
            iY1.Rows(j).Hidden = False
            iY1.Rows(i).EntireRow.Delete Shift:=xlShiftToUp
 
            iX1.Rows(j).Hidden = False
            iX1.Rows(i).EntireRow.Delete Shift:=xlShiftToUp
 
        End If
 
        i = i + 1
 
    Next j
 
    logRegVBA = WorksheetFunction.LogEst(iY1, iX1, True, True)
 
Else
 
    MsgBox "Incoherent variables"
    Exit Function
 
End If

Merci pour votre aide,

François