Active un son wav avec condition?

[Stef]

Re le forum,

j ai inseré un son wav dans feuille et j aimerai le lire avec une macro kan une cellule est a la date du jour, mais je sais pas trop quel code inscrire.

Pouvez vous m aider? Merci

 

[Eric]

Salut,

je pense pas que ce soit possible!

 

[Stef]

Si on m a dit que c etait faisable mais je sais pas comment!

 

[@Christophe@]

Bonjour,

Bonne nouvelle, c'est faisable

Comment la cellule est elle à la date du jour (automatique avec formule ou qq l'introduit manuelement, même cellule ou plage de cellule,...)

Donne plus de précision

bonne journée

 

[Stef]

Bonjour chris,

en fait ma cellule a1 c est une date que je saisie, pour l instant je suis au stade ou si cette arrive a la date du jour la cellule devient rouge, mais j aimerai egalement qu un signal sonore s applique si la cellule arrive a la date du jour!

j espere que c est vraiment faisable!
merci pour ton aide!

 

[@Christophe@]

Re,


Voici le code à mettre dans ta feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> '$A$1' Then Exit Sub
ActiveSheet.Shapes('Object 1').Select
Selection.Verb Verb:=xlPrimary
End Sub

Lorsque tu modifies ta cellule A1, si elle correspond à la date du jour, tu auras le son wave. Vérifie que le son wave porte bien le nom ('Object 1')

bonne journée

 

[Stef]

Oki merci,

mais je comprend dans ton code ou est ce qu est la ligne ou la date sera verifié, juste par curiosite!
Je test et je reviens merci!

 

[@Christophe@]

re,

lol, erreur, j'ai oublié la ligne

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> '$A$1' Then Exit Sub
If Target.Value = Date Then
ActiveSheet.Shapes('Object 1').Select
Selection.Verb Verb:=xlPrimary
End If
End Sub

Sorry, bonne journée

 

[stef]

Nikel chrome chris,

Tu pense qu on peut encore rajouter une ligne pour indique a ce code qu il fo verifier toute la colonne A?

 

[@Christophe@]

Re,

Voila le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns('A:A')) Is Nothing Then
If Target.Value = Date Then
ActiveSheet.Shapes('Object 1').Select
Selection.Verb Verb:=xlPrimary
End If
End If
End Sub

Bonne journée

 

[Stef]

Re,
il me met une erreur sur la 3eme ligne

 

[Stef]

Le probleme chris en fait c est que lorsque j ouvre le fichier le son n est pas lance c est uniquement quand je saisie la datte d aujourd hui dans la cellule que le son se lance!
Y aurait il pas une solution pour qu il se lance a l ouverture du fichier?