XL 2019 message vocal

valouf

XLDnaute Junior
Bonjour je cherche un programme vba qui me permetrais de lancer une voix suivant la valeur d'une cellule exemple si je tappe 1 en a1 ca me dit bonjour si je tappe 2 au revoir
si je tappe 4 merci d'avance
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Valouf, jm.andryszak,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        Select Case [A1]
            Case 1: Application.Speech.Speak "Bonjour"
            Case 2: Application.Speech.Speak "Au revoir"
            Case 4: Application.Speech.Speak "Merci d'avance"
            Case 5: Application.Speech.Speak "Je vous souhaite une bonne soirée, Valouf"
        End Select
    End If
Fin:
End Sub
Mais la vois n'est pas belle et n'est pas modifiable.
Tout dépend du besoin que vous avez.
 

Pièces jointes

  • Valouf.xlsm
    14.2 KB · Affichages: 5

valouf

XLDnaute Junior
Bonsoir Valouf, jm.andryszak,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        Select Case [A1]
            Case 1: Application.Speech.Speak "Bonjour"
            Case 2: Application.Speech.Speak "Au revoir"
            Case 4: Application.Speech.Speak "Merci d'avance"
            Case 5: Application.Speech.Speak "Je vous souhaite une bonne soirée, Valouf"
        End Select
    End If
Fin:
End Sub
Mais la vois n'est pas belle et n'est pas modifiable.
Tout dépend du besoin que vous avez.
merci beaucoup sylvanu
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson