Discussion :

[LE VIEUX]

je parle de ton code initial

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 NomModule_AfterUpdate()
 
If NomModule = "ABCD" Then
CodeModule = 234567
Else
CodeModule = Null
 
End If
If [NomModule] = "XXXX" Then
[CodeModule] = 345234
 
Else
CodeModule = Null
End If

[MasterChief78]

Le problème de cette solution, est qu'elle n'est pas du tout automatique. Or c'est ce qu'il faudrait...