Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Faire parlé une seul cellule precis

  • Initiateur de la discussion Initiateur de la discussion Dydy05
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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:
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

Dernière édition:
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…