XL 2016 Droitereg

sylvanu à dit:

Bonjour,
XL n'aime pas les "trous" dans les matrices de Droitereg.
Une solution : Boucher les "trous" par extrapolation linéaire. Avec :

VB:

Sub Extrapole()
    Application.ScreenUpdating = False
    N = Cells(1, Columns.Count).End(xlToLeft).Column
    Range(Cells(1, "A"), Cells(10000, N)).Font.Color = vbBlack
    For L = 2 To Range("B65500").End(xlUp).Row
        For C = 3 To 8
            If Cells(L, C) = "" Then
                X10 = Cells(L, "B") - Cells(L - 1, "B")
                X21 = Cells(L + 1, "B") - Cells(L - 1, "B")
                Y21 = Cells(L + 1, C) - Cells(L - 1, C)
                Y1 = Cells(L - 1, C)
                Y = (X10 / X21) * (Y21) + Y1
                Cells(L, C) = Y
                Cells(L, C).Font.Color = vbRed
            End If
        Next C
    Next L
End Sub

Attention, cette macro n'accepte les trous que d'un élément. Ce qui semble être votre cas.
Les valeurs extrapolées sont mises en rouge.

Cliquez pour agrandir...

sylvanu à dit:

Exact. Si l'extrapolation n'est pas linéaire alors je n'ai pas de solution hormis la graphique.
Mais si l'extrapolation n'est pas linéaire, et si les points sont "chaotiques" pourquoi vouloir faire une Droitereg ? Cela ne correspond à rien.
Si la Droitereg est pertinente, le fait de rajouter un point par extrapolation linéaire ne change pas les coefficients.

Cliquez pour agrandir...