Discussion :

[kiki51500]

Bonjour à tous,

Est il possible de mettre 2 Listes déroulantes dans un formulaire mais pas en cascade pour actualiser des données dans un sous formulaire?
Si je devais comparer à l'automobile, j'aimerai chercher une voiture soit par une liste déroulante des immatriculations OU par une autre liste déroulante des numeros de serie du moteur
j'ai donc un sous formulaire des données pour le resultat de ma recherche mais je n'arrive à faire fonctionner qu'un seul formulaire, soit l'un soit l'autre.
Je pense qu'en VBA, il doit être possible d'actualiser l'un par rapport à l'autre apres MAJ mais comment faire?

Merci à vous

[tee_grandbois]

bonjour,
si les 2 listes déroulantes sont basées sur la même requête et que la colonne liée est la même, il suffit d'affecter la valeur de la liste active à l'autre liste et vice-versa (sur évènement Click ou AfterUpdate de chaque liste):

Code :

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

1
2
3
Private Sub ZDListe2_Click()
    Me.ZDListe1.Value = Me.ZDListe2.Value
End Sub

[kiki51500]

Après differents essais, je n'ai pas réussi à utiliser la technique.

[tee_grandbois]

la technique fonctionne je l'ai utilisée souvent, après, il peut y avoir plein de causes différentes pour empêcher le bon fonctionnement. Mais sans rien devant les yeux difficile de trouver facilement.
Tout d'abord, est-ce que cela convient vraiment à ton besoin, peux-tu faire une impression d'écran de ton formulaire pour donner un ordre d'idée ?

Ensuite, il faudrait connaitre le contenu de chacune des listes et savoir quel champ lie les 2 car c'est important que l'identifiant unique soit présent dans les 2 listes car il sert à la mise à jour de l'une par l'autre.

[kiki51500]

Mode cool on
Alors la fin de l'histoire
Ma femme rentre du boulot et me dit:
Oh ça j'en ai deja fait plein au boulot
Tu fais ça ça et ça
Et ça marche
Grrr!!!
mode cool off

En fait je m'obstinais a creer un Sous formulaire dans le formulaire
Elle, elle cree 2 formulaires et elle insere l'un dans l'autre via le sous formulaire
pas besoin de VBA pour mon besoin ça marche tout seul...
Merci pour l'aide en tout cas

Je passe en résolu

[hyperion13]

Aller à l'essentiel

Code :

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

1
2
3
4
...
Me.Filter = "immat = '" & Me.cboimmat & "'" & " OR numoteur = '" & Me.cbomoteur & "'"
Me.FilterOn = True
...

où les 2 cbo retournent une valeur string et ne sont pas liées.