Tada.wav si cellule O5 ="ok"

roro69

XLDnaute Impliqué

• 6 Octobre 2008

• #2

Re : Tada.wav si cellule O5 ="ok"

Bonsoir
A ESSAYER

 

Pièces jointes

• son.xls

  35 KB · Affichages: 119
• son.xls

  35 KB · Affichages: 123
• son.xls

  35 KB · Affichages: 119

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 7 Octobre 2008

• #3

Re : Tada.wav si cellule O5 ="ok"

Salut guy72, roro69, le Forum

regardes ce lien c'est exactement ce que tu demande remplace A1 par O5

Bonne Journée

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Octobre 2008

• #4

Re : Tada.wav si cellule O5 ="ok"

roro69 à dit:

Bonsoir
A ESSAYER

Cliquez pour agrandir...

Bonjour,

Oui ça fonctionne, mais ça ne s'arrete jamais.

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Octobre 2008

• #5

Re : Tada.wav si cellule O5 ="ok"

Bonjour Dull
C'est presque ça.
Le problème que pour avoir le son, je suis obligé de sélectionner une autre cellule puis de la recélectionner pour avoir le son.
Et pour l'éffacer, il faut la célectionner et la le son apparait encore alors qu'il ne faudrait plus.
Pas facile à nexpliquer, voici un modèle.
http://cjoint.com/?khmO2r5rpA

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 7 Octobre 2008

• #6

Re : Tada.wav si cellule O5 ="ok"

Re guy, le fil

Pas trop compris essaye de mettre la procédure dans

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

histoire de voir

Bonne Journée

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Octobre 2008

• #7

Re : Tada.wav si cellule O5 ="ok"

Re ça change rien?
j'ai modifiédans ma macro "Fin" pour re sélectionner la cellule ou il doit y avoir le son.
qui dans l'exemple est le cellule AX10.
Sub Fin()
Range("AX8").Select
Selection.Copy
Range("AX10").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("AX20").Select
Selection.Copy
Range("AX10").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif