Autres Petit problème de d'affichage d'un message en VBA

INFINITY100 à dit:

Bonjour à tous

Je reviens vers vous encore une fois pour résoudre un petit problème de message VBA en effet je vais vous expliquer mon soucis.

Voilà dans mon classeur j’ai deux feuilles 1 et 2, dans la seconde, et dans sa colonne A il y a une liste de noms de couleurs

exemple: en A1 jaune en A2 bleu etc….

Et dans la feuille 1 dans la cellule A1 je veux que quand je mentionne le nom d’une couleur automatiquement dans la cellule B1 il m’affiche le terme « EXISTE ».

Sauf que moi je cherche à ce que quand je tape le nom d’une couleur dans la cellule A1 dans cette feuille 1 et que cette couleur n’existe pas dans la feuille 2 un dialogue message apparait qui m’avertit que le nom de cette couleur n’existe pas.

En résumé je cherche un code qui fonctionne comme ceci : si la couleur est présente dans la feuille 2 affiche moi existe dans la feuille 1 dans la cellule B1 sinon fait moi apparaitre un dialogue message ^_^.

Voilà merci à vous tous

Cordialement

PS : Je sais bien qu’il suffit d’utiliser une liste déroulante dans la feuille1 me rapportant tous les noms de couleur de la feuille 2 mais ce n’est pas le but souhaité.

Voilà merci encore

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
    [b1].ClearContents
    If Application.CountIf(Feuil2.[a:a], Target) Then
        [b1] = "Existe"
    Else
        MsgBox "Sacré nom de .....cette couleur n'existe pas en Feuil2", vbInformation, "Couleurs"
    End If
    Application.EnableEvents = True
End Sub