Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb affectation listbox.value

  • Initiateur de la discussion Initiateur de la discussion ERIC S
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ERIC S

XLDnaute Barbatruc
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
 

Pièces jointes

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.


?????
 
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
 
Dernière édition:
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
 
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 à "" ????
 
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 ?
 
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
 
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..

😕
 
Re : Pb affectation listbox.value

boujour à tous

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

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
Réponses
6
Affichages
2 K
sandy13
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…