Bonjour Haut Grand Maître H2so4 ^^
Cela fonctionne !
Le nom de la Fonction est parfaite
Je me suis permis d'ajouter des < & > au endroit indiqué en couleur ci-dessous (détails que j'ai oublié dans mon diagramme ) :
Function droledetruc(r)
Dim som(3)
s = 0
c = Application.Transpose(r)
ubc = UBound(c)
If (c(ubc) = 1 And c(ubc - 1) [color=#FF0000][size=150]<[/size][/color]= -2) Or (c(ubc) = -1 And c(ubc - 1) [color=#FF0000][size=150]>[/size][/color]= 2) Then
For i = ubc - 2 To LBound(c) Step -1
If c(i) <> "" Then
s = s + 1
som(s) = c(i)
If s = 3 Then Exit For
End If
Next i
If s = 3 Then
If c(ubc - 1) [color=#FF0000][size=150]<[/size][/color]= -2 Then
If c(ubc - 1) < som(2) And som(1) < som(3) Then droledetruc = 1: Exit Function
ElseIf c(ubc - 1) [color=#FF0000][size=150]>[/size][/color]= 2 Then
If c(ubc - 1) > som(2) And som(1) > som(3) Then droledetruc = 1: Exit Function
End If
End If
End If
droledetruc = ""
End Function
Avec ton accord, est-ce que je peux copier ton code sur les autres forum, avec ton pseudo, et le lien renvoyant ici ?