Doublons

[clautu]

Bonjour à tous,😱
J'ai un problème de macro et je voudrais savoir si quelqu'un a la solution.

J'ai fais une macro (voir plus bas) qui me permet de saisir un nom dans une liste déroulante (E11) et de la copier dans une de mes 3 listes en B3 ou D3 ou F3, que j'ai défini, au préalable, par des case à cochées.
Jusque là tout fonctionne.

Je me suis fait aussi une fonction qui reconnait si le nom que je saisie est dans la liste que j.ai choisie.A ce moment il inscrit "Vrai" dans une case B11.
Ça aussi ça marche

Ce que je ne suis pas capable de faire, c'est d'ajouter une condition à ma macro qui, si le nom figure dejà dans la liste. ferait apparaitre un msgbox du genre "Ce nom fiqure déjà dans cette liste. Voulez vous le réinscrire."
En répondant "NON" la macro s'arrèterait là, et en répondant "OUI" le macro continurait de s'effectuer.
Voici la macro en question et je vous souhaite bonne chance.
Et soyez assurés que je serais extrèmement reconnaissant aux personnes qui pourront m'aider.

Merci Mille fois😕

Sheets("feuil1").Select
Range("e11").Copy
Sheets("liste").Select
If Range("feuil1!l3") = 1 Then Sheets("liste").Select Range("b3").Select
If Range("feuil1!l3") = 2 Then Sheets("liste").Select Range("d3").Select
If Range("feuil1!l3") = 3 Then Sheets("liste").Select Range("f3").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
End If

Sheets("feuil1").Select
Range("e11").Select
end sub


Merci encore

 

[jp14]

Re : Doublons

Bonjour

Dans la macro qui sert à inscrire vrai en B il faut écrire le code suivant après le test

Dim Title1 as string
Dim Msg As String
Dim  Style As String
Dim  Reponse2  As String

Title1 = "Information doublons  " 'Titre de la zone de saisie
Msg = "Le nom a été trouvé  " & zone qui contient le nom
Msg = Msg & (Chr(13) & Chr(10)) & "Ce nom fiqure déjà dans cette liste. Voulez vous le réinscrire.  "
Style = vbYesNo + vbCritical + vbDefaultButton2
' Affiche le message pour validation.
Reponse2 = MsgBox(Msg, Style, Title1)


If Reponse2 = vbNo Then exit sub

A tester

JP

 

[clautu]

Re : Doublons

Merci JP 14
mais ça ne marche pas.
Il faut dire que ce n'est pa une macro qui me dit si c'est "VRAI" mais une fonction =si(nb.si a2:a32;a2)=1 .
Il faut dire que je suis débutant dans excel

Merci!!