XL 2016 Droitereg

[Bond007]

Bonjour à tous,

Je me permets de vous le demander car je ne trouve pas une solution claire pour mon cas dans le forum et mon niveau en excel n'est pas trop évolué.
Je veux trouver les coefficients et la statistiques associées. Seul problème j'ai des colonnes avec des cases vides et toutes les colonnes n'ont pas la case vide au même moment.
Je m'explique mon y va de la colonne C à H dans le fichier joint et mon x sera toujours la colonne B. Quand je fais droitereg j'ai #valeur cfr colonne K. J'ai essayé avec différent de 0 cfr colonne N mais toujours la même chose. La fonction décaler ne m'aide pas plus.

Quelqu'un saurait m'orienter svp?
Merci d'avance

 

[sylvanu]

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

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.

 

[Bond007]

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

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.

Merci beaucoup Sylvanu,
Le problème est que ce sont des concentrations et leurs variations peuvent ou ne pas être linéaires en fonction de la saturation du capteur et de ses performances. En extrapolant on s'attend à ce que ça donne une linéarité non?

 

[sylvanu]

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.

 

[Bond007]

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.

Droitereg parce que je peux aller jusqu'à une équation de degré 3 ou 4 si je ne me trompe pas et avoir les coef associés sans passer par faire les graphes sinon cela reviendrait à faire 6*5*45 graphes.... humainement ce n'est pas conseillé sans automatiser le tout