HELLO ci après le screener avec per=80 (à adapter) :

// Source
src = close
// Sampling Period
// Settings for 5min chart, BTCUSDC. For Other coin, change the paremeters
// per = defval=100, minval=1, "Sampling Period"
per=80
// Range Multiplier
// mult = defval=3.0, minval=0.1, "Range Multiplier"
mult=3
// Smooth Average Range
wper = per*2 -1
avrng = exponentialaverage[per](abs(src-src[1]))
smrng = mult * exponentialaverage[wper](avrng)

// Range Filter
rngfilt = src
If src > rngfilt[1] then
If rngfilt[1] > src-smrng then
rngfilt = rngfilt[1]
Else
rngfilt = src-smrng
endif
elsif rngfilt[1] < src+smrng then
rngfilt = rngfilt[1]
else
rngfilt = src+smrng
endif
filt = rngfilt

// Filter Direction
upward = 0
If filt > filt[1] then
upward = upward[1]+1
elsif filt < filt[1] then
upward = 0
else
upward = upward[1]
endif
downward = 0
If filt < filt[1] then
downward = downward[1]+1
elsif filt > filt[1] then
downward = 0
else
downward = downward[1]
endif

// Target Bands
//hband = filt + smrng
//lband = filt - smrng

// Colors
//If upward > 0 then
//filtcolorR = upColorR
//filtcolorG = upColorG
//filtcolorB = upColorB
//elsif downward > 0 then
//filtcolorR = downColorR
//filtcolorG = downColorG
//filtcolorB = downColorB
//else
//filtcolorR = midColorR
//filtcolorG = midColorG
//filtcolorB = midColorB
//endif

if src > filt and src > src[1] and upward > 0 then
//barcolorR = upColorR
//barcolorG = upColorG
//barcolorB = upColorB
elsif src > filt and src < src[1] and upward > 0 then
//barcolorR = upColorR
//barcolorG = upColorG
//barcolorB = upColorB
elsif src < filt and src < src[1] and downward > 0 then
//barcolorR = downColorR
//barcolorG = downColorG
//barcolorB = downColorB
elsif src < filt and src > src[1] and downward > 0 then
//barcolorR = downColorR
//barcolorG = downColorG
//barcolorB = downColorB
else
//barcolorR = midColorR
//barcolorG = midColorG
//barcolorB = midColorB
endif

// Break Outs
longCond = (src > filt and src > src[1] and upward > 0) or (src > filt and src < src[1] and upward > 0)
shortCond = (src < filt and src < src[1] and downward > 0) or (src < filt and src > src[1] and downward > 0)

CondIni = 0
If longCond then
CondIni = 1
elsif shortCond then
CondIni = -1
else
CondIni = CondIni[1]
endif

longCondition = longCond and CondIni[1] = -1
shortCondition = shortCond and CondIni[1] = 1
F=longCondition or shortCondition

//Alerts
If longCondition then
flag=1
endif
If shortCondition then
flag=2
endif
screener [F](flag=1 as"long",flag=2 as "court")