Discussion :

[alsimbad]

bonjout tous le monde
probleme pas très difficile sauf quand on le cherche
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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+

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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