[visual basic] fonction immpaire
Bonjour,
voila j'ai de programme:
Sub Auto_Open()
If Day(Now) = 1 And Month(Now) = 1 Then
Range("I18:I20,I11:I16,I8,E7,E23:E24,E29:E30").Select
Range("E29").Activate
Selection.ClearContents
End If
End Sub
j'aimerais en plus mettre une condition si l'année est impaire. Est ce que c'est possible.
merci d'avance
voila j'ai de programme:
Sub Auto_Open()
If Day(Now) = 1 And Month(Now) = 1 Then
Range("I18:I20,I11:I16,I8,E7,E23:E24,E29:E30").Select
Range("E29").Activate
Selection.ClearContents
End If
End Sub
j'aimerais en plus mettre une condition si l'année est impaire. Est ce que c'est possible.
merci d'avance
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Tu peux essayer avec cette condition :
If Day(Now) = 1 And Month(Now) = 1 And (year(now) Mod 2)<>0 then
je crois que ça va marcher, si l'année est paire,le reste de la division de l'année par 2 donnera 0 et 1 dans le cas où l'année est impaire
cordiallement
W-
-
@titi78Tu n'as qu'à changer ta date système, tu modifies la date sur ta machine. Après les test tu remets à la date normale
W
-
