1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Function TableauDetail(choix)
Dim resultat,consol,k,increment
resultat="<table border=""1"" align=""center"" width=""600"">" & vbcrlf & _
"<tr align=""center"" BGCOLOR=""yellow""><td width=""10%"">Numéro</td><td width=""50%"">Nom des RMS</td><td width=""40%"">Secteur</td></tr>"
consol = detail_consolidat(choix)
For k=0 to UBound(consol,2)
resultat=resultat & "<tr><td align=""center"">" & (k+1) & "</td><td align=""center"">" & consol(0,k) & "</td><td align=""center"">" & consol(1,k) & "</td></tr>"
Next
resultat=resultat & "</table>"
TableauDetail= resultat
End Function |
Partager