F
Fifi
Guest
rebonjour,
je n'arrive pas à tester la parité d'une cellule via le VB
une petite aide svp
je n'arrive pas à tester la parité d'une cellule via le VB
une petite aide svp
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Columns('D:D')
If Not Application.Intersect(Plage, Target) Is Nothing Then
If Target.Value Mod 2 = 0 Then
MsgBox ('C'est pair')
Else: MsgBox ('C'est impair')
End If
End If
End Sub