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)