Macro d'annonce d'un doublon

[dams6363]

Bonjour à tous et à toutes.

Je ne connais rien ou presque en VBA et j'ai besoin d'aide pour créer une macro.

Voilà mon problème :
J'ai créé une liste déroulante sur une plage de cellules (C2;C10), dans laquelle j'ai une liste de prénoms. Ce que je voudrais c'est qu'Excel m'affiche un message me disant "Cette personne n'est pas disponible à ce moment" quand je mets deux fois une personne dans ma plage de cellules.
Grâce à cette macro, je veux ne pa pouvoir insérer deux fois le même prénom et en plus je voudrais qu'elle me mette d'une couleur (provisoirement) la cellule où il y a le même prénom.

J'espère avoir été assez clair. Merci d'avance pour vos réponses et pour l'aide que vous voudrez bien m'apporter.

A bientôt j'espère.

Dam's

 

[Minick]

Re : Macro d'annonce d'un doublon

Salut,

Par exemple, copie cette macro dans le code de ta feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C2:C10")) Is Nothing Then
        If Application.Evaluate("=COUNTIF(C$2:C$10," & Target.Address & ")>1") Then
            MsgBox "Pas dispo!"
        End If
    End If
End Sub

Et applique une mise en forme conditionnelle a ta plage C2:C10
avec en Condition

 La formule est
=NB.SI(C$2:C$11;C2)>1

 

[dams6363]

Re : Macro d'annonce d'un doublon

Merci pour ta réponse Minick.

J'ai copié le code que tu as mis dans VBA et ça ne fonctionne pas.

Par contre la formule de mise en forme conditionnelle fonctionne parfaitement.

A bientôt.

Dam's

 

[Minick]

Re : Macro d'annonce d'un doublon

Bizarre...
Tu l'as bien copié dans le code de la feuille concernée...

Clique droit sur l'onglet et code

 

[dams6363]

Re : Macro d'annonce d'un doublon

Le problème est résolu, je ne l'avais pas mis au bon endroit.

Merci pour ton aide et à bientôt.

Dam's

 

[dams6363]

Re : Macro d'annonce d'un doublon

J'ai une autre question.

Est-ce possible d'avoir dans le message box le nom de la personne qui n'est pas disponible.

Par exemple si le doublon est Paul, le message serait : "Paul n'est pas dispo"

Merci d'avance

Dam's

 

[Minick]

Re : Macro d'annonce d'un doublon

Re,

MsgBox Target.Value & " n'est pas dispo!"

 

[dams6363]

Re : Macro d'annonce d'un doublon

Je te remercie encore ça marche à merveille.

Merci encore et peut-être à bientôt.

Dam's