Erreur 13 VBA

[meryAD]

Bonjour

lorsque j'ai essayé d'exécuter mon macro , un message qui apparait ("erreur 13 de compilation")

voila mon macro:
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub BeepBeep()
Beep 392, 200
Beep 494, 100
Beep 588, 200
Beep 740, 100
Beep 880, 400
Beep 740, 100
Beep 880, 900
End Sub

Private Sub Worksheet_Calculate()
If Range("H07").Value > 60 Then
Call BeepBeep
MsgBox " TR1: Attention valeur atteinte"
End If
If Range("H09").Value > 50 Then
Call BeepBeep
MsgBox " Valeur seuil atteint "
End If
End Sub

merci d'avance pour vos aides

 

[JCGL]

Re : Erreur 13 VBA

Bonjour à tous,

Vérifie la syntaxe de ton Range("H07")
Je poserais Range("HO7")

A+ à tous

Édition :

Private Declare Function Beep& Lib "Kernel32" (ByVal Fq&, ByVal Tm&)

 

[Pierrot93]

Re : Erreur 13 VBA

Bonjour,
Salut Jean-Claude

tu as également une réponse ici :
Erreur 13 VBA • Excel-Pratique
il est plus sympa de prévenir lorque l'on poste sur plusieurs forums...

bonne journée
@+

 

[JCGL]

Re : Erreur 13 VBA

Bonjour à tous,
Salut Pierrot ,

XLD vs XLPratique même combat et en plus on retrouve les mêmes contributeurs.

A++
A+ à tous