XL 2019 message vocal

[valouf]

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

 

[jm.andryszak]

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

 

[sylvanu]

Bonsoir Valouf, jm.andryszak,
Un essai en PJ avec :

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.

 

[valouf]

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

merci jm

 

[valouf]

Bonsoir Valouf, jm.andryszak,
Un essai en PJ avec :

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

 

[soan]

oh ! un ordinateur qui parle ! c'est un robot intelligent ?

ça peut tenir compagnie aux personnes seules pour leur faire la conversation ?
on n'arrête pas le progrès ! bonjour chez vous, comme dirait N° 6 ! ​