Activation audio ?

Avec votre aide, depuis peu j'ai réussi à faire un macro qui tient debout, mais il manque 1 élément, je reviens vers vous.

Il y tout sur le fichier, mais une chose ne fonctionne pas comme je le souhaite, un son s'active seulement quand je rentre une valeur dans une cellule (feuille1) et quand je clique sur entrée !

Ce que je veux, c'est que le son s'active dès qu'une cellule se remplie, après avoir cliqué sur le bouton de ma macro.

Possible ?

Bonjour

Ce que je veux, c'est que le son s'active dès qu'une cellule se remplie, après avoir cliqué sur le bouton de ma macro.

Tu as un code dans la feuille 1 qui agit dès que tu entres une valeur et ton bouton en feuille 2. Je ne comprends pas ta demande là ?? SI tu ne veux pas que le son se déclenche lorsque tu complètes la feuille 1, il ne faut pas mettre le code là bas.

Pourrais-tu mieux expliquer le pourquoi de ta demande.

Sinon le code du module serait mieux celui-ci :

Sub copie()
Dim cel As Range
Set mondico = CreateObject("Scripting.Dictionary")
For Each cel In Sheets("Feuil2").Range("A1:A25")
   mondico(cel.Value) = cel.Value
Next cel
With Sheets("Feuil1")
    .Range("A4").Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
    .Activate
End With
End Sub

A te relire

Le son se déclenche que si je fais "Entrée" sur la feuille1. Je voudrais être signalé par un son, l'ajout d'une nouvelle valeur sur la feuille 1 après avoir cliqué sur le bouton de ma macro.

Re,

Essaie comme ceci :

Sub copie()
Dim cel As Range
Set mondico = CreateObject("Scripting.Dictionary")
For Each cel In Sheets("Feuil2").Range("A1:A25")
   mondico(cel.Value) = cel.Value
Next cel
With Sheets("Feuil1")
    .Range("A4").Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
    Beep
    .Activate
End With
End Sub

Amicalement