Discussion :

[fred62200]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Auto_Open()
Application.WhenRecalculate = "Alarme"
End Sub
 
Sub Alarme()
If Sheets("Résultats").Cells(2, 3) > 100 Then
For Sound = 1 To 3
Bip
For Delay = 1 To 200000
Next Delay
Next Sound
End If
End Sub

Cette macro ne fonctionne pas, j'ai du faire une erreur qq part.

[Nain porte koi]

Hello,

à ma connaissance, Application.WhenRecalculation n'existe pas nativement dans Excel, donc soit elle fait parti d'un addon soit c'est une erreur.

C'était quoi le but que vous vouliez atteindre avec cette commande ?

[tototiti2008]

Bonjour,

Peut-être (si j'ai compris le but du code initial) :
dans Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Alarme
End Sub

[fred62200]

Le but, c'était qu'une macro événementielle est chargée en mémoire à l'ouverture de la feuille de calcul.
Elle sera exécutée dès que se produit l'événement Recalcul de la feuille nommée Résultats.
Elle est chargée uniquement de lancer une deuxième macro qui testera le contenu de la cellule surveillée et bipera si la condition (sa valeur est supérieure à 100) est remplie.
Tototiti, il faut Sub Auto_Open() pour que la macro se lance à l'ouverture du classeur.
La 2ème macro "Alarme" est lancée par la première.

[tototiti2008]

Re,

Dans ce cas, dans le code de la feuille concernée (Résultats)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Calculate()
    Alarme
End Sub

[tototiti2008]

Re,

Tototiti, il faut Sub Auto_Open() pour que la macro se lance à l'ouverture du classeur.

Auto_Open a été remplacée par Workbook_Open
Mais le code existant ne lance pas Alarme, il se contente de demander de lancer Alarme s'il y a recalcul

[fred62200]

ça ne fonctionne pas.

[tototiti2008]

Re,

un essai
Pour le tester, taper qque chose dans une cellule

[fred62200]

Le fichier ne peut pas s'ouvrir, car je suis dans Excel 2003.
Merci quand même.

[tototiti2008]

Re,

la version 2003

[tototiti2008]

Vous êtes passé dans une machine à remonter le temps pour devoir convertir des macros Excel 7 en Excel 2003 en 2025 ?

[fred62200]

en quelque sorte, oui IoI

[fred62200]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Auto_Open()
    ' Assurez-vous que l'événement est correctement configuré
    Application.OnTime Now + TimeValue("00:00:01"), "Alarme"
End Sub
 
Sub Alarme()
    If Sheets("Résultats").Cells(2, 3) > 100 Then
        Dim Sound As Integer
        Dim Delay As Long
 
        For Sound = 1 To 3
            Beep ' Utilisez Beep pour émettre un son
            For Delay = 1 To 200000
                ' Boucle vide pour créer un délai
            Next Delay
        Next Sound
    End If
End Sub

[tototiti2008]

Il n'est plus question de recalcul dans votre code
Le recalcul est important ou pas ?

[fred62200]

C'est bon, ça fonctionne !
j'ai mis dans la feuille :
Private Sub Worksheet_Calculate()
Alarme
End Sub
Merci beaucoup !

[Nain porte koi]

Il faudrait peut-être préciser quelle solution fonctionne réellement parmi les différentes réponses des différents forums
https://forum.excel-pratique.com/exc...nne-pas-199720

[fred62200]

Pour la 1ère macro, développez.com, pour la 2ème macro, Excel-Pratique.com.

Merci à tous.