émettre un son lors du remplissage

[skaxel]

Bonsoir à tous,

J'utilise Excel dans le cadre d'un relevé automatique de la mesure de véhicules, j'ai donc un logiciel qui remplit automatiquement un tableau excel avec pour chaque ligne l'heure et les mesures relevées.
Je voudrais que le PC me signale à chaque fois qu'une mesure est acquise donc qu'une ligne est remplie.
Comment pourrais-je faire pour que si une valeur est entrée dans une des cellules de A3:A65536, le PC émette un son?

merci d'avance!

bonne soirée

 

[kjin]

Re : émettre un son lors du remplissage

Bonsoir et bienvenu,
Malheureusement tu ne dis pas grand chose concernant cette automatisation...
A+
kjin

 

[skaxel]

Re : émettre un son lors du remplissage

L'automatisation du remplissage du classeur? Hé bien quand je lance le logiciel de mesure il ouvre un masque avec en première ligne les intitulés des colonnes (A=identifiant, B=heure de passage, c=hauteur, d=largeur et e=nombre de scan) ensuite à chaque enregistrement, il remplit les lignes comme si je tapais les données. Je voudrais donc que quand il entre l'heure dans la colonne A, un son soit émis de manière à me confirmer que l'acquisition a été faite même si l'écran est éteint.
Merci d'avance pour vos idées.

 

[skaxel]

Re : émettre un son lors du remplissage

à voir en tapant beep en vb, le pc bipe? Donc serait-il possible de créer une macro qui dirait '' si une valeur est entrée dans le champs A3:A65536, émettre un bip?
Désolé mais autant je m'en sors avec les formules autant je ne me suis jamais plongé dans les macros.

 

[tototiti2008]

Re : émettre un son lors du remplissage

Bonjour skaxel,

à mettre dans le code de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A3:A65536")) Is Nothing Then
        Beep
    End If
End Sub

 

[skaxel]

Re : émettre un son lors du remplissage

Merci! je vais être chiant mais tu sais comment je pourrais rendre le bip plus audible?
je tente ça:

Public Declare Function Beep Lib "kernel32" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3:A65536")) Is Nothing Then
Beep 800,2000
End If
End Sub

mais ça me renvoie une erreur...?

 

[tototiti2008]

Re : émettre un son lors du remplissage

Re,


Déplace la partie là :

Public Declare Function Beep Lib "kernel32" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

du code de la feuille à celui d'un module

 

[Dull]

Re : émettre un son lors du remplissage

Salut skaxel, kjin🙂, Tototiti🙂, le forum, 🙂

une solution basic 😀: Amplifie ton Volume à fond 😛

Démarrer/Panneau de configuration/Sons et périphérique audio/onglet : Volume et met le à Élevé

Y'adesjourscommecela 😀 Heu!!!...désolé😱

Bonne Journée

 

[tototiti2008]

Re : émettre un son lors du remplissage

Bonjour Dull,
Re,

c'est marrant j'y ai pensé aussi, mais bon... 😉😀

 

[skaxel]

Re : émettre un son lors du remplissage

Lol oui j'y ai pensé mais étant dans une voiture en bord de chaussée à La Défense... c'est pas forcément super perceptible!

@++

 

[skaxel]

Re : émettre un son lors du remplissage

Tototiti, j'ai intégré ton code dans un autre code trouvé sur internet, du coup y'a ptêtre des arguments en trop puisque pour le moment je ne comprends pas vraiment ce que je fais sous VBA... Mais ça marche!

Option Explicit
 'API Declaration
Private Declare Function MessageBeep& Lib "user32" (ByVal wType As Long)
 
 'Enumeration of the beep types
Public Enum BeepTypes
    MB_OK = &H0&
    MB_ICONASTERISK = &H40&
    MB_ICONEXCLAMATION = &H30&
    MB_ICONHAND = &H10&
End Enum
 
Public Function BeepType(lSound As BeepTypes) As Long
     ' Function to return
    BeepType = MessageBeep(lSound)
End Function
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A2:A65536")) Is Nothing Then
     ' Play the beep
    BeepType MB_ICONASTERISK
 End If
End Sub