Modification Combobox

[vmax67]

Bonjour

merci pour la modification c'est super

j'ai juste une petite question concernant une modification de code:

J'ai actuellement une listbox qui me permet de sélectionner 3 joueurs qui sont copier au fur et
à mesure dans des Textbox n° 1,2, et 3.

Comment éviter le tri alphabétique lorsque je valide un joueur pour les Textbox.

Quand je choisis le premier joueur celui-ci doit rester dans TxtBox 1 le 2 en TxtBox 2 et le 3 TxtBox 3

Par contre il faut garder le tri dans la listbox.

En pièce jointe un fichier exemple

Bien cordialement

VMAX67

 

[CHALET53]

Re : Modification Combobox

Bonjour,

Pas compris le problème ?

a+

 

[vmax67]

Re : Modification Combobox

Bonjour

pour faire cette application sert à remplir feuille de compétition.
Pour commencer il faut valider le non du club recevant, ce qui active la listbox avec des noms de joueurs.
Dans cette liste on sélectionne 3 joueurs joueurs par clic ce qui à pour effet de remplir les textbox 1,2,3
malheureusement cela ce fait avec tri alphabétique alors que ça ne devait pas le faire.
Le premier joueur sélectionner doit apparaitre dans TxtBox1
Le deuxième sélectionner dans TxtBox2
Le troisième sélectionner dans TxtBox3

Voila

@+

 

[laetitia90]

Re : Modification Combobox

bonjour vmax67,CHALET🙂🙂


une version pas trop simplifier...... trés chi... a manipuler les listbox multiselect

en complement
tu peus enlever,remettre , modifier item

le code de la listbox change le par celui la un peu plus "clean"

Private Sub lbx1_Change()
 If lbx1.ListIndex = -1 Then Exit Sub
 c = 0
 For i = 0 To lbx1.ListCount - 1
 If lbx1.Selected(i) Then c = c + 1
 If c > 3 Then lbx1.Selected(lbx1.ListIndex) = 0
 Next i
 If lbx1.Selected(lbx1.ListIndex) Then
 For w = 1 To 12
 If Me("T" & w) = "" Then _
 Me("T" & w) = lbx1.List(lbx1.ListIndex, 1): Me("T" & w + 3) = lbx1.List(lbx1.ListIndex, 2): Exit For
 Next w
 Else
 For w = 1 To 12
 If Me("T" & w) = lbx1.List(lbx1.ListIndex, 1) Or Me("T" & w) = lbx1.List(lbx1.ListIndex, 2) Then _
 Me("T" & w) = "": Me("T" & w + 3) = "": Exit For
 Next w
 End If
 End Sub

 

[Si...]

Re : Modification Combobox

salut

un autre exemple (listes* déplacées pour commodité) avec exclusions automatiques des choix successifs par simples clics.

* bien entendu avec ces listes réduites

A noter que le fichier joint enregistré comme .xls ne réagit pas de la même fçon.