remplissage liste combobox avec condition

[dreamalain]

Bonjour à tous

Voici comment est alimentée dynamiquement ma base de donnée

With Workbooks("Liste.xlsx").Sheets("LEGUMES")

lg = 0
Select Case ComboLM1.ListIndex
Case -1
If ComboLM1 <> "" Then lg = .Range("A65536").End(xlUp).Row + 1
Case Else
lg = ComboLM1.ListIndex + 2
End Select
If lg > 0 Then
.Cells(lg, 1) = Me.ComboLM1
.Cells(lg, 2) = Me.ComboPL1
.Cells(lg, 3) = Me.TextBoxEfL1
.Cells(lg, 6) = Me.TextBoxRL1
.Cells(lg, 9) = Me.ComboOuL1
.Cells(lg, 10) = Me.ComboCoL1

Je souhaiterais que lorsque la cellule correspondante est renseignée, l'item de la liste soit la valeur de cette cellule donc :

ComboLM1.Value = Cells(8, 2)

Mais que lorsque cette cellule est vide, elle prenne la valeur d'un autre item de combobox se trouvant dans un autre userform ouvert donc :

ComboLM1.Value = UserFormAutre.ComboVM1.Value

Quelqu'un a une idée pour coder cela s'il vous plait ?

 

[Pierrot93]

Re : remplissage liste combobox avec condition

Bonjour,

tu as un début de réponse ici :
https://www.excel-downloads.com/thr...efault-en-fonction-du-choix-dun-autre.156298/

Evite la multiplication des fils pour un même sujet, c'est plus difficile à suivre, en premier pour l'interréssé....

@+