J'aimerais ajouter a ma source listentit=E9 la valeur saisie=20
dans le combobox.
malheureusement ma formule ajoute la valeur m=EAme si=20
l'utilisateur la selectionn=E9 dedans.
Je me retrouve dans ma source avec des doublons.
Quelqu'un peut-il m'aider.
voila la formule:
'Pour ajouter l'entit=E9 =E9ventuellement entr=E9 dans le=20
Combobox
If listentit=E9.Value =3D listentit=E9.RowSource Then GoTo line1=20
Else
'ajoute l'entit=E9 =E0 liste sur la page codes
Range("codes!A2").End(xlDown).Offset(1, 0).Value =3D=20
listentit=E9.Value
'tri de la liste des entit=E9s
Sheets("codes").Activate
Range("entit=E9s").Select
Selection.Sort Key1:=3DRange("A2"), Order1:=3DxlAscending,=20
Header:=3DxlNo, _
OrderCustom:=3D1, Orientation:=3DxlTopToBottom
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Peut-être en t'inspirant de cette méthode et en l'adaptant : Private Sub ComboBox1_AfterUpdate() If Not ComboBox1.MatchFound Then If MsgBox("Ajouter " & ComboBox1.Value, vbYesNo + vbQuestion, _ "Pas dans la liste") = vbYes Then ComboBox1.AddItem ComboBox1.Value Feuil1.Range("A65536").End(xlUp)(2).Value = ComboBox1.Value End If End If End Sub
Cordialement Pascal
"NicolasB" a écrit dans le message de news:581801c491bd$8dca7a40$ Bonjour au forum
J'aimerais ajouter a ma source listentité la valeur saisie dans le combobox. malheureusement ma formule ajoute la valeur même si l'utilisateur la selectionné dedans. Je me retrouve dans ma source avec des doublons. Quelqu'un peut-il m'aider.
voila la formule: 'Pour ajouter l'entité éventuellement entré dans le Combobox If listentité.Value = listentité.RowSource Then GoTo line1 Else 'ajoute l'entité à liste sur la page codes Range("codes!A2").End(xlDown).Offset(1, 0).Value listentité.Value 'tri de la liste des entités Sheets("codes").Activate Range("entités").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, Orientation:=xlTopToBottom
Merci
Bonjour
Peut-être en t'inspirant de cette méthode et en l'adaptant :
Private Sub ComboBox1_AfterUpdate()
If Not ComboBox1.MatchFound Then
If MsgBox("Ajouter " & ComboBox1.Value, vbYesNo + vbQuestion, _
"Pas dans la liste") = vbYes Then
ComboBox1.AddItem ComboBox1.Value
Feuil1.Range("A65536").End(xlUp)(2).Value = ComboBox1.Value
End If
End If
End Sub
Cordialement
Pascal
"NicolasB" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:581801c491bd$8dca7a40$a501280a@phx.gbl...
Bonjour au forum
J'aimerais ajouter a ma source listentité la valeur saisie
dans le combobox.
malheureusement ma formule ajoute la valeur même si
l'utilisateur la selectionné dedans.
Je me retrouve dans ma source avec des doublons.
Quelqu'un peut-il m'aider.
voila la formule:
'Pour ajouter l'entité éventuellement entré dans le
Combobox
If listentité.Value = listentité.RowSource Then GoTo line1
Else
'ajoute l'entité à liste sur la page codes
Range("codes!A2").End(xlDown).Offset(1, 0).Value listentité.Value
'tri de la liste des entités
Sheets("codes").Activate
Range("entités").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
Bonjour Peut-être en t'inspirant de cette méthode et en l'adaptant : Private Sub ComboBox1_AfterUpdate() If Not ComboBox1.MatchFound Then If MsgBox("Ajouter " & ComboBox1.Value, vbYesNo + vbQuestion, _ "Pas dans la liste") = vbYes Then ComboBox1.AddItem ComboBox1.Value Feuil1.Range("A65536").End(xlUp)(2).Value = ComboBox1.Value End If End If End Sub
Cordialement Pascal
"NicolasB" a écrit dans le message de news:581801c491bd$8dca7a40$ Bonjour au forum
J'aimerais ajouter a ma source listentité la valeur saisie dans le combobox. malheureusement ma formule ajoute la valeur même si l'utilisateur la selectionné dedans. Je me retrouve dans ma source avec des doublons. Quelqu'un peut-il m'aider.
voila la formule: 'Pour ajouter l'entité éventuellement entré dans le Combobox If listentité.Value = listentité.RowSource Then GoTo line1 Else 'ajoute l'entité à liste sur la page codes Range("codes!A2").End(xlDown).Offset(1, 0).Value listentité.Value 'tri de la liste des entités Sheets("codes").Activate Range("entités").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, Orientation:=xlTopToBottom
