Salut;

Quelqu'un peut me dire ce qui ne va pas dans mon Split? J'ai une erreur sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
monTab = Split(HiScores(i), " ")
Lorsque j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim monTab as String
l'erreur est "Attendu tableau" et lorsque je déclare
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim monTab (1 To 4) as String
l'erreur est "Impossible d'affecter au tableau".
Dans HiScore(i), il y a une chaîne, toujours sous la forme "nomJoueur Score NomJoueur Score".

Merci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim monTab As String
'Dim monTab (1 to 4) as String
    Dim BestHiScore As Integer
    BestHiScore = 0
    'Trouver le meilleur HiScore
    For i = 1 To 15
        If HiScores(i) <> "" Then
            monTab = Split(HiScores(i), " ")
            If BestHiScore < CInt(monTab(2)) Then
                BestHiScore = CInt(monTab(2))
            End If
        End If
    Next i