Discussion :

[nabilfaouzi]

salut, je veux savoir comment rechercher des enregistrement dans un tableau sachant que ce tableau contient des textbox et des combobox. mon code :

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
34
35
36
37
38
39
40
41
42
43
 
Type auto ' Nouveau type defini dans un module
 
 num As Integer
 imat As String
 dt As Date
marque As String
pane As String
employé As String * 20
 
End Type
'-----------------------------
te() as auto 
e as auto
ne as integer
 
Private Sub enregistrer_Click() 'Enregistrer les element dans un tableau
 If Text2.Text <> "" Then
        e.num = Text1.Text
        e.imat = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
 
        e.dt = Text5.Text
 
        e.marque = Combo1.ListIndex
 
        e.pane = Combo2.ListIndex
    e.employé = Combo3.ListIndex
       ne = ne + 1
 
        If ne = 1 Then
            ReDim te(0)
        Else
            ReDim Preserve te(ne - 1)
        End If
 
    te(ne - 1) = e
 
 
   MsgBox ("enregistré:" & ne)
 
 
 
    End If

[sovo]

Et si tu faisais tout simplement une boucle sur tous les elements du tableau et a chaque fois tu compares avec l'element que tu cherches ?

[OhMonBato]

Le tableau en lui même ne contient que des strings ou des valeurs numériques, valeurs que tu peux ensuite affecter à des controles.
Mais tu ne précises pas le principe même de ta recherche.
Les éléments de ton tableau peuvent ils avoir des éléments en commun ? Ont-ils tous une caractéristique unique (imat probablement ?) ?

Combien d'éléments comportera ton tableau ?

[nabilfaouzi]

je ne sais pas si ce code est correcte à 100% mais pour la question sur combien d'element dans ce tableau: le tableau redimensionne à chaque fois que je click sur bouton enregistrer. pour imat ils ont tous les même caracterestique.
"et pour plus de precision je veux chercher selon le num s'il le trouve alors il affiche dans chaque emplacement(textbox et combobox) les information lié avec ce numéro par exemple
j'ai 3 enregistrement de num 1,2,3 quand j veux chercher les information sur le num 1 je click sur le bouton chercher et il me demande le num et il affiche les information concernant ce num (l'imatricule(dans le textbox),la date(dans le textbox) d'arriver, le type de panne(combobox)....).
j'espere que j'ai bien détaillé mon probleme et merci pour toute réponse.

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
Type auto ' Nouveau type defini dans un module
 num As Integer
 imat As String
 dt As Date
 marque As String
 pane As String
 employé As String * 20
End Type

Alors que

Code :

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

1
2
3
e.marque = Combo1.ListIndex ' ListIndex =numerique de type Integer
e.pane = Combo2.ListIndex ' idem
e.employé = Combo3.ListIndex ' idem

je pense que tu veux recuperer le text de chaque Combo, si oui il faut passer

Code :

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

1
2
3
e.marque = Combo1.list(Combo1.ListIndex)
e.pane = Combo2.list(Combo2.ListIndex)
e.employé = Combo3.list(Combo3.ListIndex)

Je revien sur ce post apres la reponce a cette sugestion.

[nabilfaouzi]

oui, tu as raion mais je veux faire ajouter une bouton chercher qui me demande apres avoir enregistrer mes element dans le tableau: Entrer le num(text1.text), il teste s'il existe dans le tableau (e.num=à la valeur à chercher)puis il affiche les infos concernant le numero entrer 'il existe.

[ProgElecT]

je crois que cela doit être un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For T = 0 To UBound(te)
 If te(T).num = numRechercher Then
  Text1.Text = numRechercher
  Text2.Text = Month(te(T).dt)
  Text3.Text = Day(te(T).dt)
  Text4.Text = Year(te(T).dt)
  Combo1.Text = te(T).marque
  Combo2.Text = te(T).pane
  Combo3.Text = te(T).employé
  Exit For
 End If
Next T

pour tes declaration, ce serait mieux comme sa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Type auto ' Nouveau type defini dans un module
 num As Integer
 imat As String
 dt As Date
 marque As String
 pane As String
 employé As String * 20
End Type
'-----------------------------
Dim te() As auto
Dim e As auto
Dim ne As Integer
Dim T As Integer

[nabilfaouzi]

et comment indiquer le numRechercher?

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdRech_Click()
Dim numRechercher As Integer
numRechercher = InputBox("quel N°")
Dim Trouver As Boolean
Trouver = False
For T = 0 To UBound(te)
 If te(T).num = numRechercher Then
  '....
  Trouver = True
  Exit For
 End If
Next T
If Trouver = False Then MsgBox "pas trouvé"
End Sub

[nabilfaouzi]

vous etes impressionant je te remercie pour ton aide, mais j'ai encore un petit probleme dans le tableau car il ne se redimmensionne pas et je ne peux faire q'un seul enregistrement

[nabilfaouzi]

toute est réglé yaisse2: le probleme est résolu merci infiniment et à la prochaine