Bonjour,
Lors d'un de mes précédent post on m'a donné cette solution, qui d'ailleurs fonctionne!
pourquoi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub NbrEquipe_BeforeUpdate(Cancel As Integer)<--- INTEGER If Me.NbrEquipe Mod 2 = 1 Then MsgBox ("Il faut un chiffre pair !") Me.Undo Cancel = True<---- boolean End If End Sub![]()
Merci
Jeff![]()
Partager