S
steve
Guest
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
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