Discussion :

[fxbrg]

Bonjour,

J'ai un champ texte dans lequel on rentre... une référence.

Pour aider à trouver la référence, j'ai un ensemble de combobox (dont les listes de valeurs sont variables selon les autres combo) avec les différents choix possibles pour chaque paramètre. Dans ce sens là (combobox pour remplir la référence), ça fonctionne super...

Par contre, je veux laisser la possibilité de remplir directement la référence et de "l'éclater" pour renseigner les différentes combobox (pour "expliquer" les paramètres de la référence). Ca marche aussi sauf que, si une erreur est faite dans la saisie de la référence, la combobox est renseignée avec la valeur en provenance de la référence, et en cas d'erreur, la dite valeur ne fait pas partie de la liste des valeurs de la combobox.

Si je ne suis pas clair un exemple...

Référence : ABCDE

Combobox A : 1;2;3

Si la référence saisie est 4BCDE, ma combo prend la veleur 4, qui n'est pas dans la liste...

Sur toutes mes combo, j'ai mis "limiter à liste" sur oui, mais ça ne fonctionne que si on veut saisir une valeur directement, aucun effet lorsque la valeur est remplie par le code... J'ai essayé la méthode NotInList sur la combo, mais idem...

Je suppose qu'en déclarant un Array, en y mettant la suite des valeurs de la combo puis en faisant un test de comparaison ça pourrait le faire, mais je suis bien certain qu'il y a un moyen plus simple...

J'en appelle à vos connaissances, d'avance merci!!

Amicalement,

JFB

[fxbrg]

Re :-)

Je ne suis pas sur que ce soit la meilleure solution, mais je suis arrivé à ça :

Code :

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

1
2
3
4
5
For Each ctrl In Me.Controls
    If TypeOf ctrl Is ComboBox And ctrl.Tag = "A" Then
        If InStr(ctrl.RowSource, ctrl.Value) = 0 Then ctrl = ctrl.ItemData(0)
    End If
Next

et ça marche...

Mais si vous avez mieux/plus court, n'hésitez pas!!

Amicalement,

JFB