D
dreamalain
Guest
Bonjour à tous
Voici comment est alimentée dynamiquement ma base de donnée
Je souhaiterais que lorsque la cellule correspondante est renseignée, l'item de la liste soit la valeur de cette cellule donc :
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 :
Quelqu'un a une idée pour coder cela s'il vous plait ?
Voici comment est alimentée dynamiquement ma base de donnée
VB:
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.ComboCoL1Je souhaiterais que lorsque la cellule correspondante est renseignée, l'item de la liste soit la valeur de cette cellule donc :
VB:
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 :
VB:
ComboLM1.Value = UserFormAutre.ComboVM1.ValueQuelqu'un a une idée pour coder cela s'il vous plait ?