automatiser une action avec un bouton

[MARION]

Bonjour le forum.
Une petite question, peut-on automatiser une action a l'aide d'un bouton, je m'explique.
Prenons l'exemple suivant:
Peut-être que ce principe peu intérrésser d'autre personne comme TITI qui a demander un peu plus bas une chose similaire.
Je travaille sur une feuille qui est en options ordre, peut-on a l'aide d'un bouton passer en atomatique pendant 5 sec et revenir sur ordre? tout cela en cliquant qu'une fois sur le bouton.
Merci
A+ M

 

[RENATO]

Bonjour Marion,

Tu peux essayer ça :

If Application.Calculation = xlAutomatic Then

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Else

With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End If
End Sub

A bientôt

Rénato

 

[MARION]

Merci beaucoup Rénato.
j'ai essayer ta formule pas mal du tout voir même bien, un petit soucis tous de même, a tu sais les femmes ne sont jamais satisfaites a 100 %.
Si je suis en manuel en cliquant un fois sur le bouton il faudrait que je passe en auto et que je revienne en manu (comme pour faire un enregistrement)
par contre si je suis en automatique ll faut que je bacule en manuel avec un msgbox me disant que je suis de retour en manu.
Si tu as une solution merci de me la proposer si non merci de m'avoir aidé.
Gros bisous
A+ M

 

[RENATO]

Coucou Marion,

C'est vrai, même avec les années, on a beaucoup de mal à comprendre les femmes.....
Récapitulons :
Point 1 : tu souhaites quand tu es en mode manuel, passer en auto, pour revenir tout de suite en manuel.
Alors pourquoi ne restes-tu pas en manuel avec une gestion des calculs sur ordre par F9 ?

Point 2 : faire remonter un message pour le retour en manuel ne pose pas de problème.

J'attends ton éclairage sur le point 1 pour donner suite.

A bientôt

Rénato

 

[RENATO]

En attendant, j'ai allégé un peu le listing, et j'ai intégré les msgbox.

If Application.Calculation = xlAutomatic Then

With Application
.Calculation = xlManual
End With
MsgBox "Attention vous êtes en calcul sur ordre !"
Else
With Application
.Calculation = xlAutomatic
End With
MsgBox "Vous êtes de retour en calcul automatique!"
End If

A tout à l'heure.

Rénato

 

[MARION]

Me revoilà Rénato.
1 si j'ai cliqué sur ordre et que je fais des saisies, le fait de valider par F9 ne fonctionne pas, il faut attendre un petit peu pour que cela enresgistre, voilà pourquoi je désire ce genre d'outil qui d'apr2s ce que j'ai vu, le fait d'être sur ordre et ensuite de passer en auto vaide tout de suite.
C'est ce qu'il me faut :
Je suis en mode ordre (la saisie est plus rapide) je veux enregistrer mes données par un bouton en appuyant dessus, le systeme bacule en auto pour revenir en manuel,un petit message me demande si je veux reste en mode manu oui ou non si oui= manu si non =auto.
pas simple d'avoir affaire a une femme.
si proposition merci
A+ M

 

[RENATO]

Voici afin de satisfaire les dernières exigences de Mademoiselle M.

Sub MarionII()
If Application.Calculation = xlManual Then
With Application
.Calculation = xlAutomatic
End With
With Application
.Calculation = xlManual
End With
réponse = MsgBox("Souhaitez-vous rester en mode de calcul manuel ?", vbYesNo, "Choix utilisateur :")
If réponse = vbNo Then
With Application
.Calculation = xlAutomatic
End With
Else: Exit Sub
End If
End If
End Sub

Bonne nuit et à bientôt

Rénato

 

[MARION]

Bonjour Rénato et merci? enfin je suis satisfaite, tu sais avec ses dames la patience est de rigueur.
merci et gros bisous, j'ai un autre petit soucis voir message plus haut.
A+ M