Macro qui execute tous les boutons d'un formulaire

Question

Bonjour tout le monde alors voila, j'ai crée un formulaire avec plusieurs boutons, et j'aimerais que les personnes qui executent les différents boutons du formulaire ne fasse pas n'importe quoi! de facon a ce que l'analyse soit ctoujours correct et qu'il y ait pas de défaillance dans le systeme. 

Serait il possible de crée une macro qui permet d'executer tous les boutons dans l'ordre que je veux et en un seul coup sans que personne ne touche quoi que ce soit.

Je vous remercie d'avance

pijaku · Answer

Bonjour,

C'est possible, mais... Quel est l'intérêt?
Ne met qu'un seul bouton réalisant toutes tes actions dans l'ordre...

f894009 · Answer

Bonjour,

Vous mettez tous les boutons sauf le premier en .Enabled = False a l'ouverture de votre UF et vous mettez le bouton qui doit etre actif 
(.Enabled = true) a la fin de l'execution du code du bouton actif 

exemple:
Private Sub UserForm_Initialize()
    CommandButton1.Enabled = True
    CommandButton2.Enabled = False
    ' et ainsi de suite
End Sub

Private Sub CommandButton1_Click()
    'code a exceuter
    '
    '
    CommandButton2.Enabled = True   'active le  bouton suvant
    CommandButton1.Enabled = False  'desactive le bouton precedent
End Sub

Lils_Bis · Answer

(re)Bonjour van_van,
J'ai le même problème que toi. Pour y remédier j'ai :

1- Créer un module et insérer mes macros dedans


Option Explicit

Dim X As Integer, Y As Long

Sub Mac1()
.
.
.
End Sub
Private Sub Mac(k As Long)
.
.
.
.
  
End Sub


Private Sub Maccc(k As Long)
.
.
.
.
End Sub


Sub Mac2()
.
.
.
End Sub




2- De là j'ai créer un bouton "Ana_Mac" dans mon userform

3- Dans ce bouton, j'ai écris le code suivant :
Private Sub Ana_Mac_Click()
'Lancer le module 3 (Mac1)
Module3.Mac1
'Lancer le module 3 (Mac2)
Module3.Mac2
End Sub


J'espère que cela t'aidera dans ton problème, bon courage.

Macro qui execute tous les boutons d'un formulaire

3 réponses

Discussions similaires

Newsletters