Calvus
XLDnaute Barbatruc
Bonsoir le forum,
Une petite énigme en cette canicule estivale..
Avec le même code et la même formule, j'obtiens 2 résultats différents..
Formule :
J'obtiens 116
Code :
J'obtiens 119...
Quel est le schisme d'après vous ?..
Bizarre non ?
Bonne soirée.
Une petite énigme en cette canicule estivale..
Avec le même code et la même formule, j'obtiens 2 résultats différents..
Formule :
VB:
=NB.SI(C6:C362;"<>""")-NB.SI(P6:P362;"n")-NB.SI(R6:R362;"x")
J'obtiens 116
Code :
Code:
Sub Non_Traité()
Dim i As Integer, n As Integer
For i = 6 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(i, 18) <> "x" And Cells(i, 16) <> "N" Then n = n + 1
'ce qui correspond à R:R correspond à P:P
Next i
MsgBox n
End Sub
J'obtiens 119...
Quel est le schisme d'après vous ?..
Bizarre non ?
Bonne soirée.