Sujet Précédent Sujet Suivant

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

A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 27237 Date d'inscription   Statut Contributeur Dernière intervention   11 504
 
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
m@rina Messages postés 27237 Date d'inscription   Statut Contributeur Dernière intervention   11 504
 
excuse moi, je viens de voir que c'est pas 100 mais 0 !
Il suffit de modifier la macro :
if x <= 0 then...
0
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