Bonjour,
Justement le but serait que ce soit très peu lisible !
genre comme cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Function eeeeeeeeeeeeeeee%(eeeeeeeeeeeeeeeee$) Dim eeeeeeeeeeeeeeeeee&, eeeeeeeeeeeeeeeeeee&, eeeeeeeeeeeeeeeeeeee& eeeeeeeeeeeeeeeeeee = InStrRev(eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeee)) + 2 eeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeeee - eeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeeee)) + 2 eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeee > 2 If eeeeeeeeeeeeeeee Then eeeeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeeeee)) eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeeeee > eeeeeeeeeeeeeeeeee And eeeeeeeeeeeeeeeeeeee < eeeeeeeeeeeeeeeeeee End If If eeeeeeeeeeeeeeee Then eeeeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeee)) eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeeeee > eeeeeeeeeeeeeeeeee And eeeeeeeeeeeeeeeeeeee < eeeeeeeeeeeeeeeeeee End If If eeeeeeeeeeeeeeee Then eeeeeeeeeeeeeeeee = Left$(eeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeee - 1) & String(eeeeeeeeeeeeeeeeeee - eeeeeeeeeeeeeeeeee, " ") & Mid$(eeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeeee) End Function
Partager