Probleme dans mes tableaux
Voila j ai plusieurs phrases et je dois melangé les mots de chaque phrases et les affiché par exemple dnas une list box
ex: j ai 2 phrases coucou les amis
bonne année a tous
Je voudrais les affichés comme ca:
les coucou amis
tous année a bonne
au mieux de ca j ai ce resultat
les coucou amis
amis tous coucou annnée bonne les a
Il garde en memoire la 1 er phrases et la melange avec la deuxieme
voici mon code
Code:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
| Private Sub Bou_melanger_Click()
Dim i As Integer
Dim j As Integer
Dim z As Integer
Dim k As Integer
Dim tab_mot() As String
Dim int_nbr_mot As String
Dim tab_nombre() As Integer
Dim tab_phrase_melang As String
Dim tab_select_phras() As String 'tableau contenant les phrases de la liste phrase selectionné
Dim str_mot As String
Dim int_long As Integer
Dim str_phrase_mel As String
List_mel.Clear
If List_select.ListCount = 0 Then 'si ya pas de phrase dans la list_select
MsgBox "Vous devez d'abord sélectionné des phrases" + vbCrLf + "Double clik sur un phrase pour la sélectionné", vbExclamation, vbSystemModal
Exit Sub
End If
For i = 1 To List_select.ListCount
ReDim Preserve tab_select_phras(i) 'phrase selectionné
tab_select_phras(i) = List_select.List(i - 1) 'contient les phrases selectionné
Next i
Randomize Timer
For i = 1 To UBound(tab_select_phras)
tab_select_phras(i) = tab_select_phras(i) + " "
int_long = Len(tab_select_phras(i))
For z = 1 To int_long
str_mot = str_mot + Mid(tab_select_phras(i), z, 1)
If Mid(tab_select_phras(i), z, 1) = " " Then
k = k + 1
ReDim Preserve tab_mot(1 To k)
tab_mot(k) = Trim(str_mot)
str_mot = ""
End If
int_nbr_mot = k
Next z
ReDim tab_nombre(k)
tab_nombre(1) = Int(Rnd * k) + 1 'générer un nombre aléatoire compris entre des bornes choisies
For j = 2 To int_nbr_mot
tab_nombre(j) = Int(Rnd * k) + 1
For z = j - 1 To 1 Step -1
If tab_nombre(j) = tab_nombre(z) Then
j = j - 1
z = 0
Exit For
End If
Next z
Next j
For z = 1 To int_nbr_mot
tab_phrase_melang = tab_phrase_melang & " " & tab_mot(tab_nombre(z))
Next z
List_mel.AddItem tab_phrase_melang
tab_phrase_melang = ""
Next i
End Sub |
merci d avance
