saisie dans une liste

bonjout tous le monde
probleme pas très difficile sauf quand on le cherche :D
j'ai dans une feuille nommée denrees une liste de plat de b5 a b18.
j'ai une liste de validation en feuille parametre da A2 a la fin de la liste. cette liste est nommée et grace a la formule

Code:

---

=DECALER(Paramètres!$A$2;;;NBVAL(Paramètres!$A:$A)-1)

---

se tient a jour. jusque là c'est très bien.
je veus obtenir que la personne qui met a jour cette liste puisse y faire de nouvelles entrées. donc si elle tape couscous, il existe dans la liste de validation, pas de probleme, mais si elle tape paella qui n'existe pas, un bout de code lui propose d'ajoute l'entrée a la liste. j'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public p Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Paramètres") derli = .Range("a65536").End(xlUp).Row If Target.Column = 2 Then For Each cel In .Range("a1:a" & derli) If cel = p Then Exit Sub Next MsgBox "n'existe pas" End If End With End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Then p = Target.Value End Sub

---

cela fonctionne un peu, mais ne conviens pas car pas très sur. il suffit ne selectionner plusieur cellules ou de ceci ou de cela pour que ça ne marche pas. je crois avoir déja vu ce probleme sur le forum, mais je ne le retrouve pas. je croyais le pb simple, il se revele un peu hardu pour cette fin de soirée. quelqueun aurait une idée a me proposer ? merci d'avance

Je ne comprends pas ce que tu veux faire avec ce code ? (puisqu'il ne modifie pas la saisie)
- Si p existe déjà que souhaites-tu ? la donnée doit-elle être conservée ou supprimée ?
- Si p n'existe pas, et à part le message, que souhaites-tu ?
A+

j'ai trouvé ce que je cherchais, grace a un fichier que j'avais pris sur le forum il y a longtemps déja. merci a son auteur; je sais plus qui c'est

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value,[Liste], 0)) Then If MsgBox("On ajoute?", vbYesNo) = vbYes Then Liste].End(xlDown).Offset(1, 0) = Target.Value Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2") Else Application.Undo End If End If End If End Sub

---

le but étant
dans la feuil 1j'ai une plage de case a remplir avec les élément d'une liste qui sont en feuille 2 par l'intemediaire d'une liste de validation,je veux que si l'utilisateur entre un nom qui ne fait pas partie de la liste, ce nouvel élément soit pris en compte et figure désormais dans la liste ce bout de code le fait a merveille, j'ai juste remplacé la case b2 avec un intersect pour tenir compte de la plage.
merci d'avoir répondu en tout cas. bon week end