Sujet Précédent Sujet Suivant

[visual basic] fonction immpaire

Fermé
titi78 - 3 juin 2008 à 14:35
weaponjr Messages postés 11 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 17 mai 2011 - 6 juin 2008 à 09:08
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 mercredi 22 août 2007 Statut Membre Dernière intervention 17 mai 2011 7
3 juin 2008 à 17:10
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
3 juin 2008 à 17:20
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 mercredi 22 août 2007 Statut Membre Dernière intervention 17 mai 2011 7 > titi78
6 juin 2008 à 09:08
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
Faut-il conserver toutes les versions de Visual C++ ?
93cdrhum -
Whismeril -

6 réponses
CPU tourne à 100% avec Visual Basic Command Line Compiler
IKeroZI -
bazfile -

10 réponses