XL 2016 Besoin d'une formule pour incrémenter une colonne

[Simon271982]

Bonjour à tous,

Je recherche une fonction pour remplir la case O de mon fichier, je suis pas un expert en algorithme, j'aurais qu'un seul fichier se serait simple mais j'ai une vingtaine de fichier comme celui ci.
J'ai rempli la formule manuellement ça me permet de remplir une partie des cases à chaque fois mais pas la totalité de la colonne. Est ce qu'un âme charitable veut bien m'aider à réaliser une formule permettant de remplir cette colonne

Très cordialement
un utilisateur ponctuel d'excel

 

[djidji59430]

Bonjour,

Un essai :

 

[Dranreb]

Bonsoir
Même idée que djidji9430, je pense,
En O3, à propager sur 301 lignes :

=DECALER($K$2;ENT($N3)+1;0)+(DECALER($K$2;ENT($N3)+2;0)-DECALER($K$2;ENT($N3)+1;0))*MOD($N3;1)

 

[Simon271982]

Bonjour,

Un essai :

ça marche mais pas pour les valeurs 1, 2, 3 ...

 

[Simon271982]

Bonsoir
Même idée que djidji9430, je pense,
En O3, à propager sur 301 lignes :

=DECALER($K$2;ENT($N3)+1;0)+(DECALER($K$2;ENT($N3)+2;0)-DECALER($K$2;ENT($N3)+1;0))*MOD($N3;1)

Merci ça marche nickel je vais essayer sur les autres fichiers

 

[Simon271982]

Merci ça marche nickel je vais essayer sur les autres fichiers

Re bonsoir,

J'ai essayé de transposer votre formule pour le faire sur les deux premières colonnes mais je n'arrive pas à obtenir le résultat escompté.

 

[Dranreb]

Ma formule était seulement adaptée à un modèle de valeurs X constitué de nombres entiers qui se suivent. Si vous en avez besoin pour d'autres valeurs ça se complique parce qu'il faut remplacer tous les ENT($D5) par des EQUIV($D5;$A$4:$A$726). MOD($D5;1) ne va plus non plus: il faut prendre la différence entre les deux A successifs, celui trouvés avec EQUIV et le suivant. Plutôt qu'une telle formule à rallonge je préfèrerais m'écrire une fonction personnalisée.

 

[Dranreb]

Dans un module standard :

Option Explicit

Function IntpoLinTbXY(ByVal X As Double, ByVal RgXY As Range) As Double
Dim L As Long, TXY()
L = WorksheetFunction.Match(X, RgXY.Columns(1))
TXY = RgXY(L, 1).Resize(2, 2).Value
IntpoLinTbXY = IntpoLin(X, TXY(1, 1), TXY(1, 2), TXY(2, 1), TXY(2, 2))
End Function

Function IntpoLin(ByVal X As Double, ByVal X1 As Double, ByVal Y1 As Double, _
                                     ByVal X2 As Double, ByVal Y2 As Double) As Double
IntpoLin = Y1 + (Y2 - Y1) * (X - X1) / (X2 - X1)
End Function

En E3, à propager sur le nombre de lignes voulu :

=IntpoLinTbXY($D3;$A$3:$B$726)

 

[djidji59430]

ça marche mais pas pour les valeurs 1, 2, 3 ...

Ça marche pour l'exemple donné. Sinon, c'est que c'est un mauvais exemple !

 

[Simon271982]

Dans un module standard :

Option Explicit

Function IntpoLinTbXY(ByVal X As Double, ByVal RgXY As Range) As Double
Dim L As Long, TXY()
L = WorksheetFunction.Match(X, RgXY.Columns(1))
TXY = RgXY(L, 1).Resize(2, 2).Value
IntpoLinTbXY = IntpoLin(X, TXY(1, 1), TXY(1, 2), TXY(2, 1), TXY(2, 2))
End Function

Function IntpoLin(ByVal X As Double, ByVal X1 As Double, ByVal Y1 As Double, _
                                     ByVal X2 As Double, ByVal Y2 As Double) As Double
IntpoLin = Y1 + (Y2 - Y1) * (X - X1) / (X2 - X1)
End Function

En E3, à propager sur le nombre de lignes voulu :

=IntpoLinTbXY($D3;$A$3:$B$726)

Nickel la fonction ça marche pour les deux colonnes
Merci encore