Pair et impair

[REX]

Coucou tout le monde

Voila je voudrais conditionner ma forumule de telle maniere :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('E6:E13')) Is Nothing Then
If Target.row = 'impair' Then
....
End if
If Target.row = 'pair' Then
...


Mais je ne connais pas les formules...

Merci

 

[Bebere]

bonjour
de aide vba excel
Mod, opérateur, exemple
Cet exemple utilise l'opérateur Mod pour diviser deux nombres et n'en renvoyer que le reste. Si l'un ou l'autre des nombres est une valeur à virgule flottante, il est d'abord arrondi à sa valeur entière.

Dim MyResult
MyResult = 10 Mod 5 ' Renvoie 0.
MyResult = 10 Mod 3 ' Renvoie 1.
MyResult = 12 Mod 4.3 ' Renvoie 0.
MyResult = 12.6 Mod 5 ' Renvoie 3.

If Target.row Mod 2=0 Then

au revoir

 

[toto]

bonjour

If Int(target.Row / 2) = target.Row / 2 Then
MsgBox 'pair'
Else
MsgBox 'impair'
End If

en divisant ton numéro de ligne.

a bientot

 

[2passage]

Bonjour,

Je ne connais pas de formule pour tester la caractéristique pair ou impair alors j'ai toujours utilisé les maths bêtement :

si nombre /2 = entier ( nombre / 2) => pair

si nombre /2 <> entier ( nombre / 2) => impair

bonne journée

 

[REX]

Re tous

Merci tout le monde, ca colle parfaitement

A plus