Gros bug aléatoire dans la coloration de label

[scaleo]

Bonjour à tous,

je suis désespéré face à ce gros Gros BUG de VBA....

je m'explique :

j'utilise un formulaire pour compléter un tableau. Et avant de recopier les données du formulaire dans le tableau,
j'ai une partie de mon programme qui me met en rouge les "cases" obligatoire que j'aurai oublié.

ça marche nickel pour changer la couleur des frames contenant des optionbuton , pour des labels au dessus de textbox aussi .

Mais pour mes labels au dessus de listbox c'est l'anarchie total.... à chaque nouvel essais ce ne sont pas les mêmes qui plantent, et pourtant j'ai fais copier/coller pour chaque listbox et chaque condition pour le forecolor.

j'ai mis le document de teste en PJ. si quelqu'un peut me donner ,ne serai-ce qu'une piste ou une idée pour résoudre ce problème, il (ou elle) serait mon sauveur !

merci d'avance

 

[tototiti2008]

Re : Gros bug aléatoire dans la coloration de label

Bonjour scaleo,

Peux-tu expliquer ce qui "plante" car ce n'est pas très clair pour moi, même après avoir ouvert et testé ton fichier...

 

[scaleo]

Re : Gros bug aléatoire dans la coloration de label

bonsoir

ce que je souhaite, c'est que si une valeur n'est pas sélectionnée (devenue bleue ) dans une listbox, le label qui lui est attribué devienne rouge.

pour tester que tout marche , il suffit de cliquer sur le bouton valider pour mettre en rouge les fautifs.

maintenant c'est les listes 3 5 et 8 qui merdouillent.

 

[tototiti2008]

Re : Gros bug aléatoire dans la coloration de label

Re,

Peut-être (à reproduire pour toutes les listbox)

ElseIf IsNull(liste_1_list.Value) Or liste_1_list.Value = "" Then

Bizarrement certaines sont Null par défaut et d'autres sont égales à "", je n'ai pas compris pourquoi...

 

[scaleo]

Re : Gros bug aléatoire dans la coloration de label

Merci beaucoup ! ça marche !

en théorie, une listbox qui n'est pas sélectionnée ne peut être que Null et pas = "" ?

bizarre....

 

[tototiti2008]

Re : Gros bug aléatoire dans la coloration de label

Re,

Sinon, plus court, tu peux simplement tester le rang de la valeur sélectionnée (si -1 alors rien de sélectionné)

ElseIf liste_1_list.ListIndex = -1 Then

 

[scaleo]

Re : Gros bug aléatoire dans la coloration de label

le = -1 signifie que la valeur de la listbox n'est pas sélectionnée ?

 

[tototiti2008]

Re : Gros bug aléatoire dans la coloration de label

Re,

Oui, ListIndex c'est le rang de la valeur sélectionnée, et -1 veut dire "pas de sélection"
L'aide VBA sur ListIndex devrait t'aider à comprendre

 

[scaleo]

Re : Gros bug aléatoire dans la coloration de label

ok merci pour le tuyau

le soucie avec l'aide, c'est que c'est dur de trouver les bons mots-clés pour avoir ce que l'on cherche.

merci pour ton aide tototiti