[visual basic] fonction immpaire

titi78 -  
weaponjr Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
weaponjr Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   7
 
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
0
titi78
 
Merci beaucoup ça a l'air très bien. Cependant comment je peux faire pour teste si ca marche avant 2009 : D
0
weaponjr Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   7 > titi78
 
Tu 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
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Microsoft Visual C++ ? C'est quoi ?
QuentinAGT -
SamySabb -

3 réponses