Discussion :

[bugstar]

Bonsoir,

Je souhaite automatiser le calcul d'une interpolation linéaire d'un nombre de valeurs qui peuvent évoluer en fonction des blancs, standards, échantillons.

Voici le code de la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=Linear_Interp(R28C4:R43C4,R1C27:R16C27,R[-43]C[22])"

La plage de cellules R28C4:R43C4 est variable mais elle débutera toujours par R28C4.
J'identifie la dernière cellule de la plage (dans cet exemple R44C4) via un filtre et définie l'adresse de cette cellule via la formule suivante : =ADRESSE(EQUIV(AB6;D;0);4)
Même principe pour la plage R1C27:R16C27

Ce que je souhaiterais faire, c'est que dans la macro, je puisse insérer dans la formule à la place de R43C4 et R16C27, les adresses définies via la formule =ADRESSE...
Ainsi, en AB5; j'ai la valeur $D$44. La sélection dans la formule devra chercher en AB5, la dernière cellule à sélectionner pour définir la plage.
Le but étant d'automatiser automatiquement la formule quelques soient le nombre de valeurs (ici les concentrations et les standards).

J'ai essayé avec la fonction INDIRECT pour faire la formule d'abord manuellement avec une simple Somme =SOMME(INDIRECT(AB5 &":"& AB4)), mais déjà là le résultat ne correspond pas.
Mon idée était éventuellement de mettre le contenu de la cellule AB5 en tant que variable du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim NomVariable 
NomVariable = range("AB5").Value

mais j'ai quelques soucis pour concilier les 2.
Par avance merci

Bug*

[bugstar]

Ce n'est pas encore ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim interp As Variant
Dim interp2 As Variant
interp = Range("AB5").Value
interp2 = Range("AB4").Value
 
ActiveCell.FormulaR1C1 = "=Linear_Interp(R28C4:" & interp & ",R1C27:" & interp2 & ",R[-43]C[22])"

[ARTURO83]

Bonjour,

Une proposition:
DerLig_D recherche la dernière ligne de la colonne 4 (D)
DerLig_AA recherche la dernière ligne de la colonne 27 (AA)

Ce qui donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Dim DerLig_D As Long, DerLig_AA As Long
    DerLig_D = [D28].End(xlDown).Row
    DerLig_AA = [AA1].End(xlDown).Row
    ActiveCell.FormulaR1C1 = "=Linear_Interp(R28C4:R" & DerLig_D & "C4,R1C27:R" & DerLig_AA & "C27,R[-43]C[22])"

A tester
Cdlt

[bugstar]

Bonjour,

Merci pour ce retour.
Effectivement il y a cette alternative moins détournée que la mienne.
Cependant, j'ai un souci, alors qu'il devrait prendre la dernière la dernière ligne non vide, il me prend la dernière ligne qui contient la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A124<>"";MOYENNE(B124:C124);"")

Du coup, j'ai comme édition de la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Linear_Interp($D$28:$D$124;$AA$1:$AA$96;AC2)

J'ai ainsi D124 au lieu de D44

A cela, je peux faire sur une feuille annexe, un filtre qui pourrait résoudre ce problème.

Bonne journée

[bugstar]

Du coup, j'ai détourné mon problème de formule pérenne qui fait que la cellule sans valeur n'est pas identifiée comme vide dans la macro.
J'ai fait un filtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Range("$A$1:$A$98").AutoFilter Field:=1, Criteria1:="<>" _
    , Operator:=xlAnd, Criteria2:="<>#DIV/0!"
    Selection.SpecialCells(xlCellTypeVisible).Select

Merci pour ton aide
bug*