Excel Downloads Forums - Afficher un message

05/05/2006, 10h27

Bonjour David,

je trouve ta solution un peu complexe. Mais, en consultant le forum, j'ai trouvé une fonction 'EQUIV' qui donne la ligne de la valeur approchée.

j'ai donc fait ceci:

For n = 1 To 36
Sheets(CStr(n)).Activate
i = '=EQUIV(Sheets(1).Cells(n+1,2).Value ; Sheets(CStr(n)).Range('A:A') ; 1)'
Sheets(1).Cells(n + 1, 3).Value = '=MAX(Cells(i-2,4).Value,Cells(i-1,4).Value,Cells(i,4).Value,Cells(i+1,4).Value,Cel ls(i+2,4).Value)'
Next n

Mais bon visiblement j'ai pas encore tout compris à l'utilisation des fonctions excel dans les macros...==>marche pas

Merci d'avance

NB : c'est bien moi que tu as aidé pour les fichiers '.txt'. En fait, j'essaie maintenant d'extraire une valeure précise de chacune de mes feuilles (nommées par des chiffres) et de copier la valeur maximale située aux alentours de cette valeure.

05/05/2006, 10h27	#4 (permalink)
j-y Guest Messages: n/a	Re:Recherche d'une valeur approchée Bonjour David, je trouve ta solution un peu complexe. Mais, en consultant le forum, j'ai trouvé une fonction 'EQUIV' qui donne la ligne de la valeur approchée. j'ai donc fait ceci: For n = 1 To 36 Sheets(CStr(n)).Activate i = '=EQUIV(Sheets(1).Cells(n+1,2).Value ; Sheets(CStr(n)).Range('A:A') ; 1)' Sheets(1).Cells(n + 1, 3).Value = '=MAX(Cells(i-2,4).Value,Cells(i-1,4).Value,Cells(i,4).Value,Cells(i+1,4).Value,Cel ls(i+2,4).Value)' Next n Mais bon visiblement j'ai pas encore tout compris à l'utilisation des fonctions excel dans les macros...==>marche pas Merci d'avance NB : c'est bien moi que tu as aidé pour les fichiers '.txt'. En fait, j'essaie maintenant d'extraire une valeure précise de chacune de mes feuilles (nommées par des chiffres) et de copier la valeur maximale située aux alentours de cette valeure.