Re,
Je teste les SommeSI et le NbSI
3 niveaux OP / DR / SIT
En utilisant NbSi et SommeSI au niveau DR ou au niveau SIT
Les surfaces sont correctes avec SommeSI
Parcontre je n'arrive pas à avoir le nombre de SIT correspondant à NbSi(24, "OUI")
J'ai remplacé DR.Count et Sit.Count par
TS(L, 4) = DR.NbSi(24, "OUI") et TS(L, 5) = TS(L, 5) + SIT.NbSi(24, "OUI") me donne le même nombre de BAT
Est-ce une mauvaise utilisation de ces 2 fonctions?
Merci encore
KIM
For Each OP In Gigogne(PlgDon, 17, 1, 2, 7)
nbS = 0: nbB = 0
SHONt = 0
For Each DR In OP.Co
.....
TS(L, 4) = DR.NbSi(24, "OUI") 'Nb SITE
nbS = nbS + DR.NbSi(24, "OUI")
For Each SIT In DR.Co
nbB = nbB + SIT.NbSi(24, "OUI")
TS(L, 5) = TS(L, 5) + SIT.NbSi(24, "OUI") 'nb BAT
SHONt = SHONt + SIT.SommeSi(24, "OUI", 13) 'SHON
Next SIT
Next DR
L = L + 1
TS(L, 4) = nbS
TS(L, 5) = nbB
TS(L, 10) = SHONt