Bonsoir,
1 - Peut-on affecter un son sélectionnant les cellules (une par une) dans
une plage donnée ?
2 - Peut-on empêcher une deuxième sélection aux cellules (toujours dans la
même plage)
3 - (si possible le signaler par un son différent ) ?
Merci de votre aide.
--
Cordialement
Guy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir, 1 - Peut-on affecter un son sélectionnant les cellules (une par une) dans une plage donnée ? 2 - Peut-on empêcher une deuxième sélection aux cellules (toujours dans la même plage) 3 - (si possible le signaler par un son différent ) ?
dans un module de feuille : '======================== ========== Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("Maplage")) Is Nothing Then ' ------modifier éventuellement le Offset si la cellule contigüe contient déja une donnée ' ------ la colonne correspondante au Offset pourra éventuellement etre masquée If Target.Offset(0, 1) <> "Inactif" Then JouerSon 1 Target.Offset(0, 1) = "Inactif" Else JouerSon 2 End If End If End Sub '======================== ===== dans un module standard : Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Sub JouerSon(NoSON As Integer) If NoSon = 1 Then PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1 Else PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1 End If End Sub
-- -- @+ ;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir,
1 - Peut-on affecter un son sélectionnant les cellules (une par une)
dans une plage donnée ?
2 - Peut-on empêcher une deuxième sélection aux cellules (toujours
dans la même plage)
3 - (si possible le signaler par un son différent ) ?
dans un module de feuille :
'======================== ==========
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Maplage")) Is Nothing Then
' ------modifier éventuellement le Offset si la cellule contigüe contient déja une donnée
' ------ la colonne correspondante au Offset pourra éventuellement etre masquée
If Target.Offset(0, 1) <> "Inactif" Then
JouerSon 1
Target.Offset(0, 1) = "Inactif"
Else
JouerSon 2
End If
End If
End Sub
'======================== =====
dans un module standard :
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub JouerSon(NoSON As Integer)
If NoSon = 1 Then
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1
Else
PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1
End If
End Sub
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir, 1 - Peut-on affecter un son sélectionnant les cellules (une par une) dans une plage donnée ? 2 - Peut-on empêcher une deuxième sélection aux cellules (toujours dans la même plage) 3 - (si possible le signaler par un son différent ) ?
dans un module de feuille : '======================== ========== Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("Maplage")) Is Nothing Then ' ------modifier éventuellement le Offset si la cellule contigüe contient déja une donnée ' ------ la colonne correspondante au Offset pourra éventuellement etre masquée If Target.Offset(0, 1) <> "Inactif" Then JouerSon 1 Target.Offset(0, 1) = "Inactif" Else JouerSon 2 End If End If End Sub '======================== ===== dans un module standard : Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Sub JouerSon(NoSON As Integer) If NoSon = 1 Then PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1 Else PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1 End If End Sub
-- -- @+ ;o)))
Guy72
Bonjour Modeste, Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ? -- Cordialement Guy
"Modeste" a écrit dans le message de news:
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir, 1 - Peut-on affecter un son sélectionnant les cellules (une par une) dans une plage donnée ? 2 - Peut-on empêcher une deuxième sélection aux cellules (toujours dans la même plage) 3 - (si possible le signaler par un son différent ) ?
dans un module de feuille : '================================= Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("Maplage")) Is Nothing Then ' ------modifier éventuellement le Offset si la cellule contigüe contient déja une donnée ' ------ la colonne correspondante au Offset pourra éventuellement etre masquée If Target.Offset(0, 1) <> "Inactif" Then JouerSon 1 Target.Offset(0, 1) = "Inactif" Else JouerSon 2 End If End If End Sub '============================ dans un module standard : Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Sub JouerSon(NoSON As Integer) If NoSon = 1 Then PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1 Else PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1 End If End Sub
-- -- @+ ;o)))
Bonjour Modeste,
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
--
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
Oey08K0HJHA.4564@TK2MSFTNGP02.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir,
1 - Peut-on affecter un son sélectionnant les cellules (une par une)
dans une plage donnée ?
2 - Peut-on empêcher une deuxième sélection aux cellules (toujours
dans la même plage)
3 - (si possible le signaler par un son différent ) ?
dans un module de feuille :
'================================= Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Maplage")) Is Nothing Then
' ------modifier éventuellement le Offset si la cellule contigüe contient
déja une donnée
' ------ la colonne correspondante au Offset pourra éventuellement etre
masquée
If Target.Offset(0, 1) <> "Inactif" Then
JouerSon 1
Target.Offset(0, 1) = "Inactif"
Else
JouerSon 2
End If
End If
End Sub
'============================ dans un module standard :
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub JouerSon(NoSON As Integer)
If NoSon = 1 Then
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1
Else
PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1
End If
End Sub
Bonjour Modeste, Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ? -- Cordialement Guy
"Modeste" a écrit dans le message de news:
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Bonsoir, 1 - Peut-on affecter un son sélectionnant les cellules (une par une) dans une plage donnée ? 2 - Peut-on empêcher une deuxième sélection aux cellules (toujours dans la même plage) 3 - (si possible le signaler par un son différent ) ?
dans un module de feuille : '================================= Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("Maplage")) Is Nothing Then ' ------modifier éventuellement le Offset si la cellule contigüe contient déja une donnée ' ------ la colonne correspondante au Offset pourra éventuellement etre masquée If Target.Offset(0, 1) <> "Inactif" Then JouerSon 1 Target.Offset(0, 1) = "Inactif" Else JouerSon 2 End If End If End Sub '============================ dans un module standard : Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Sub JouerSon(NoSON As Integer) If NoSon = 1 Then PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, &H20000 Or &H1 Else PlaySound "C:WINDOWSMEDIACHORD.WAV", ByVal 0&, &H20000 Or &H1 End If End Sub
-- -- @+ ;o)))
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est
bon ?
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Guy72
Bonjour Modeste Mais oui c'est bien sur. Je n'ai rien compris la 1ère fois, je n'ai pas bien lu les explications. Merci -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Bonjour Modeste
Mais oui c'est bien sur.
Je n'ai rien compris la 1ère fois, je n'ai pas bien lu les explications.
Merci
--
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23uxyrc7HJHA.1304@TK2MSFTNGP02.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est
bon ?
Bonjour Modeste Mais oui c'est bien sur. Je n'ai rien compris la 1ère fois, je n'ai pas bien lu les explications. Merci -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Guy72
Par contre, j'ai déjà cette ligne dans un code de la feuille . Private Sub Worksheet_SelectionChange(ByVal Target As Range) ça pose des problèmes. -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Par contre, j'ai déjà cette ligne dans un code de la feuille .
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ça pose des problèmes.
--
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23uxyrc7HJHA.1304@TK2MSFTNGP02.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est
bon ?
Par contre, j'ai déjà cette ligne dans un code de la feuille . Private Sub Worksheet_SelectionChange(ByVal Target As Range) ça pose des problèmes. -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Guy72
Salut Modeste, C'est presque ça. Je voudrais copier un chiffre dans la plage et ne plus pouvoir en recopier un autre dans toutes les cellules déjà occupées. http://cjoint.com/?jAqdtWoZoL -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Salut Modeste,
C'est presque ça.
Je voudrais copier un chiffre dans la plage et ne plus pouvoir en recopier
un autre dans toutes les cellules déjà occupées.
http://cjoint.com/?jAqdtWoZoL
--
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23uxyrc7HJHA.1304@TK2MSFTNGP02.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est
bon ?
Salut Modeste, C'est presque ça. Je voudrais copier un chiffre dans la plage et ne plus pouvoir en recopier un autre dans toutes les cellules déjà occupées. http://cjoint.com/?jAqdtWoZoL -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Guy72
J'ai trouvé !!!!!!!!! -- Cordialement Guy
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
J'ai trouvé !!!!!!!!!
--
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23uxyrc7HJHA.1304@TK2MSFTNGP02.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ?
Dans le 2ème code je n'entend pas de son et pourtant le chemin est
bon ?
"Modeste" a écrit dans le message de news: % Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans le 1er code ça me jette et me surligne "JouerSon" ? Dans le 2ème code je n'entend pas de son et pourtant le chemin est bon ?
??? http://cjoint.com/?jAleKi1rwD
-- @+ ;o)))
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Salut Modeste, C'est presque ça. Je voudrais copier un chiffre dans la plage et ne plus pouvoir en recopier un autre dans toutes les cellules déjà occupées. http://cjoint.com/?jAqdtWoZoL
peut-etre : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Maplage")) Is Nothing Then If IsEmpty(Target) Then JouerSon 1 ' ----ici le code pour la copy Else Application.CutCopyMode = False JouerSon 2 End If End If End Sub
-- -- @+ ;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Salut Modeste,
C'est presque ça.
Je voudrais copier un chiffre dans la plage et ne plus pouvoir en
recopier un autre dans toutes les cellules déjà occupées.
http://cjoint.com/?jAqdtWoZoL
peut-etre :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Maplage")) Is Nothing Then
If IsEmpty(Target) Then
JouerSon 1
' ----ici le code pour la copy
Else
Application.CutCopyMode = False
JouerSon 2
End If
End If
End Sub
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Salut Modeste, C'est presque ça. Je voudrais copier un chiffre dans la plage et ne plus pouvoir en recopier un autre dans toutes les cellules déjà occupées. http://cjoint.com/?jAqdtWoZoL
peut-etre : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Maplage")) Is Nothing Then If IsEmpty(Target) Then JouerSon 1 ' ----ici le code pour la copy Else Application.CutCopyMode = False JouerSon 2 End If End If End Sub
