Microsoft 365 tester valeur Combo et ajouter

remplir un combobox avec un rowsource est souvent source de pb lorsque celui ci évolue

Cliquez pour agrandir...

patricktoulon à dit:

la chose est simple
tu ouvre ton userform
dans le activate
combobox1.list=mafonctionliste(montableau)
'mon tableau peut etre une range ou un name

'la fonction liste
function mafonctionliste(r as range)
mafonctionliste=r.value
end function

quand tu ajoute dans le tableau avec par exemple un bouton dans le userform
tu refait appel a cette fonction
dans le click du bouton
après avoir transférer les données de tes controls dans le tableau
combobox1.list=mafonctionliste(montableau)

ta combo sera toujours a jour
c'est d'une simplicité enfantine
il faut simplement fonctionaliser le remplissage en dhors de tout event et l'appeler a souhait

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Toutes vos valeurs (fournisseur étant dans la cb)
Si cb.Value <>"" et cb.Listindex = -1 c'est que .Value n'existe pas dans la liste des fournisseurs. Pas besoin de re tester à partir de la feuille.

Code du userform

VB:

Sub RemplitLesListes()
    Me.CbFournisseur.List = ThisWorkbook.Sheets("Feuil1").Range("TbFournisseur[fournisseur]").Value
End Sub

Private Sub Valider_Click()
    ' si l'item n'existe pas dans la combobox
    If Me.CbFournisseur.ListIndex = -1 And Me.CbFournisseur.Value <> "" Then
        With ThisWorkbook.Sheets("Feuil1").ListObjects("TbFournisseur")
            ' rajouter l'item (peut-être vaudrait-il le coup de demander à l'utilisateur avant)
            .ListRows.Add().Range(1, 1) = Me.CbFournisseur.Value
            RemplitLesListes
        End With
    End If
End Sub

Private Sub UserForm_Initialize()
    RemplitLesListes
End Sub

Cliquez pour agrandir...