Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci dans le code module de la feuille où l'action se déroule, le simple fait de cliquer sur une cellule contenant un fichier ayant une extension ".mp3", déclenche le début de la chanson.
À toi de décider l'approche que tu préfères!
'-------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then Call PlayOn End If
End Sub '--------------------------------------
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille où l'action se déroule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", déclenche le début de la
chanson.
À toi de décider l'approche que tu préfères!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then
Call PlayOn
End If
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci dans le code module de la feuille où l'action se déroule, le simple fait de cliquer sur une cellule contenant un fichier ayant une extension ".mp3", déclenche le début de la chanson.
À toi de décider l'approche que tu préfères!
'-------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then Call PlayOn End If
End Sub '--------------------------------------
magic-dd
Bonsoir MichD
merci pour cette petite modif
c'est meme mieux
bonne soiree
Le dimanche 19 janvier 2014 12:38:52 UTC+1, MichD a écrit :
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille o� l'action se d�roule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", d�clenche le d�but de la
chanson.
� toi de d�cider l'approche que tu pr�f�r es!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then
Call PlayOn
End If
End Sub
'--------------------------------------
Bonsoir MichD
merci pour cette petite modif
c'est meme mieux
bonne soiree
Le dimanche 19 janvier 2014 12:38:52 UTC+1, MichD a écrit :
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille o� l'action se d�roule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", d�clenche le d�but de la
chanson.
� toi de d�cider l'approche que tu pr�f�r es!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
