Bonjour,

merci d'avoir pris le temps d'expliquer toutes les étapes et d'avoir corrigé le code!

Si je te suis bien, il va falloir créer à présent à la suite de ton code, un module Modproc qui va permettre au programme d'ouvrir la macro voulu?

Comme tu le vois, je suis un grand débutant, ton lien est très bien mais il va falloir des semaines pour aborder tout ça. Je compte bien le faire car c'est très intéressant et on évite aussi comme ça d'embeter tout le monde :):)

Merci encore pour ta disponibilité!

Bonjour à tous,


Je reviens à la charge avec mes questions de débutant ;)


Suite à un calcul, la valeur de la cellule C1 de la feuille "Feuil1" est modifiée.
Lorsque cette cellule est modifiée, le code ci dessous affiche un message: "coucou" ;)

Ce que je voudrai faire, c'est qu'à la place du message sympathique "coucou" se lance une Macro.

J'ai essayé de remplacer Msgbox par Call Macro1, application.run "macro1" et d'autres syntaxes, la macro se lance mais un message d'erreur apparait et fait planter Excel:
"la méthode select range a échoué" ou "espace pile insuffisant" etc.

Quelle ligne de code faudrait-il mettre à la place de Msgbox pour lancer une Macro?

Cette fonction semble etre très utile pour détecter le changement de valeur d'une cellule suite à un calcul, apparemment avec la fonction Target ça ne marche pas, sauf si on modifie la cellule manuellement, ce qui n'est pas le cas ici.



Public ValPrec

Private Sub Worksheet_Calculate()
  Verif
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Intersect(Target, Range("c1")) Is Nothing Then Exit Sub
  Verif
End Sub

Private Sub Verif()
  If VarType(Range("c1")) = VarType(ValPrec) Then _
    If ValPrec = Range("c1") Then Exit Sub
  MsgBox "coucou"
  ValPrec = Range("c1")
End Sub


Private Sub Workbook_Open()
  Feuil1.ValPrec = Feuil1.Range("c1")
End Sub

Merci à tous pour votre aide!

Bonjour Eric et à tous,

Merci pour la réponse rapide! ça marche très bien, c'est exactement ce que je recherchais :)

merci encore!

re ;)

j'ai trouvé une macro suivante:

Public Vocal As New SpVoice

Sub Parler(ByVal Phrase As String)
    Application.StatusBar = Phrase
    Vocal.Speak Phrase
End Sub
Sub mon_code()
   nbr = 20
   Parler "je vais compter jusque " & nbr
   For i = 1 To nbr
     Application.StatusBar = i
      Parler i
   Next
   Parler "c,a y est j'ai fini de compter jusque " & i - 1
End Sub

:)

lorsqu'elle se lance, la voix de synthèse compte jusqu'à 20 ;)

qu'est ce que je peux modifier dans ce code pour dire à Excel :"lis les cellules X, Y et Z"?

ça avance :)


merci encore!

Bonjour,

Effectivement, ce n'était pas plus compliqué que ça pour le chemin valide :):)

Maintenant, le code semble bien marcher, un son wav se déclenche si une cellule particulière est modifiée.

Concernant, la succession des son wav à jouer, je vais essayer de reformuler mon problème, car effectivement, ça peut vite ressembler à une usine à gaz ce truc :)


Suite à diverses opérations, j'ai 3 cellules A5, B5 et C5 dans lesquelles s'inscrivent en meme temps des résultats numériques.

Je voudrai "entendre" ces résultats, autrement dit, transformer le texte en parole.
J'avais donc pensé au début de lancer un fichier wav dès que la cellule est modifiée.
ça marche en partie grace au code du début bien que ce soit assez lourd avec tous ces wav (les résultats sont compris entre 0 et 50, donc 50 fichiers wav)

Le problème, c'est que je voudrai entendre les résultats l'un après l'autre, c'est à dire A5, puis B5 et C5, et non pas les 3 en meme temps lol :)

Je cherchais donc le moyen de lancer 3 macros à la suite avec un petit intervalle entre chaque macro qui laisse le temps au wav en cours de se finir.

Mais, j'ai vu qu'il y a plus simple apparemment!
Simplement utiliser la fonctionnalité vocale d'Excel 2007.

Donc là, j'active cette fonction dans les options et effectivement, dès que je click sur entrée, cela me "lit" la cellule sans passer par WMP. Déjà ça :)


Maintenant, le problème, c'est comment dire à Excel:
"si A5, B5, C5 sont modifiées, lire ces cellules."

J'ai du mal à trouver un tuto là dessus, j'imagine que cette fonction n'est pas si souvent utilisée. Les infos que je trouve sont assez sporadiques il faut bien le dire.

Si vous avez une piste de reflexion à me proposer, ou un embryon de solution, je suis preneur :)

merci à vous!

Bonjour,

En fait, ma question première pourra vous paraitre très basique:

comment fait-on pour indiquer le chemin valide d'un MP3 de notre disque dur dans une cellule A1?


Et puis une deuxième question ;) :

Considérons que j'ai 3 courts fichiers mp3.
Je les attribue en A1, A2, A3 (quand je serai le faire ;) CF ma première question)
Comment faire pour qu'ils soient joués l'un après l'autre?

En fait, il s'agit de fichiers courts correspondant à des nombres enregistrés vocalement (22, 12, 48....) , et que j'ai un grand nombre de ces fichiers, comment faire pour dire à Excel:
si cette cellule a telle valeur, alors, joue le fichier audio X, Y et Z l'un après l'autre.

(hypothèse: Vu que ces fichiers sont courts (environ 1.5 seconde max par fichier), est-ce qu'on peut imaginer une sorte de timing pour dire à Excel: toutes les 1.5 secondes, joue un nouveau fichier audio? De cette sorte, on aurait le fichier X, puis 1.5s plus tard, le fichier Y et enfin 1.5s plus tard, le fichier Z.)

merci à tous!

Bonjour à tous,

Je souhaiterai pouvoir lancer automatiquement un fichier mp3 lorsqu'une condition est remplie dans une cellule.
Par exemple, si C3=5, alors lancer le fichier mp3 dans A1.

J'ai trouvé ce code en fouillant un peu sur le net:


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C3") = 5 Then
    Shell ("C:\Program Files\Windows Media Player\wmplayer.exe """ & Range("A1") & "")
End If
End Sub

Effectivement, lorsque C3=5, WMPlayer se lance ;)
Ma question est comment attribuer le fichier MP3 à A1, par un simple lien hyper texte?

Merci d'avance!

Bonjour,

Merci beaucoup pour avoir modifier le fichier!
C'est exactement ce que je recherchais.

Pour le fichier corrompu, en fait je l'avais compressé avec winrar et je l'ai renommé en .zip car je ne pensais pas que les .rar pouvaient etre uplodés...

Encore merci pour la rapidité!

à bientot

Bonjour à tous,

Voici mon problème que je vais essayer de bien formuler:

J'ai un chronometre sous Excel qui me permet d'afficher une série de temps intermédiaires dans une colonne de haut en bas (colonne B).

(A partir de ces résultats, une série de calcul est engagée.)

J'ai programmé une petite macro pour que le Solveur se déclenche dès qu'une cellule de la colonne B est modifiée, c'est à dire dès que la cellule B8 est différent de 0:

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$B$8" Then
        If Target.Value <> "0" Then Call Macro2
                      
        End If
End Sub


Problème rencontrée:

La macro se lance dès qu'on change la valeur de la cellule B8 "à la main", c'est à dire qu'on entre une valeur dans la cellule (autre que 0) et qu'on tape Entrée.
ça marche aussi, si on fait un copier coller sur cette cellule d'une autre valeur.

Mais ça ne marche pas quand cette cellule est automatiquement modifiée en affichant un nouveau temps intermediaire, comme si il n'y avait pas d'actualisation.


J'espère que je suis clair ;)
En gros, j'ai une colonne vide dans laquelle se mettent 1 à 1 les temps intermédiaires, je voudrai qu'au 8e temps enregistré par exemple, une marco se déclenche.

Pouvez vous m'aider svp?

merci!


Edit:

Désolé pour le dérangement!
En fait, j'ai trouvé, ça ne marchait pas car j'avais 2 feuilles de calculs différents:
1 feuille n°1 avec le chronometre affichant les temps intermediares et 1 feuille n°2 qui copiait ces temps dans laquelle j'avais ma macro.

Tout semble marcher si je mets le tout dans 1 seule feuille de calcul.

Bizarre, mais ça marche ;)

Par exemple, j'ai trouvé ce chrono sur le net.

Est-ce qu'il est possible de modifier le code pour avoir un seul bouton pour Start et Temps intermédiaire par exemple?

En faisant "format de cellule", j'arrive à afficher ss,000, soit une précision jusqu'au millième. Est ce que c'est fiable à votre avis?

Et puis, comme vous le remarquerez, la prise de temps rapprochés semble etre trop grande entre 2 mesures consécutives, peut on l'améliorer?