execution application sons apres la saisi

[Ilino]

Bonjour Forum
J’ai trouvé sur ce forum l’exemple ci-dessous, et je vous sollicite pour construire mon USF
Dans le module :

Sub Dire(phrase As String)
Dim Sp As Object
    On Error Resume Next
    Set Sp = CreateObject("Sapi.SpVoice")
    If Sp Is Nothing Then Exit Sub
    Sp.Speak phrase
End Sub

Et dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Dire Target.Value
End If
End Sub

Voila mon souci
Je souhaiterai exécuter la fonction sons après avoir terminé la saisi du texte dans la cellule est il possible ?
Merci

 

[Papou-net]

Re : execution application son apres la saisi

Bonjour Ilino,

Essaie en changeant de type d'événement comme ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Dire Target.Value
End If
End Sub

Cordialement.

 

[Ilino]

Re : execution application son apres la saisi

Salut PAPOU
ça fonctionne tres bien
Merci
a+

 

[Ilino]

Re : execution application sons apres la saisi

bONSOIR fORUM
MERCI POUR LA REPONSE , Dans le cas ou j'ai un text dans des cellules Fusionnées et verouillées 😕 comment je change le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Dire Target.Value
End If

merci
End Sub
,

 

[Modeste geedee]

Re : execution application sons apres la saisi

Bonsour®

bONSOIR fORUM
MERCI POUR LA REPONSE , Dans le cas ou j'ai un text dans des cellules Fusionnées et verouillées 😕 comment je change le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Dire Target.Value
End If

merci
End Sub
,

🙄 peut etre simplement :
Private Sub Worksheet_Activate()
Application.Speech.SpeakCellOnEnter = True
End Sub

 

[Ilino]

Re : execution application sons apres la saisi

Bonsoir
sorry pour ce reatrd
je vais l'essayer
thinks