Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
je viens solliciter votre aide ; j explique : je suis charger d organise un bingo pour mon CE et tout ce que je trouve reste des bingo trop aleatoire, je souhaiterais faire varier la difficulte du tirage suivant le cadeau a faire gagner .
j ai ce morceau de code mais comment faire sortir des numeros plus de d autres
Pourrais tu nous indiquer le nombre de tirages,le nombre de lots, le nombre de participants, quels lots doivent moins sortir que quels autres lots etc...
Avec une pièce jointe,cela serait plus simple!
merci a toi Modeste geedee ton fichier a l air d etre super mais mon pc est en 64 bit et une erreur de procdure bloque l execution du programme. donc inutilisable pour moi
quand a toi néné06 il y a 4 niveau de difficulte tres facile; facile; moyen; dur suivant le cadeau a gagner,
j ai une liste avec les numero des cartons et le nbre de fois qu il apparaise et donc j aimerais que suivant le nbre fois que les n° apparaissent ils sortent plus ou moins facilement suivant la difficulte. me comprends tu ( je sais tu va dire que je suis tordu) .voici un exemple
Modeste geedee ton fichier a l air d etre super mais mon pc est en 64 bit et une erreur de procdure bloque l execution du programme. donc inutilisable pour moi
Quel est le message d'erreur ? Et quelle ligne dans le code est alors colorée en jaune ?
Je suis sous Seven 64 bits + Excel 2013 , le programme fonctionne sauf pour la synthése vocale pour le moment.
C'est ici que le souci apparait chez toi? EDITION: C'est pas lié à l'appli de Modeste, c'est Office qui a un souci avec sapi.dll
Car dans un script VBS, la synthsèse vocale fonctionne (pardon Lino)
Le code VBS copié dans le bloc-notes et enregistré dans testvoix.vbs fonctionne
Code:
Set Voix = CreateObject("SAPI.SpVoice")
Voix.Volume =75
Voix.Speak "J'ai connu une Polonaise qu'en prenait au p'tit déjeuner. Faut quand même admettre : c'est plutôt une boisson d'homme"
mais le même code dans un macro VBA provoque l'erreur
Code:
Sub TestVoix()
Dim Voix As Object
Set Voice = CreateObject("SAPI.SpVoice")
Voice.Volume = 60
Voice.Speak "Excel, sois pas timide! Allez, parle-moi"
End Sub
Si quelqu'un a la solution merci à lui de l'indiquer
(car j'ai beau joué du regsvr32, Excel reste mutique)
EDITIONII: Sur mon PC, ce problème est lié à l'installation des voix françaises
Si je remets la voix d'Anna (anglaise) par défaut, je n'ai plus le message d'erreur mais dans ce cas, c'est inutilisable pour parler françois
Dés que je remets la voix d'Hortense (française), Excel ne me parle plus.
Par contre en VBS, les deux voix sont utilisables sans problème.
Je vous tiens au courant si je trouve une solution pour Excel.
Bonsour®
pour information je n'ai pas continué le développement de ce projet...
les quelques présentations publiques restreintes ayant eu l'hostilité des joueurs :
- aucune confiance dans une tirage informatique des numéros
- préférence à un tout visuel : boules dans une cage
- énoncé des numéros par une personne réelle/micro, convivialité, et autres blagues et commentaires
- timing variable
- nécessité d'un vidéo projecteur.
reste cependant tout à fait pertinent dans le cadre familial...
Modeste Geedee
J'ai mis le fruit de mes essais dans le salon https://www.excel-downloads.com/thr...ix-francaise-sapi-dll-des-suggestions.220520/
Et désormais ton appli fonctionne avec la synthèse sonore en français sur Windows 7 64 bits + Excel 2013 32 bits.
Et le fichier wav est correctement lu.
Je n'ai pas eu de message d'erreur pour le moment.
PS: Je n'ai modifié aucune des lignes de ton code VBA.
Par contre, TTS Learnhout et Hauspee semble ne pas devoir être utiliser avec Windows 7 (sauf erreur de ma part) Ce lien n'existe plus
(J'ai fais le test d'installer mais les voix n'apparaissent pas dans la liste des voix disponibles)
NB: Voir le fil du salon, les indications pour télécharger la bonne version du fichier *.msi selon votre version d'Office
(ainsi que les inconvénients après installation)
Attention, si vous devez intervenir dans la base de registre de Windows, soyez sûr de ce que vous faites
(Et par prudence, créer un point de restauration, et sauvegarder en les exportant les clés du registre modifiées)
Je décline toute responsabilité en cas d'éventuels problèmes
Par contre, TTS Learnhout et Hauspee semble ne pas devoir être utiliser avec Windows 7 (sauf erreur de ma part)(J'ai fais le test d'installer mais les voix n'apparaissent pas dans la liste des voix disponibles)
sans intervention autre que dans le panneau de configuration
Windows Seven 32bits , EXCEL 2007
suppose que les fonctions vocales ont été installées sur le système hôte.(ce qui est le cas par défaut avec Windows Seven)
sans non plus faire appel ni à un module complémentaire ou librairie, ni à un NewObject
ni intervention dans la BdR.
simplement avec :
Sub UseSpeech()
Application.Speech.Speak "Hello"
End Sub
Modeste Geedee
Je disais cela à cause de ceci
[Microsoft Agent is deprecated as of Windows 7, and may be unavailable in subsequent versions of Windows.]
(c'est dans le lien de mon précédent message)
Donc cela fonctionne sur Seven 32 bits mais pas sur Seven 64 bits, alors ?
(En tout cas, c'est la cas sur mon PC)
Y-a-til d'autres membres du forum sous Seven 64 bits qui pourrait faire le test , svp)
Si après l’installation d’un synthétiseur de Lernout & Hauspie la liste des voix est toujours vide installer le bloc des fonctions Microsoft Speech API 4.0, pour le télécharger cliquer ici: spchapi.exe
Les voix à tester (ci-contre l'archive du lien fourni par Modeste Geedee dans le message #6) NBersonnellement, j'hésite à installer spchapi.exe (concu sous W98) sur un Windows 7 64 bits
Bonsoir à tous
Modeste Geedee
Merci Modeste mais hélas j'avais déjà mis les mains dans ce cambouis là
(voir fil du salon) EDITION: Je viens de voir que tu as déjà vu le fil du salon Narrateur Windows : ajouter une voix de synthèse francophone
Et mes tests se concluent par ce que je dis dans le salon avec un Windows 7 64 bits
(J'arrive à faire fonctionner uniquement la voix d'Hortense)
D’où mon appel aux xldiens possédant un seven 64 bits
PS: G..gle m'avait aussi mener vers le lien que tu cites, et même sur le web anglophone, je ne trouve que cette méthode avec Hortense et modification registre + sapi.cpl en admin.
Que penses-tu de spchapi.exe, y-a-t-il un risque (dysfonctionnement Windows) à installer un "truc" développé sous Windows 98 !
(voir mon message précédent)
[APARTE]
Il serait sympa que le demandeur (oui toi paskikic ) se manifeste dans le fil, parce qu'on se décarcasse (puisque tu es sous 7 64 bits) pour que tu puisses utiliser l'appli de Modeste Geedee, et tu restes absent du fil depuis un bail déjà.
J'espère au moins que nos efforts ne laisseront pas sans voix d'autres membres du forum . [/APARTE]
Après Patrice Juvet (je peux invoquer Alain Chamfort)
Où est-tu XLDien avec un 7 64 bits sous le bras ?
Oh héroïque XLDdien sympa
As-tu aperçu les lumières de Nouméa
Aurais-tu sombré au large de Bora Bora
Où es-tu XLDdien pétri de VBA
Dans les glaces de l'Alaska
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.