Message d'erreur si la valeur n'existe pas

Salut question toute simple,

Quelle est la macro pour afficher un msg box si la valeur n'est pas présente sur la colonne A.

Il s'agirai de faire un input box d'un code produit de la feuille 1 si le produit en question n'est pas présent sur la colonne A de la feuille 1 afficher un message d'erreur

Merci de votre aide

24aide-forum.xlsm (146.28 Ko)

Bonjour Zak64000 le forum

toi tu es un drole!!!

Quel chiffre? de quelle feuille? par rapport à quel autre chiffre????

Tu penses sans doute que nous connaissons ton fichier??

Bah non, alors il va falloir un minimum expliquer

a+

Papou

Désolé,

J'ai modifié le post en espérant avoir été clair.

Bonjour Zak64000, paritec, le forum,

Un essai....

Sub test()

Dim code As String
Dim Trouve As Range

 With Sheets("Sheet1")

  code = InputBox("Entrez le code article", "Code article")
   If code = "" Then Exit Sub

    Set Trouve = .Range("A:A").Find(what:=code, LookIn:=xlValues, lookat:=xlWhole)
     If Trouve Is Nothing Then
        MsgBox "Le code article n'existe pas"
     Else
        MsgBox "Le code article existe"
     End If

 End With

End Sub
77aide-forum.xlsm (170.43 Ko)

Cordialement,

Super merci c’est parfait sankukai !!

Rechercher des sujets similaires à "message erreur valeur existe pas"