Programme vb6 copier liste sans répéter les noms

**nuage33** · 23/10/2006, 22h58

je doit concevoir un programme qui lit une liste pas de problème pour se stade mais après je doit copier la liste dans deux listbox sans recopier le même nom deux fois et je suis à cour de source
pour défénir un peu plus j'ai une liste qui est ma liste principale et je dois former deux équipe avec cette liste dans deus autre sans répéter le même nom j'ai un bouton copier et transferer et les nom ne dois pas se recopier

si qu'elqu'un pourrais m'aider je suis à bout de source et de commande

merci si vous avez besoin plus d'information écrivez moi

**ThierryAIM** · 24/10/2006, 08h45

Merci pour le titre du post

Je suppose que tu remplis ta liste avec des ListBox.AddItem, le plus simple serait peut-etre de supprimer le nom dans la liste principale lorsqu'il est ajouté dans l'une des 2 autres listes, non ? (avec ListBox.RemoveItem)

**Delbeke** · 24/10/2006, 11h32

Tu peux te créer une petite fonction controlant si le texte est déja dans la liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Function EstDansListe(Lst As ListBox, Texte As String) As Boolean
  Dim iPnt As Integer
  EstDansListe = False
  For iPnt = 0 To Lst.ListCount - 1
    If Lst.List(iPnt) = Texte Then
      EstDansLisqte = True
      Exit For
    End If
  Next
End Function

Et appres tu fais

Code :

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

1
2
3
 If Not EstDansListe(List1,MaVariableTexte) then
    List1.AddItem MaVariableTexte
 end if

**nuage33** · 24/10/2006, 22h55

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
Private Sub copiera1_Click()
If listeempl.ListCount = -1 Then
    MsgBox "Vous devez sélectionner un nom"
Else
    listeequipe1.AddItem listeempl.Text
 
End If
End Sub
 
Private Sub copiera2_Click()
If listeempl.ListCount = -1 Then
    MsgBox "Vous devez sélectionner un nom"
Else
    listeequipe2.AddItem listeempl.Text
 
End If
End Sub

voici mes deux ligne sur lesquelles je dois copier sans répéter les mêmes nom
je te remercie de m'avoir répondu mais j'ai un peu de misère à tout comprendre ton programme que tu as écrit parce que présentement cela se copie mais je n'arrive pas à copier seulement une fois le nom il se répète je sais qu'il faut un while au début mais c'est tout

merci encore car j'ai presque plus de cheveux sur la tête

**Delbeke** · 24/10/2006, 23h05

Bon, en reprenant tes propres composants
ca donne

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
Private Sub copiera1_Click()
  Dim strTemp as string
  Dim Index As Integer
  Index = listeempl.ListIndex  'N° de la ligne selectionnée
  If Index = -1 Then
    'Pas eu de selection
    MsgBox "Vous devez sélectionner un nom"
  Else
   strTemp=listeempl.List(Index)  'contenu de la Index-ième ligne
   if Not EstDansListe(listeequipe1,strTemp) then
      listeequipe1.AddItem strTemp
   end if
  End If
End Sub
 
Private Sub copiera2_Click()
  Dim strTemp as string
  Dim Index As Integer
  Index = listeempl.ListIndex
  If Index = -1 Then
     MsgBox "Vous devez sélectionner un nom"
  Else
    strTemp=listeempl.List(Index)
    If Not EstDansListe(listeequipe2,strTemp) then
       listeequipe2.AddItem strTemp
    End if
  End If
End Sub
 
Private Function EstDansListe(Lst As ListBox, Texte As String) As Boolean
  Dim iPnt As Integer
  EstDansListe = False
  For iPnt = 0 To Lst.ListCount - 1
    If Lst.List(iPnt) = Texte Then
      EstDansListe = True
      Exit For
    End If
  Next
End Function

**nuage33** · 25/10/2006, 04h49

un gros merci de maider comme cela

il y juste un petit problème
quand je fais le code il a cette ligne qui fait toujours un erreur

Code :

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

If Not EstDansListe(listeequipe2,strTemp)

la boite de dialogue dit ceci :

compile error
expected array

nuage

**AlainTech** · 25/10/2006, 05h17

Je ne comprends pas pourquoi vous ne suivez pas la proposition de Thierry.
C'est la manière la plus logique de travailler.

Envoyé par ThierryAIM

le plus simple serait peut-etre de supprimer le nom dans la liste principale lorsqu'il est ajouté dans l'une des 2 autres listes, non ? (avec ListBox.RemoveItem)

**Delbeke** · 25/10/2006, 08h30

Parceque le solution de thierry ne permet pas de passer un nom sur chacune des deux listes. Ce qui pourrais être un avantage ou un inconvenient, selon le cas.

Pour ce qui est de l'erreur de compilation. chez moi ca passe nickel

**ced600** · 25/10/2006, 10h10

je ne suis pas sur de ce que nuage33 veut faire, mais je vois mal une personne travailler dans deux equipes différentes. La solution de ThierryAim c'est la plus logique et la plus simple.

**nuage33** · 25/10/2006, 13h07

je part d'une liste pricipale et a partir de celle -ci je dois former deux équipe sans supprimer la liste principale

sinon je l'aurais fait depuis le début

et c'est un programme pour l'école alors je n'ai pas le choix

merci bye bye

**ced600** · 25/10/2006, 13h37

bah dans ce cas, pour chaque nom dans la liste tu n'as qu'à l'ajouter à la liste d'une des equipes choisie comme tu las fait pour la liste principale.
Je ne vois pas où est ton problème !!!

**nuage33** · 26/10/2006, 04h45

j'ai eu le speudo code aujourd'hui

et je crois que j'ai bien compris si vous voulez comprendre le problème que j'avais bien voilà le speudo code

et merci à tout ceux qui on bien prit de leur temps pour m'aider

La copie des employes dans l’équipe 1

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
Debut
Si le nombre d’employer sélectionner dans la liste des employés + le nombre de joueur dans l’équipe 1 > 20 alors 
Afficher  « l’équipe 1 ne doit pas dépasser 20 joueurs « 
Sinon
Noemploye  0
Tanque noemploye < le nombre d’employés dans la liste des employés
Si l’employé qui a le no noemployé dans la liste des employés est sélectionné alors
Joueurpresentequipe1  faux
Nojoueurequipe1 0
Tantque nojoueurequipe1 < le nombre de joueur dans l’équipe 1
Si l’employé qui a le no noemployé dans la liste des employé = joueur qui a le no nojoueurequipe1 dans l’équipe 1 alors
Joueurpresentequipe1  vrai 
Finsi
Nojoueurequipe1  nojoueurequipe1 +1
Répéter
Si joueurpresentequipe1 alors
Afficher l’employé qui a le no noemployé dans la liste des employé  & « est présent dans l’équipe 1 »
Sinon
Joueurpresentequipe2  faux
Nojoueurequipe2 0
Tantque nojoueurequipe2 < le nombre de joueur dans l’équipe 2
Si l’employé qui a le no noemployé dans la liste des employé = joueur qui a le no nojoueurequipe2 dans l’équipe 2 alors
Joueurpresentequipe1  vrai 
Finsi
Nojoueurequipe2  nojoueurequipe2 +1
Répéter
Si joueurpresentequipe2 alors
Afficher l’employé qui a le no noemployé dans la liste des employé  & « est présent dans l’équipe 2 »
Sinon
Ajouter , dans l’équipe 1, l’employé qui a le no noemployé dans la liste des employés
Finsi
Finsi
Finsi
Noemploye  noemployé +1
Répéter
Finsi
fin

**AlainTech** · 26/10/2006, 05h22

Ah, ben, si tu as le pseudo code, tu n'as plus qu'à le traduire pour faire TON exercice.

Je pense que tu as déjà reçu suffisamment de pistes pour pouvoir t'en sortir, maintenant.

**Phifi** · 26/10/2006, 08h17

Hey AlainTech, tu les commences tôt tes journées !

**AlainTech** · 26/10/2006, 10h06

Eh, oui...
Et il m'arrive de les finir tard.

Programme vb6 copier liste sans répéter les noms

VB 6 et antérieur

Discussions similaires

Partager

Partager