Son sous condition dans excel 2003

C'est très vague comme explication !
Quelle est l'évènement qui entraine l'apparition du "finded" ?
Comment identifie-t-on la ligne ?
A quoi ressemble le classeur ?
Peut-être qu'avec un exemple sur http://cijoint.fr/ ce serait plus explicite.

En attendant, une macro qui teste l'existence de "finded" dans la cellule C1 :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Cells(1, "c").Value = "finded" Then Beep
End Sub

Bonsoir,

C'est le vrai fichier, le but est de placer des données(numéro de séries) en page data(feuil 2; colonne A) et avec le gun (scanner code barre ) de retrouver c'est numéros de séries dans un lot de pièces pouvant aller jusque mille unités( les numéros de séries sont scanner en feuil 1 colonne A). Il peut n'y avoir que une unités a retrouver comme 999.

C'est pourquoi le terme finded est placé suite à un recherchev. (je ne connais pas le vba tout est donc fait avec des conditions et des outils excel ).c'est numéros de séries peuvent arriver dans n'importe quel ordre ou ne pas faire partie de la base de donnée.
La ligne en feuil 1 colonne a change après chaque code barre scanner.

Le but du son est de ne pas avoir besoin de regarder l'écran à chaque fois que je scanne un code barre.

J'espère être clair, dans ma tête sa l'est mais par écrit ce n'est pas évident, je suit désolé.

Merci pour votre aide.

Bonjour,

Ton fichier n'est d'aucune utilité et je ne comprends vraiment rien à tes explications !

Peut-être qu'il s'agit de :
Vérifier à l'aide d'un scanner optique si la référence qui vient d'être scannée existe dans une base de données située sur la feuilles 2 colonne A.
Le résultat du scan s'inscrit dans la colonne A de la feuille 1 à la suite du scan précédent.

Si c'est le cas il n'y a aucun intérêt à inscrire "finded" dans la base de données !

C'est dans la colonne B de la feuille 1 qu'il faut l'inscrire, en face de la données qui vient d'être scannée pour savoir si elle existe ou non (en confirmant par un beep).

Dans ce cas ce code à copier dans la feuille 1 devrait suffire (clic droit sur l'onglet, visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  If Not Target.Value > "" Then Exit Sub
  Dim cel As Range
  Set cel = ThisWorkbook.Worksheets(2).Columns("A")
  Set cel = cel.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not cel Is Nothing Then
    Target.Offset(, 1).Formula = "finded"
    Beep
  End If
End Sub

Les connaissances s'étofferont au fur et à mesure de l'utilisation, essaie de comprendre cette macro, car il est fort probable qu'ultérieurement tu doives la faire évoluer.

Au plaisir de te relire sur le Forum