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