Microsoft 365 tester valeur Combo et ajouter

[eric72]

Bonjour à tous,

Je rencontre un problème, je m'explique:
j'ai un userform avec une combobox alimentée par un tableau "TbFournisseur", je souhaite que lorsque je saisie une valeur qui n'existe pas dans le tableau, celle-ci soit ajoutée dans le tableau.
Malheureusement je ne trouve pas la solution, pire encore quand je lance mon code il me ferme mon fichier et je ne comprends pas pourquoi.
Ou est la boulette!!!
Merci a tous pour votre dévouement.
Eric

 

[vgendron]

Bonjour

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

voir pj pour remplir le combo
et pour savoir si une nouvelle entrée fait déjà partie de la liste du combo. il suffit de tester le combo.listindex

 

[eric72]

Bonjour vgendron,

En fait j'ai repris un code existant pensant que ça m'aiderait.
Merci beaucoup pour cette réponse rapide et efficace, ce post est résolu grâce à vous.
Bonne soirée
Erix

 

[patricktoulon]

re

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

ben l'erreur c'est ca justement ca ne crée pas de problème
tu peux pas modifier une combo si elle a un rows source tout simplement

 

[eric72]

Bonjour Patrick,
Merci pour cette réponse, d'ailleurs si tu regardes mon fichier j'ai repris un code que tu m'avais donné à l'époque mais je n'ai pas réussi à l'adapter...
Eric

 

[patricktoulon]

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

 

[Hasco]

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

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

 

[eric72]

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

Je comprends Patrick mais ça n'est pas la dessus que mon code bloque (remplitleslistes) mais sur le fait d'ajouter une ligne à mon tableau si la valeur de la Combo n'existe pas.
Merci

 

[eric72]

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

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

Bonjour Hasco,
En effet ça fonctionne aussi parfaitement, super!!!
Merci beaucoup
Eric