Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Déplacer pair

T

Temjeh

Guest
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
 
T

Temjeh

Guest
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
 

Discussions similaires

Réponses
2
Affichages
148
Réponses
2
Affichages
291
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…