Discussion :

[Lucas42]

Bonjour , j'ai une erreur que je n'arrive pas à resoudre
le principe du programme est de chercher un caractére dans un chaine , et de recopier les caractére situé avant celui rechercher dans un tableau , et c la ke ca bug
voici le programme :

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
23
24
25
26
27
28
29
30
31
32
33
 
Dim chaine As String
Dim caractere_rechercher As String
Dim caractere_trouver As Boolean
Dim caractere_chaine As String
Dim taille_chaine As Integer
Dim nom_menu As String
Dim tab_nom_menu() As String
Dim i As Integer
Dim a As Integer
 
Private Sub Command1_Click()
i = 1
a = 0
chaine = Text1.Text
caractere_trouver = False
caractere_rechercher = ">"
taille_chaine = Len(chaine)
 
While caractere_trouver = False
caractere_chaine = Mid(chaine, i, 1)
 
If caractere_chaine = caractere_rechercher Then
Label1.Caption = nom_menu
Else
caractere_chaine = tab_nom_menu(a)   <----- INDICE EN DEHORS DE LA PLAGE 
nom_menu = nom_menu & tab_nom_menu(a)
i = i + 1
a = a + 1
End If
 
Wend
End Sub

merci d'avance
amicalement lucas

[pc75]

Bonjour,

Il faut (je pense) que tu redimentionne ton tableau.

Regarde du côté de redim preserve

[linda15975]

Ton tableau n'est pas dimensionner donc la case de ton tableau n'existe pas.
De plus, sur la ligne où il y a l'erreur, j'aurai échangé les 2 éléments car, là, tu change la valeure de chaine_caractère, et tu ne met rien dans le tableau