paire ou impaire en VBA

[Fifi]

rebonjour,

je n'arrive pas à tester la parité d'une cellule via le VB 😱

une petite aide svp

 

[marco57]

Bonjour Fifi et le Forum,
Le code ci-dessous te fera ça

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

Ce code placé au niveau de l'objet Feuil te donnera l'information sur la parité de la valeur saisie en colonne 'D😀'.

Bonne programation

Marco

 

[fif]

ok merci nikel (comme je dis toujours)
😉