[Résolu][Calc] surveiller cellule avec un message d'alerte pour le classeur

[Alain-81]

Veuillez noter que les balises s'écrivent avec la première lettre en majuscule, le reste en minuscules, le tout entre crochets. [Calc] remplace [CALC] dans votre titre•

Bjr
J'ai trouvé une petite macro pour afficher une alerte quand une cellule dépasse une certaine valeur.

Code : Tout sélectionner

Function alerte(arg1 as Integer)
if arg1 > 10 then msgbox ("Attention ")
End function

Sur ce post :
viewtopic.php?f=8&t=54582
Cela me va. Mais cela ne fonctionne que sur la page active.

J'aimerais la même chose, surveiller une cellule dans un onglet. Mais je voudrais que l'alerte s'affiche même quand je suis sur n'importe quel autre onglet.
Mon classeur fait quarante pages et le cellule que je surveille est un total sur la page Récap.
Cela doit être possible en adaptant la macro ?
merci

[jeanmi2403]

Bonsoir,
Intéressé par le sujet, je l'ai branchée sur l'événement du classeur "Le statut Modifié a été changé" (Outils>Personnaliser).
L'événement se déclenche bien, mais on ne voit le message que lorsqu'on vient sur la feuille où se trouve la formule.
Donc, peu d'espoir, à mon avis.
Cordialement,

[yclik]

Bonjour

une proposition à tester
en ajoutant une fonction suivi à côté de la valeur saisie Feuille 1 et 2 en A2

alerte sur recap.ods

Code : Tout sélectionner

Function Alerte(arg1 as Integer)
if arg1 > 10 then msgbox ("Attention ")
End function

Function Suivi(arg2 as Integer)
if arg2 >0 then call SuiviAlerte
End function

Sub SuiviAlerte
Dim oDoc as Object rem le document
Dim Sheets as object rem les feuilles

Dim Nombre as integer
oDoc=ThisComponent
 Sheet = oDoc.Sheets.getByName("Recap")

NbRecap=Sheet.getCellRangeByName ("A2").Value
If NbRecap > 10 then msgbox ("Attention valeur > à 10 ") else exit sub
end Sub

[Alain-81]

Merci yclic
Oui ça fonctionne bien. Je trouve quand même un inconvénient de faire le suivi sur chaque feuille. Surtout que j'ai plusieurs sous totaux sur les feuilles (40) et il n'y a que sur la feuille récap où j'ai le total général.

Je pense que je vais pour le moment garder la fonction citée plus haut.

Code : Tout sélectionner

Function alerte(arg1 as Integer)
if arg1 > 10 then msgbox ("Attention ")
End function

Et je mets un rappel sur chaque page de la fonction en page Récap.

Code : Tout sélectionner

=alerte(RECAP.C37)

Ça fonctionne aussi.

En tout cas merci beaucoup Yclic de t'être penché sur le sujet.

[jeanmi2403]

Bojour,
Par curiosité, j'ai mis en place ta solution ( sur 3 feuilles) et j'ai constaté plusieurs choses :

• Lorsqu'il y a dépassement après saisie, on a bien le message, mais on l'a aussi sur chaque feuille en se déplaçant de feuille en feuille
• De même, au moment de l'enregistrement (après un dépassement) j'ai autant d'avertissements que de feuilles
• Également au chargement si le fichier a été enregistré avec un dépassement

Cordialement,

[luky-luke]

Bonjour,
A tester en ajoutant une macro de recalcul,

Code : Tout sélectionner

Sub SuiviAlerte
Dim oDoc as Object rem le document
Dim Sheets as object rem les feuilles
Dim Nombre as integer
Recalcul
oDoc=ThisComponent
 Sheet = oDoc.Sheets.getByName("Recap")
NbRecap=Sheet.getCellRangeByName ("A2").Value
If NbRecap > 10 then msgbox ("Attention valeur > à 10 ") else exit sub
end Sub

sub Recalcul
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:CalculateHard", "", 0, Array())
end sub

Plus de fonction Suivi sur toutes les feuilles "en principe".
Cordialement
Luke

[jeanmi2403]

Bonsoir,
Et comment est lancée la macro ?
Bonne soirée,

[luky-luke]

Bonjour,

Et comment est lancée la macro ?

>Événements de la feuille...>Contenu modifié
Assigner la macro SuiviAlerte sur l'ensemble des feuilles sauf sur la feuille Recap.

La macro Recalcul est enregistré à l'aide de l'enregisteur de macro :
>Données>Calculer>Recalculer sans condition
Elle force le recalcul sur toutes les feuilles. En mode "normal" le recalcul ne se fait qu'au moment où la feuille Recap devient active.
Cordialement
Luke

[jeanmi2403]

Bonsoir,

>Événements de la feuille...>Contenu modifié

Mai bien sûr !!
J'avais branché sur un événement du classeur....
Cordialement,

[Alain-81]

Bjr
Désolé pour la réponse tardive et ma demande de béotien.
Cette macro me va, mais a la place de :

Code : Tout sélectionner

 If NbRecap > [b]10[/b] 

Comme faire pour prendre la valeur d'une cellule ?
Merci

[yclik]

Bonsoir
si le max est en cellule A1

Code : Tout sélectionner

Nbmax=Sheet.getCellRangeByName ("A1").Value
If NbRecap > Nbmax

[Alain-81]

Merci Yclic,
c'est parfait et ça me va très bien !

Merci pour cette aide précieuse.

Alain A