probleme if

[steve]

Bonjour le forum
Comment eviter que
Range("CL8").Select
Selection.ClearContents
s'execute quand y=2005
end if ,ne fonctionne pas

Merci pour vos réponse


Dim x As Long
Dim y As Long
y = Range("B1").Value
If y = 2004 Then Range("A150").Value = 50
x = Range("A150").Value
Range("CL8").Select
Selection.ClearContents


If y = 2005 Then Range("A150").Value = 100
x = Range("A150").Value
Range("CL9").Select
Selection.ClearContents

 

[Arnaud]

salut,
comme ça ça fonctionnera

If y = 2005 Then
Range("A150").Value = 100
x = Range("A150").Value
Range("CL9").Select
Selection.ClearContents
end if

 

[Arnaud]

g oublié de présicé pourquoi....
c parceque quand tu écris un if et que tu met une action juste derrière le then ( sur la même ligne quoi ) et bien le if se termine a la fin de la ligne.

 

[steve]

merci pour ton aide Arnaud