super çà marche !!
j'ai donc modifié la fonction "note" en ajoutant un test au début :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim tst tst = 0 For i = 0 To UBound(X) If Not IsNumeric(X(i, 0)) Then tst = tst + 1 End If Next If tst > 0 Then Note = "-" Else endif
Partager