Déplacer pair

[Temjeh]

Bonjour à tous et mille fois merci pour votre aide

J'ai ceci qui fonctionne:

Dim cel As Range
For Each cel In Range('C1:C' & Range('C65536').End(xlUp).Row)
If cel.Text = 'Test' Then
cel.Offset(0, 0).Cut Destination:=cel.Offset(0, 1)
End If
Next cel

La question: Comment y faire déplacer les nombres pairs?

Du genre
Dim cel As Range
For Each cel In Range('C1:C' & Range('C65536').End(xlUp).Row)
If cel.Text = Mod (cell;2) Then
cel.Offset(0, 0).Cut Destination:=cel.Offset(0, 1)
End If
Next cel

Merci

Temjeh

 

[Abel]

Bonjour Temjeh,

Teste le reste de la division. Si celui ci est = 0, alors c'est pair.

if cell mod 2 =0 then msgbox 'Gagné ! C'est pair'


En espérant que cela te dépanne.

Abel.

 

[Temjeh]

Merci beaucoup j'y était presque!!!!

Pour ceux que ce code va servir j'ai fait une erreur la variable est cel et non cell

if cel mod 2 =0 then

Merci c'est parfait

Temjeh