Sub Interprétation_graphique()
Dim codification As Long
Dim somme_poids As Integer, Démérite As Integer, i As Integer
Dim Indicateur_de_la_Qualité As Single
i = 10
Démérite = 0
somme_poids = 0
Indicateur_de_la_Qualité = 0
With Sheets("Données recueillies")
codification = .Cells(10, "B")
While CStr(codification) <> ""
If .Cells(i, "N") = codification Then
somme_poids = somme_poids + .Cells(i, "Q")
If .Cells(i, "Z") = "Oui" Then
Démérite = Démérite + .Cells(i, "Q")
ElseIf CStr(codification) = "-" Then
Démérite = Démérite + .Cells(i, "Q")
End If
End If
i = i + 1
codification = Cells(i, "B")
Wend
End With
Indicateur_de_la_Qualité = 100 - Démérite * (100 / somme_poids)
With Sheets("Interprétations graphiques")
.Cells(18, "C") = Démérite
.Cells(18, "E") = Indicateur_de_la_Qualité
End With
End Sub