combox box activeX

Question

Bonjour,

Ci dessous un code que j utilise pour remplir une combo box. La box se remplit parfaitement avec les elements de la spreadsheet.

Le probleme que j ai est lorsque je selectionne une valeur dans la liste deroulante rien ne s affiche dans la combobox. comment faire pour afficher la selection dans la combo? merci

Answer 1

Voici :

https://1drv.ms/x/s!AqRP0RQrhNWW13YsIAKtFftrZUuj

J'avais écrit : "J'ai ajouté cette macro qui s'exécute quand on modifie une cellule de la colonne C :"

Il fallait lire :

"J'ai ajouté cette macro qui s'exécute quand on modifie une cellule de la colonne A :"

Bonne soirée.

Daniel

Answer 2

merci bcp Daniel

j ai une petite question encore...

si ma liste est dynamique comment peut elle s updater dans la combo avec les changements?

merci

Answer 3

Tu peux par exemple utiliser ce code :

Dim teste As Boolean <br><br> <br><br>Private Sub ComboBox1_Change() <br><br>  teste = True <br><br>End Sub <br><br> <br><br>Private Sub ComboBox1_DropButtonClick() <br><br> <br><br>Dim i As Integer, L As Integer <br><br>If teste = True Then <br><br>  teste = False <br><br>  Exit Sub <br><br>End If <br><br>L = Sheets("Feuil1").Range("A65536").End(xlUp).Row <br><br>With Me.ComboBox1 <br><br>.Clear <br><br>For i = 1 To L <br><br>.AddItem Sheets("Feuil1").Cells(i, 1) <br><br>Next <br><br>End With <br><br>End Sub

Mais il est plus simple de remplir le combobox dans ThisWorkbook, à l'ouverture du fichier et de supprimer tout le reste du code :

Private Sub Workbook_Open() <br><br>Dim i As Integer, L As Integer <br><br>If teste = True Then <br><br>  teste = False <br><br>  Exit Sub <br><br>End If <br><br>L = Sheets("Feuil1").Range("A65536").End(xlUp).Row <br><br>With Sheets("Feuil1").ComboBox1 <br><br>.Clear <br><br>For i = 1 To L <br><br>.AddItem Sheets("Feuil1").Cells(i, 1) <br><br>Next <br><br>End With <br><br>End Sub

Daniel

Answer 4

Hello Daniel

https://1drv.ms/x/s!AtcqWRqR5FqLglI48iNl2rPwF0q8

C'est la premiere fois que j utilise OneDrive y arrives tu?

Merci pour ton aide

Laurent

Answer 5

Bonjour,

L'événement Change doit afficher la valeur choisie, à moins que le code l'en empêche. 

Est-ce que tu peux mettre ton classeur, sans données confidentielles, sur OneDrive, DropBox ou sur un autre site de partage et poster le lien correspondant ?

Cordialement.

Daniel