Erreur avec Visual Basic

Bonjour,

Je suis débutant sur VB et j'ai crée un programme 'simple pour calculer un moyenne. Or une fois que je le lance il m'affiche toujours la valeur '0' ?
je suis perdu, serait-il possible de m'indiquer mon erreur ? Merci

Private Sub CommandButton1_Click()
Dim T(1 To 10, 1 To 10) As Single
Dim s As Single
Dim n As Single
Dim il As Integer
Dim ic As Integer
Dim nbl As Integer
Dim nbc As Integer
nbl = InputBox("Analyseur", "Veuillez indiquez le nombre de ligne à analyser", 5)
nbc = InputBox("Analyseur", "Veuillez indiquez le nombre de colonne à analyser", 5)
s = 0
n = nbl * nbc
For il = 1 To nbl Step 1
For ic = 1 To nbc Step 1
s = s + T(il, ic)
Next ic
Next il
s = s / n
Call MsgBox(s)
End Sub
Private Sub CommandButton2_Click()
End
End Sub

1 réponse

  1. bonjour

    Ton tableau T n'a reçu aucune valeur, donc toutes ses cases sont à 0

    RQ. tu peux déclarer ton tableau comme variant
    dim T
    puis le (re)dimensionner une fois nbl et nbc affectés
    ReDim T(1 To nbl, 1 To nbc)

    bonne suite