Erreur avec Visual Basic

cranouf -  
ccm81 Messages postés 11033 Statut Membre -
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


A voir également:

1 réponse

ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0