j'arrive pas à faire compter VB !?

bonjour à tout le monde,

je suis sur un petit programme qui doit générer et/ou résoudre des grilles de Sudoku.
j'ai 81 label case0(index). je souhaiterai compter le nombre de chiffre total à savoir le nombre de 1 / 2 / 3 / ... / 9 sur l'ensemble des labels, mais je n'y arrive pas, le nombre doit s'afficher dans un textbox chiffre(index) (0 à 8)

Dim nombre As Integer 'nombre de fois le même chiffre
For v = 0 To 80 'index de 0 à 80 case0(index)
For u = 1 To 9 'valeur de la case de 1 à 9
If case0(v).Caption = u Then 'si la case cliquer égal à une valeur de 1 à 9
nombre = nombre + 1 '+1 nombre total de même chiffre
chiffre(u - 1).Text = nombre 'textbox chiffre(u-1) indexé 0 à 8 affiche le total
End If
Next u
Next v

qu'est ce qui  n'est pas bon ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...


_______________________by Acolyte __

Dim nombre As Integer 'nombre de fois le même chiffre
For v = 0 To 80 'index de 0 à 80 case0(index)
For u = 1 To 9 'valeur de la case de 1 à 9
If case0(v).Caption = u Then 'si la case cliquer égal à une valeur de 1 à 9
chiffre(u - 1).Text = Cstr(Val(chiffre(u - 1).Text)+1) 'textbox chiffre(u-1) indexé 0 à 8 affiche le total
End If
Next u
Next v

la variable nombre était commune à TOUS les nombres, du coup, tu comptais le nombre total de chiffres dans ta grille, et pas le nmobre de 1 ou de 2 ...


Manu

ca a changé un peu mais il y a un problème quelque par le textbox chiffre affiche pas le nombre de 1 / 2 / 3 / ... / 8 / 9 mais d'autre chiffre il arrive vite à 300, j'ai pas totu compris là ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...


_______________________by Acolyte __

merci beaucoup beaucoup beaucoup...

++

et bonne prog.

____________________________________
Acolyte vous remercie...


_______________________by Acolyte __

il faut utiliser la fonction val parceque le contenu du label ou bien de textbox est de type String,ce qui ne marche pas