Discussion :

[Eddy05]

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.

[ARTURO83]

Bonjour,

Collez ceci dans dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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^^

[anasecu]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Eddy05]

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

[Eddy05]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.