copier une colonne sans certaines valeurs

[fred]

Bonjour a tous

dans ma feuille "calcul" j'ai une colonne D dans laquelle j'ai différentes valeurs.

J'aimerai avoir dans ma colonne E, les meme valeurs que la colonne D sauf si cette valeur vaut 90.

Comment le faire par un code?

merci
fred

 

[Pascal76]

Bopnjour Fred et le forum

essaies ce code

Sub copiesans90()

Dim x As Integer, y As Integer

y = 1

For x = 1 To Range("D65536").End(xlUp).Row
&nbsp;&nbsp;If Range("D" & x) <> 90 Then
&nbsp;&nbsp;&nbsp;&nbsp;Range("E" & y) = Range("D" & x)
&nbsp;&nbsp;&nbsp;&nbsp;y = y + 1
&nbsp;&nbsp;End If
Next

End Sub

Bonne journée

Pascal

 

[fred]

c'est parfait

merci beaucoup

bonne journée a toi et a tout le forum

fred