Discussion :

[zermatt]

Bonjour,

j'ai plusieurs formulaires incluant quelques boutons, tous identiques, sur lesquels du code est lié à la fonction clic.

Plutot que de les recréer, je les ai copier d'un formulaire à l'autre, mais je perds en collant le code lié.

Comment copier coller un bouton et son code d'un formulaire vers un autre ?

Cette question a certainement une réponse très simple mais je ne la trouve pas sur le forum.

Merci par avance pour vos lumières... et bon weekend

[ESVBA]

Dans chaque formulaire faire :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Cmd_Click()
   CAll SubCommentMiseModule
End Sub
 
Dans un module :
 
SUB SubCommentMiseModule
   'ici mes instructions
End Sub

[zermatt]

merci beaucoup, mais à quel endroit faut-il mettre ce code précisement ?

"Dans chaque formulaire faire :

Code :

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

1
2
3
Sub Cmd_Click()
CAll SubCommentMiseModule
End Sub

[Heureux-oli]

C'est bien dans chaque formulaire que tu dois mettre ce code.

En fait, l'explication est que le code du formulaire va faire appel pendant son exécution à un autre routine qui se trouvera dans un module.

Si tu as des valeurs à utiliser durant ta procédure, tu devras les passer en paramètres dans les arguments.

Code :

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

1
2
3
4
5
 
Sub Moncontrole_Clic()
MaValeur = [Moncontrolevalue]
call MaRoutine(MaValeur)
End Sub

Dans le module

Code :

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

1
2
3
Public Sub MaRoutine(Valeur as Variant)
Ce qui est à faire
End Sub

Si c'est une valeur qui doit être retournée, il est préférable d'utiliser une fonction.

[zermatt]

je pensais qu'access offrait une fonctionnalité intégrée du type "collage spécial" mais cette solution fonctionne et me convient aussi.

Merci beaucoup