pair ou impar en VBA

Spitnolan08

XLDnaute Barbatruc

• 9 Avril 2008

• #2

Re : pair ou impar en VBA

Bonjour,

Code:

Sub az()
If NoSem Mod 2 = 1 And (LCase(NomDuJour$) = "lundi"  Then ...
End Sub

Cordialement

 

Dernière édition: 9 Avril 2008

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 9 Avril 2008

• #3

Re : pair ou impar en VBA

Bonjour,

Cela par exemple
=SI(MOD(NO.SEMAINE(A8);2)=1;"Impair";"Pair")

J'ai oublié de lire En VBA

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Avril 2008

• #4

Re : pair ou impar en VBA

bonjour wrndid

teste

Code:

if NoSem Mod 2 = 1 .....

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 9 Avril 2008

• #5

Re : pair ou impar en VBA

bonjour,

Non il n'y a pas de fonction spécifique dans vba. Par contre avec
if NoSem mod 2<>0 And (LCase(NomDuJour$) = "lundi" Then etc...

Cela devrait fonctionner pour les nombres impairs. Pour les nombres pairs:

if NoSem mod 2=0 And (LCase(NomDuJour$) = "lundi" Then etc...

A bientôt

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 9 Avril 2008

• #6

Re : pair ou impar en VBA

Salut , NoSem est pair si NoSem Mod 2 = 0

PS : L'avalanche ....

 

Vote positif 0 Vote négatif

W

wrndid

XLDnaute Occasionnel

• 9 Avril 2008

• #7

Re : pair ou impar en VBA

merci pour les info ca marche bien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Avril 2008

• #8

Re : pair ou impar en VBA

Bonsoir à tous


Pour info

Sub testz()
x = 3
y = 2
MsgBox x & " est impair: " & IsOdd(x)
MsgBox y & " est pair: " & IsEven(y)
End Sub

*fonctionne avec référence à atpvbaen.xls dans VBE

Edit: Bonsoir Excel_Lent

 

Dernière édition: 9 Avril 2008

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 9 Avril 2008

• #9

Re : pair ou impar en VBA

Salut la foule,

Pour changer comme mon ami Staple :

Code:

[COLOR=Red]Option Compare Text[/COLOR]
Sub ...
...
  If NoSem Mod 2 =1 And [COLOR=Red]NomDuJour$ = "lundi"[/COLOR] Then ...
...
End Sub

 

Vote positif 0 Vote négatif