Autant la s\u00e9lection automatique d’un item dans une liste modifiable est facile gr\u00e2ce \u00e0 une simple affectation, autant avec une liste classique c’est plus compliqu\u00e9.<\/p>\n\n\n\n
Je vous livre l’astuce consistant \u00e0 mettre un peu de code dans une liste d\u00e9roulante reprenant les valeurs de la liste.<\/p>\n\n\n\n
Dans l’\u00e9v\u00e9nement Apr\u00e8s MAJ<\/strong> de la liste d\u00e9roulante ou d’une zone de texte mettre le code VBA ci-dessous :<\/p>\n\n\n\n lstMultiple<\/strong> est la liste classique et lstRecherche<\/strong> est la liste modifiable ou la zone de texte ou vous s\u00e9lectionnez la valeur \u00e0 trouver.<\/p>\n\n\n\n L’astuce consiste \u00e0 parcourir la liste \u00e0 la recherche de la valeur, d’en capter l’indice de la ligne pour l’affecter \u00e0 cette m\u00eame liste.<\/p>\n\n\n\n Bonne utilisation !<\/p>\n","protected":false},"excerpt":{"rendered":" Autant la s\u00e9lection automatique d’un item dans une liste modifiable est facile gr\u00e2ce \u00e0 une simple affectation, autant avec une liste classique c’est plus compliqu\u00e9. Je vous livre l’astuce consistant \u00e0 mettre un peu de code dans une liste d\u00e9roulante … Continuer la lecture Dim i As Long \nDim i_save As Long\u00a0 \nMe.lstMultiple.Selected(0) = True\u00a0\u00a0\u00a0 'd\u00e9s\u00e9lection de la liste multiple \n\nFor i = 1 To Me.lstMultiple.ListCount - 1\u00a0 'parcours la liste multiple \u00a0\u00a0\u00a0Me.lstMultiple.Selected(i) = False\u00a0\u00a0\u00a0\u00a0\u00a0 'd\u00e9selection de l'\u00e9lement courant\u00a0\u00a0 \n If (Me.lstMultiple.ItemData(i) = CStr(Nz(Me.lstRecherche, \"\"))) Then \u00a0 \n 's'il est identique \u00e0 ce que je cherche \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \n i_save = i\u00a0 'je rep\u00e8re la ligne \u00a0\u00a0\u00a0 \n End If \nNext \nMe.lstMultiple.Selected(i_save) = True\u00a0 'en sortant je s\u00e9lectionne la liste<\/code><\/pre>\n\n\n\n