XL 2019 message vocal

jm.andryszak à dit:

Une piste...
Sub Test()
Dim Message As String
Message = "Bonjour"
Application.Speech.Speak (Message)
End Sub

Cliquez pour agrandir...

sylvanu à dit:

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.

Cliquez pour agrandir...