Microsoft 365 Faire parlé une seul cellule precis

Dydy05

XLDnaute Nouveau
Bonjour voici ma demande d'aide sur mon excel voir la pièces jointe tout sera explique
en deux mots je voudrais savoir si il serait possible de que le résultat son vocal et en euro.
Merci a tous pour votre aide et je suis sur excel 2007.
 

Pièces jointes

  • Livret A Vierge.xlsx
    36.4 KB · Affichages: 13

Dydy05

XLDnaute Nouveau
Bonjour BrunoM45 merci de votre conseille mais là je bloque
pour le mois de janvier il dis bien "tu as mie 25 virgule 06 euro" mais pas dans février il dis "tu as mie 5 5 euro" pourquoi le mot virgule disparait ?
Merci de m’aidai.
Cordialement.
 

Pièces jointes

  • Livret A Vierge news.xlsm
    48.9 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
Bonjour
ben en fait ton problème dépend sur quel system tu tourne
sur W10 je sais pas pour hortana (française)
mais sur W7 64 avec un office 32 ,seule la voie virginie est compatible, moyennant quelque bidouillage
j'ai fait un tuto sur ce point sur DVP il y a quelque années

je viens de le refaire pour le fun et tests et ça fonctionne encore
tiens j'ai retrouvé le tuto
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Dans le fichier, pour exemple, des sommes différentes sur les 6 feuilles. La macro dire() est valable pour toutes les feuilles (mois et total):
VB:
Sub Dire()
Const DebutMois = "janv,févr,mars,avri,mai,juin,juil,août,sept,octo,nove,déce"""
Dim maValeur, DebutTexte, MaVal As String, x, x1, x2
   If InStr(DebutMois, LCase(Left(ActiveSheet.Name, 4))) > 0 Then
      maValeur = ActiveSheet.Range("c13")
      DebutTexte = "Pour le mois "
      DebutTexte = DebutTexte & IIf(InStr("aAoO", Left(ActiveSheet.Name, 1)) >= 1, "d'", "de ")
      DebutTexte = DebutTexte & ActiveSheet.Name & ", tu as mis, "
   Else
      maValeur = ActiveSheet.Range("f3")
      DebutTexte = "Le total sur le livret A, s'élève à, "
   End If
   x1 = Int(maValeur): x2 = Int((maValeur - x1) * 100)
   MaVal = DebutTexte & x1 & " euro "
   If x2 <> 0 Then MaVal = MaVal & " et " & x2 & " centime"
   Application.Speech.Speak (MaVal)
End Sub

Nota : revoyez vos formules. Elles sont soient manquantes soient incorrectes.
 

Pièces jointes

  • Dydy05- Livret A Vierge news- v1.xlsm
    35 KB · Affichages: 14
Dernière édition:

Discussions similaires

Réponses
7
Affichages
412
Haut Bas