Recherche valeur

Je souhaite savoir si la valeur saisie est présente dans la colonne A d'une deuxième

si oui afficher un message box "numéro déjà saisie", sinon continuer la saisie

c'est très urgent

merci infiniment

ci-joint fichier

Bonjour ELYA,

je te retourne ton fichier modifié :

* sur "Feuil2", la cellule active est A1, et tu peux voir que j'ai supprimé ta dernière ligne.

* va sur "Feuil1", et fais Ctrl e ➯ copie effectuée ; refais de nouveau Ctrl e

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Bonjour,

N'y a t'il pas confusion entre le numéro et le nom ?

Sinon, pour répondre à la question.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Double, rng As Range
    If Target.Address = "$B$2" Then
        Set rng = Worksheets("Feuil2").ListObjects(1).ListColumns(2).DataBodyRange
        On Error Resume Next
        d = Application.Match(Target.Value, rng, 0)
        If Err = 0 Then MsgBox "Numéro déjà saisi !...", 64, "Information"
    End If
End Sub

Cdlt.

Bonjour M. dhany

Je viens de lire ta réponse et vraiment merci merci beaucoup ton code marche impeccable je en suis reconnaissant.

merci pour ton retour, j'suis ravi que ma solution te convienne !

sauf si tu as autre chose à demander, tu peux passer le sujet en résolu ; pour cela, clique sur près de (coin haut droit du post) ➯; ça permet aussi de clôturer le fil de la discussion (toi seul peut le faire, car c'est toi qui a créé ce sujet).

dhany