Discussion :

[tomga]

Bonsoir !
Pouvez-vous m'aider SVP
J'ai un formulaire Menu1 qui propose 4 options ,il comporte un champ
choix dans lequel est saisi le N° de l'option choisie
1/comment écrire un macro qui en fonction de l'option dans champ
CHOIX va exécuter une autre macro :
CHOIX =1 provoque le lancement de la macro 'Mac 1'
CHOIX = 2 provoque le lancement de la macro 'Mac 2'
2/Comment modifier la macropour prendre en compte les erreurs de
saisie de l'utilisateur comme :
- Saisie d'un nombre diffrérence de 1,2,3 ou 4
-Saisie d'un caractere alphabétique
-Pas de saisie effectuée
dans 3 cas il faut affichier un message avertissant l'utilisateur de son
erreur
Merci d'avance
ps: ce n'est pas le macro VBA mais il est sur langage de macros

[LE VIEUX]

bonsoir,
Pour éviter les erreurs de saisie, si on sait d’avance les choix à faire, faire une liste déroulante avec les choix possible et limiter les saisies à la liste.
Pour le lancement des macros ou subroutines sur l’évènement clic par exemple de la zone de liste faire le choix avec fonction « select case » -
Exemple une zone de liste déroulante avec comme valeur 1,2,3 son nom Selection :
Sur son évènement sur clic :
Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Selection_Click()
Ind = Me.Selection.Value
Select Case Ind
    Case 1
    DoCmd.RunMacro "Mac 1"
    Case 2
    DoCmd.RunMacro "Mac 2"
    Case 3
    DoCmd.RunMacro "Mac 3"
End Select
 
End Sub

[tomga]

Bonjour !
Merci a vous mais est ce que la réponse c'est la question 1 ou question 2 ?et le formulaire 'menu 1" avec le champ choix comment écrire ,Aidez-moi encore Svp merci encore d'avance

[psykodumarteau]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Selection_Click()
Ind = Me.Selection.Value
Select Case Ind
    Case 1
    DoCmd.RunMacro "Mac 1"
    Case 2
    DoCmd.RunMacro "Mac 2"
    Case 3
    DoCmd.RunMacro "Mac 3"
    Case else
    MsgBox "erreur de saisie"
End Select
 
End Sub

[tomga]

Bonjour !
merci à vous mais pour écrire un macro qui en fonction de l'option dans le champ "choix " va exécuter ene autre macro ?

[Pierre Fauconnier]

Bonjour

Le Vieux et Psykodumarteau t'ont donné la solution.

As-tu testé? As-tu un problème pour la mettre en place?