émettre un son lors du remplissage

K

kjin

XLDnaute Barbatruc

• 24 Novembre 2010

• #2

Re : émettre un son lors du remplissage

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

 

Vote positif 0 Vote négatif

S

skaxel

XLDnaute Nouveau

• 25 Novembre 2010

• #3

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.

 

Vote positif 0 Vote négatif

S

skaxel

XLDnaute Nouveau

• 25 Novembre 2010

• #4

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Novembre 2010

• #5

Re : émettre un son lors du remplissage

Bonjour skaxel,

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

Code:

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

 

Vote positif 0 Vote négatif

S

skaxel

XLDnaute Nouveau

• 25 Novembre 2010

• #6

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...?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Novembre 2010

• #7

Re : émettre un son lors du remplissage

Re,


Déplace la partie là :

Code:

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 25 Novembre 2010

• #8

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Novembre 2010

• #9

Re : émettre un son lors du remplissage

Bonjour Dull,
Re,

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

 

Vote positif 0 Vote négatif

S

skaxel

XLDnaute Nouveau

• 25 Novembre 2010

• #10

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!

@++

 

Vote positif 0 Vote négatif

S

skaxel

XLDnaute Nouveau

• 26 Novembre 2010

• #11

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!

Code:

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

 

Dernière édition: 26 Novembre 2010

Vote positif 0 Vote négatif