Son dans tableur

Bonjour PCI51,

Peut-être le code suivant correspond mieux à ta demande :

Private Sub CommandButton2_Click()
    Const cPath = "F:\Test\Sons"
    Dim iIndex As Integer, i As Integer, sFile As String
    Dim oFS As Object

    Set oFS = CreateObject("Scripting.FileSystemObject")

    Randomize
    'Nombre al?atoire entier entre 1 et 5 :
    iIndex = Int(5 * Rnd) + 1

    sFile = cPath & "\" & CStr(iIndex) & ".wav"
    If oFS.FileExists(sFile) Then
        SoundMe sFile
    Else
        MsgBox "Le fichier '" & sFile & "' n'a pas été trouvé!"
    End If
End Sub

J'essaie ce soir mais je fais quoi de ce qui est en rouge?

En rouge, ce sont zones de textes dans le code. Tu n'as rien de spécial à faire sauf vérifier que le répertoire contenant les ".WAV" est le bon. Sinon le modifier.

Je n'ai pas pu résister à l'envie d'essayer en vitesse entre deux trucs et ça marche super bien. Encore du boulot en perspective mais je suis content c'est top. Un grand merci.

Encore moi pour un cas de figure auquel je n'avais pas pensé parce que je croyais que le faire "manuellement" suffirait (tout ça pour dépoussiérer ma pédagogie). Peut on tirer aléatoirement plusieurs sons en un seul clic. Exemple dans le précédent fichier

a) Trois sons au hasard parmi les cinq du répertoire.

b) Idem mais en évitant les doublons.

Avec des formules dans les cellules ce genre de choses je sais faire mais les macros c'est un autre monde pour moi.

Merci d'avance.

Bonjour PCI51,

Si tu sais faire ce que tu désires avec des formules, tu peux m'envoyer un exemple. Je pourrai alors proposer une version VBA.

Bonjour,

Un exemple avec 7 notes (do ré mi fa sol la si)

Pour tester j'ai du créer mes propres wav

La démo ne fonctionne pas dans le zip : Il faut dézipper et copier les 8 fichiers wav + xlsm et les coller dans ton répertoire de travail Excel

A+

Avec des formules j'arrive à éviter les doublons sur des chiffres ou des mots en passant par de multiples étapes, ce qui est parfois lourd. Je démarre juste dans le langage VBA et je suis bien content de votre aide car j'ai déjà bien avancé dans mes projets pédagogiques. Ce dernier point est le petit plus mais j'ai vu dans le tableur que tu as utilisé des formes et je vais voir si un copier coller dans des boutons de commande suffit. Je mets tout sur E: pour pouvoir changer de PC en gardant les chemins. A la limite je n'ai pas besoin des sons le tableur seul me suffirait.

J'étudie ça ce soir.

Si tu n'as pas besoin de mes fichiers .wav tu les remplaces par les tiens...

Je ne les ai joints que pour être sur qu'il n'y aura pas de problème de majuscules...

Si tu n'utilise pas les 7 notes mais seulement 5, tu remplace les 7 dans le code par des 5

Si tu n'utilise que 5 notes

Dans l'expression split("do ré mi fa sol la si do") tu remplaces par :

split("do ré mi fa sol do")

Si tu veux utiliser un autre path tu remplaces ThisWorkbook.path par TON path...

A+

J'ai transposé à ma sauce et ça marche, c'est l'essentiel. Le tableur ci joint est dans le même dossier que les cinq sons mais je voudrais que ces cinq sons soient réunis dans un dossier, ainsi je pourrais mettre d'autres sons dans un autre dossier pour un autre bouton et comme ca tout serait bien rangé mais je tâtonne dans la rectification du chemin...

tu remplaces Z =ThisWorkbook.path par TON path...

Ex :

Z = "E:\Tondossier"

Le reste sans changement.

A+

Génial. Je vais pouvoir bien m'amuser tout en bossant. Si un jour j'ai 500 wav ou lieu de 5, quelle syntaxe adopter plutôt que de numéroter tout (j'ai essayé par curiosité 1:5 1 mais évidemment ça ne marche pas.)

Un grand merci.

Je doute fort que ça fonctionne !

La réponse concernant un tirage multiple ne concernait que la question posée (des .wav très courts, instantanés) : Pour des musiques plus longues je ne pense pas que DoEvents gèrera... mais je n'ai pas essayé.

Par contre le bouton à jeu unique peut lancer n'importe quel .wav. YAKA le relier à un Select Case et tous les espoirs te son permis.

Mais... je ne sais pas gérer la file d'attente ni une liste de lecture. : Il y a des logiciels spécialisés pour cela !

A+

Ok je verrai ça plus tard. J'ai déjà fort à faire avec tout ce que vous m'avez montré. Voici à mon tout petit niveau un jeu musical en guise de remerciements.