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

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna