Macro "valeur non autorisée"

Bonjour.

J'ai des noms dans une liste (cellules de G1 à H8) et un tableau dans les colonnes A à F.

J'aimerai une macro automatique avec MsgBox qui, lorsque je rentre un nom dans mon tableau, si elle n'est pas dans la liste, m'indique "le nom n'est pas autorisé".

J'ai un peu de mal avec le VBA et une aide serait bienvenue.

Merci d'avance.

Bonjour,

copier cette macro sur la page code de la feuille concernée,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range, isect As Range
Set isect = Application.Intersect(Target, Range("A:F"))
If Not isect Is Nothing Then

Set trouve = Range("G1:H8").Find(What:=Target, After:=Range("G1"), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

    If trouve Is Nothing Then
        Target = ""
        MsgBox "nom interdit"
    End If
End If
End Sub

Merci pour votre réponse rapide.

Je vais tester dès que possible.

Re,

J'ai testé votre Macro en l'adaptant à mon fichier mais apparemment ça ne fonctionne pas.

Voici donc mon fichier joint avec les explications adéquates (j'aurais peut-être dû le faire dès le départ et je m'en excuse…)

J'aimerai en fait que si je modifie une cellule du planning par un nom ne figurant pas dans une des liste (AR13:AV30 et AZ15:BC72), cela me mette le message d'erreur (sans supprimer le contenu de la cellule modifiée).

Merci d'avance

Alors j'ai retesté et bizarrement ce coup-ci ça à fonctionné (avec les modifications apportées)…

Je Clos donc le sujet en te remerciant pour ton aide

Rechercher des sujets similaires à "macro valeur autorisee"