Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel son sur une action

son sur une action

14 réponses
Avatar
thiery
Bonjour vous m'avait fait cette macro et je vous en remercie
alarme sur un certain kilométrage

Private Sub Worksheet_Change(ByVal Target As Range)
c = Target.Row
If Intersect(Target, Range("F" & c)) Is Nothing Then Exit Sub
If Range("F" & c) - Range("E" & c) > 10000 _
Then MsgBox "vidange a faire"
End Sub

comment puis-je et est-ce possible de mettre un son ( bip ) tout bête à
l'ouverture de la messagebox ?
merci d'avance

--
Amicalement
thiery
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
1 2
Avatar
thiery
"jps" a écrit dans le message de news:

heu....scusez, maître, encore faut-il ne pas oublier de supprimer le _
(underscore) au bout de la ligne n° 2...
à part ça, françois-xavier, all under control?
jps

"FxM" a écrit dans le message de
news:
Bonjour,

j'ai les 3 dernières lignes écrite en rouge
Le premier truc est que ces trois dernières lignes ne doivent en faire

qu'une seule.

@+
FxM





vous êtes tous bonnement époustouflant !!!!!
en même temps merci de votre simplicité

--
Amicalement
thiery



Avatar
LSteph
Merci les amis!

lSteph

"jps" a écrit dans le message de news:

heu....scusez, maître, encore faut-il ne pas oublier de supprimer le _
(underscore) au bout de la ligne n° 2...
à part ça, françois-xavier, all under control?
jps

"FxM" a écrit dans le message de
news:
Bonjour,

j'ai les 3 dernières lignes écrite en rouge
Le premier truc est que ces trois dernières lignes ne doivent en faire

qu'une seule.

@+
FxM




thiery wrote:
LSteph wrote:
Bonjour,

Private Const SND_ASYNC = &H1 ' jeu asynchrone
Private Const SND_FILENAME = &H20000 ' nom de fichier

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
_ (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As
Long) As Long

Private Sub playit()

PlaySound "C:WINDOWSMEDIATADA.WAV", _
ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
c = Target.Row
If Intersect(Target, Range("F" & c)) Is Nothing Then Exit Sub
If Range("F" & c) - Range("E" & c) > 10000 _
Then MsgBox "vidange a faire": playit
End Sub
'lSteph
(Merci l'Api Guide)
http://www.mentalis.org/index2.shtml

excuse de t'embêter mais j'ai une erreur de compilation : attendu nom

de
type

Private Const SND_ASYNC = &H1 ' jeu asynchrone
Private Const SND_FILENAME = &H20000 ' nom de fichier

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As
Long)
As


Long

j'ai les 3 dernières lignes écrite en rouge










Avatar
J
Merci les amis!
Plus précisément : les amis des APIS

;-)

[léger squat HS pour lSteph : j'ai fini ma proc qui marche au poil, voir
" améliorer proc de réorganisation horizontale" de 14:23. Beep.]

Amis, calmant
J@@

Avatar
LSteph
Bonjour J@@,
Oui, j'ai vu (doublage fenêtre et non nvl feuille en tant que classeur )
Mais z' ajouté ce qui me semble depuis le début
à ce fil, va voir !

a+

'lSteph

"J@@" a écrit dans le message de news:

Merci les amis!
Plus précisément : les amis des APIS

;-)

[léger squat HS pour lSteph : j'ai fini ma proc qui marche au poil, voir "
améliorer proc de réorganisation horizontale" de 14:23. Beep.]

Amis, calmant
J@@



1 2