euh???? tu divises une chaîne par un entier? j'avoue que si ça marche ben faut engueuler microsoft. Sinon super pour toi. Enfin bon vla la correcte version (cqfd) :
If Val(Mid$(Date$,4,2)) Mod 2 =0 Then
MsgBox "Date = nbr paire"
Else
MsgBox "Date = nbr impaire"
End If
2 janv. 2007 à 08:34
Mid$(Date$, 4, 2)
dans l'espoir d'extraire ainsi la date du jour... cela dépend en effet des parametres regionnaux definis sur le poste.
faire plutot :
Day ( Date )
et pour le test de parité :
If (Day ( Date ) And 1) Then
MsgBox "Date = nbr impaire"
Else
MsgBox "Date = nbr paire
End If
20 juil. 2001 à 16:51
20 juil. 2001 à 15:41
If Val(Mid$(Date$,4,2)) Mod 2 =0 Then
MsgBox "Date = nbr paire"
Else
MsgBox "Date = nbr impaire"
End If
20 juil. 2001 à 10:42
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.