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 :
merci d'avance
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
amicalement lucas
Partager