Aide pour faire parle Excel en auto

Version imprimable

18/10/2019, 21h05
Eddy05

1 pièce(s) jointe(s)

Aide pour faire parle Excel en auto

Bonsoir je voudrais savoir si il est possible de faire parler une classeur Excel je m'explique je voudrais que dans une cellule X j'écris 125 Km et mon classeur me disent 125 Km il vous reste X Km . voir le classeur en pièce jointe avec explication dedans merci.

Bonjour,

Collez ceci dans dans le module de la feuille

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 2 Then
        Application.Speech.Speak ("Vous avez parcouru" & Cells(Target.Row, "B").Value & "Km")
        DoEvents
        Application.Speech.Speak ("il reste" & Cells(Target.Row, "C").Value & "Km")
    End If
    Application.EnableEvents = True
End Sub

Le programme s'exécute à chaque changement de valeur de la colonne "B"

Cdlt

19/10/2019, 07h05
Eddy05

Merci mais je suis complétement perdu car j'ai testé mais rien ni voix ni rien ou je ne comprend pas ou je suis encore plus nul que prévu lol^^

1 pièce(s) jointe(s)

Bonjour,

Pour que cela fonctionne, je t'ai mis le code de ARTURO83 dans Thisworkbook afin que cela fonctionne sur toutes tes feuilles.

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 2 Then
        Application.Speech.Speak ("Vous avez parcouru" & Cells(Target.Row, "B").Value & "Km")
        DoEvents
        Application.Speech.Speak ("il reste" & Cells(Target.Row, "C").Value & "Km")
    End If
    Application.EnableEvents = True
End Sub

Ton classeur doit être sauvegardé en .xlsm sinon les macros ne sont pas intégrées.

19/10/2019, 15h25
Eddy05

Mille merci a vous deux c'est exactement ce que je voulais encore mille merci.

Bonsoir je vous remercie encore de ce que vous avez fait mais j'ai voulu rajouter des choses et cela ne fonctionne pas et je ne comprends pas pourquoi.
Je m'explique sur un ancien projet j'avais des textes qui apparaissaient que j’arrivais à une certaine somme + ou < X et la cela ne fonctionne pas je ne sais pas pourquoi pouvez-vous m’aider encore un peu.
Voilà ce que j'ai écrit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False If Target.Column = 2 Then Application.Speech.Speak ("Tu as parcouru" & Cells(Target.Row, "B").Value & "Km") DoEvents Application.Speech.Speak ("il te reste" & Cells(Target.Row, "C").Value & "Km") End If Application.EnableEvents = True Range("C" & ActiveCell.Row).Select If ActiveCell.Value = "" Then If Range("C").Value < 100 Then reponse = MsgBox("Attention Il ne te reste moins de 100 Km !", vbExclamation, "ATTENTION!!!") Exit Sub End If If Range("B").Value = 50 Then reponse = MsgBox("Attention Il ne te reste que 100 Km !!!!", vbInformation, "INFORMATION!!!") Exit Sub End If End Sub
Alors pouvez-vous m'expliquer où est mon erreur et le modifier.
Je vous en remercie encore.

Bonjour,

Comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 2 Then
        If Target.Value <> "" Then
            Application.Speech.Speak ("tu as parcouru" & Cells(Target.Row, "B").Value & "Km")
            DoEvents
        End If
        Application.Speech.Speak ("il te reste" & Cells(Target.Row, "C").Value & "Km")
    End If
    Application.EnableEvents = True
    If Cells(Target.Row, "C").Value < 50 Then
        MsgBox "Attention Il te reste moins de 50 Km !", vbExclamation, "ATTENTION!!!"
    ElseIf Cells(Target.Row, "C").Value < 100 Then
        MsgBox "Attention Il te reste moins de 100 Km !!!!", vbInformation, "INFORMATION!!!"
    End If
End Sub

Cdlt

20/10/2019, 18h10
Eddy05

Mille merci a vous deux c'est exactement ce que je voulais encore mille merci.