Private Sub OptionButton5_Click()
Dim cell As Range
compteur = 0
For Each cell In Range("[B]D41:D49[/B]")
If cell.Value = [B]OptionButton5.Caption[/B] Then
compteur = compteur + 1
End If
Next cell
MsgBox "" & compteur & " problèmes ont un impact significatif", vbInformation, "Nature de l'impact"
pourcentage = (compteur / 10) * 100
MsgBox "soit" & Chr(10) & pourcentage & " %", vbInformation, "Statistiques sur les impacts"
End Sub