Excel 2007

CrazySoprano Messages postés 9 Statut Membre -  
 CrazySoprano -
Bonjour,
J'ai un pti soucis de code sur excel. Au fait je veux un code qui me permettra d'effectuer un bip sonore quand le contenu d'une cellule de la plage de G9 à G500 atteint 0. Quelqu un peut m'aider pour le code de la macro.. Merci Beaucoup

1 réponse

  1.
    m@rina Messages postés 27638 Date d'inscription   Statut Modérateur Dernière intervention   11 566
     
    Bonjour

    Essaie cette macro à mettre dans le modèle de la feuille : 

    Private Sub Worksheet_Calculate() 
Dim x 
x = Application.Sum(Range("G9:G500")) 
If x >= 100 Then Beep 
End Sub

    m@rina

    Si vous voulez être aidé efficacement, vérifiez que vous êtes sur le bon forum,... et précisez le logiciel utilisé ainsi que sa version. Nous manquons de devins !
    0
    1. m@rina Messages postés 27638 Date d'inscription   Statut Modérateur Dernière intervention   11 566
       
      excuse moi, je viens de voir que c'est pas 100 mais 0 !
      Il suffit de modifier la macro :
      if x <= 0 then...
      0
    2. CrazySoprano
       
      Merci Beaucoup M@rina Mais le code fonctionne correctement avec ta modification mais plus bas dans mon classeur par exemple a G20 quand le stock devient nu xa ne me signal plus.
      voila ma modif 

      Private Sub Worksheet_Calculate()
Dim x As Integer
x = Application.Sum(Range("G9:G49"))
If x < 1 Then
MsgBox "Le stock a atteint la valeur 0 "
Beep
End If
End Sub
      0