Macro qui execute tous les boutons d'un formulaire

van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   -  
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   -
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

3 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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...
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
oui mais comme a chaque fois il y'a des nouvelles variables et que des fois les codes commences par "option...." cela ne va pas faire beuguer ?
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Honnêtement, comment veux tu que je réponde à cette question sans le code et/ou le classeur?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Lils_Bis Messages postés 57 Date d'inscription   Statut Membre Dernière intervention  
 
(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.
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Merci a tous les deux, Je te remercie lilian et n'oublie surtout pas JE T AIME ! ET JE T AIMERAI
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
ta methode ne marche pas lilian pas avec moi en tout cas
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
AH si !
0
Lils_Bis Messages postés 57 Date d'inscription   Statut Membre Dernière intervention   > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Je suis content qu'elle marche, bon courage pour la suite van_van...
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   > Lils_Bis Messages postés 57 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Ma petite crotte <3
0