Se connecter avec
S'enregistrer | Connectez-vous

Erreur 13 de compilation VBA EXECEL 2007

Dernière réponse : dans Programmation

Bonjour
j'ai essayé de faire l'exécution de mon macro VBA ,mais un erreur apparait '' erreur 13 de compilation ".
voila mon macro :
  1. Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
  2. Sub BeepBeep()
  3. Beep 392, 200
  4. Beep 494, 100
  5. Beep 588, 200
  6. Beep 740, 100
  7. Beep 880, 400
  8. Beep 740, 100
  9. Beep 880, 900
  10. End Sub
  11.  
  12. Private Sub Worksheet_Calculate()
  13. If Range("H07").Value > 60 Then
  14. Call BeepBeep
  15. MsgBox " TR1: Attention valeur atteinte"
  16. End If
  17. If Range("H09").Value > 50 Then
  18. Call BeepBeep
  19. MsgBox " Valeur seuil atteint "
  20. End If
  21. End Sub


merci pour votre aide je suis vraiment bloqué :) 






Autres pages sur : erreur compilation vba execel 2007

Lassé par la pub ? Créez un compte
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde