Discussion :

[Goupo]

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

[rv26t]

Bonjour,

Voici l'exemple repris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim monTab() As String    ' c'est un tableau
Dim HiScores() As String
Dim BestHiScore As Integer
 
  ReDim HiScores(2)
  For i = 0 To 2
    HiScores(i) = "score " & i ' forme "score 0", "score 1", ...
  Next
 
    BestHiScore = 0
    'Trouver le meilleur HiScore
    For i = 0 To 2
        If HiScores(i) <> "" Then
            monTab = Split(HiScores(i), " ") 'décompose
            If BestHiScore < CInt(monTab(1)) Then 'teste le 2éme éléments contenant le nombre
                BestHiScore = CInt(monTab(1)) ' note le nombre qui est dans le 2ème éléments du tableau
            End If
        End If
    Next i
    MsgBox BestHiScore
End Sub

A+, Hervé

[Goupo]

Ah ben c'était juste ça!
monTab commence à 0!
Merci!

[zazaraignée]

Et si la chaîne que tu 'splites' a plus que 4 espaces... ? Vaut mieux déclarer un tableau sans dimentions, un tableau dynamique, quoi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim monTableau() As String