Pb affectation listbox.value

[ERIC S]

Bonjour à tous

aujourd'hui c'est moi qui ai un pb :

j'ai un USF avec des listbox et des checkbox
Le but est d'imposer la valeur des listbox si les checkbox sont cochées

le pb est que ce que j'ai fait n'est pas fiable, à l'écran tout semble ok, ma valeur par défaut apparait bien, bleue donc théoriquement activée mais quand je récupère les valeurs (valider), certaines sont à null 😡 😡

je ne comprends pas pourquoi

Merci

 

[dg62]

Re : Pb affectation listbox.value

Bonjour Eric S


je n'ai pas pour l'instant de solution à ton problème mais j'ai réalisé 2 tests


le premier avec excel 2007 et là ta procédure fonctionne bien.

le deuxieme sur excel 2003 et là des valeurs sont nulles.


?????

 

[ERIC S]

Re : Pb affectation listbox.value (Non résolu)

re

effectivement j'ai 2003 😡

je n'ai rien vu sur le site microsoft mais la recherche n'y est pas toujours évidente

 

[Hervé]

Re : Pb affectation listbox.value

bonjour eric, didier

grand mystere que ceci 😕

j'ai modifié la msgbox comme ceci :

MsgBox (ListBox4.List(ListBox4.ListIndex) & Chr(10) & ListBox5.List(ListBox5.ListIndex) & Chr(10) & ListBox6.List(ListBox6.ListIndex) & Chr(10) _
& ListBox7.List(ListBox7.ListIndex))

et ca a l'air de fonctionner (sous reserve bien sur qu'un item soit sélectionné dans les listbox)

mais j'ai pas compris pourquoi ca ne marchait pas avec ton code 😡

ta listbox4, à deux colonnes au contraire des autres listbox.

salut

 

[dg62]

Re : Pb affectation listbox.value

Salut Hervé
re eric


je viens de copier ton code pour essayer :

si toutes les checkbox ne sont pas à true ça plante ?

j'ai inséré des debug.print pour pour obtenir la propriété value, listindex et text et là ça change rien.
j'ai des value à défaut et d'autres à "" ????

 

[ERIC S]

Re : Pb affectation listbox.value (non résolu - contourné)

re àvous deux

j'ai modifié mon code pour contourner le pb. Cela marche mais si quelqu'un a l'explication......🙄 🙄 🙄

donc j'utilise le listindex qui lui est toujours bon et égal à -1 si non sélection dans listbox (donc erreur non sélection piégée, je force l'utilisateur à valider le champ)

code checkbox:

If CheckBox1.Value = True Then
ListBox4.Text = club
Else
ListBox4.ListIndex = 0
ListBox4.Selected(ListBox4.ListIndex) = False

Code valider:

Dim vide As Single
vide = 0
If ListBox4.ListIndex = -1 Then vide = vide + 1
If ListBox5.ListIndex = -1 Then vide = vide + 1
If ListBox6.ListIndex = -1 Then vide = vide + 1
If ListBox7.ListIndex = -1 Then vide = vide + 1
If vide > 0 Then
MsgBox ("Il y a " & vide & " équipes non sélectionnée(s)")
Exit Sub
End If

Question subsidiaire : peut-on boucler pour le test -1, A priori listbox(i) ne passe pas ?

 

[mutzik]

Re : Pb affectation listbox.value

bonjour à tous

peut-être une piste : ce que j'ai lu dans l'aide

Vous ne pouvez utiliser la propriété Text pour changer la valeur d'une entrée d'un contrôle ComboBox ou ListBox. Pour cela, utilisez les propriétés Column ou List

 

[ERIC S]

Re : Pb affectation listbox.value

Bonjour Bertrand

effectivement text n'est pas utilisable pour changer une valeur de la liste (note en bas de l'aide) mais text change la ligne sélectionnée (en haut de l'aide) et il faut que la valeur de text appartienne à la liste sinon erreur..

😕

 

[Hervé]

Re : Pb affectation listbox.value

boujour à tous

eric, pour la boucle sur le -1, une proposition :

Dim vide As Single
Dim i As Byte

For i = 4 To 7
    vide = vide - (Controls("listbox" & i).ListIndex = -1)
Next i
If vide > 0 Then
MsgBox ("Il y a " & vide & " équipes non sélectionnée(s)")
End If

ca m'ennerve de pas comprendre pourquoi ton code ne fonctionnait pas 😡

salut

 

[ERIC S]

Re : Pb affectation listbox.value

Re Hervé,

je ne connaissais pas controls - Merci

cela fait quand même plus propre (et moins long à écrire et modifier)

 

[michel_m]

Re : Pb affectation listbox.value

Bonjour à tous,

Avec XL2000 seules listbox5 et 7 fonctionnent...

Je sèche également

Michel_M