Condition Sur année VBA

pierrejean

XLDnaute Barbatruc

• 20 Janvier 2013

• #2

Re : Condition Sur année VBA

Bonjour faragim

Rapidement:

Code:

sub annee_()
Dim NUM as integre
If Year(today()) = Year(today() - 1) Then
NUM = ActiveSheet.Range("D10").Value
NUM = NUM + 1
Range("D10").Value = NUM
Range("A10").Select
Else
Range("D10").Value = 1
End Sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Janvier 2013

• #3

Re : Condition Sur année VBA

Bonsoir faragim,
essaie ceci
Bruno

Code:

[D10] = IIf(Year(Date) = Year(Date) - 1, [D10] + 1, 1)

Edit: Juste pour saluer tout le monde

 

Dernière édition: 20 Janvier 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Janvier 2013

• #4

Re : Condition Sur année VBA

Bonjour faragim, PierreJean

avec la fonction "date"

Code:

If Year(Date) = Year(Date - 1) Then

bonne soirée
@+

Edition : bonsoir Bruno

 

Dernière édition: 20 Janvier 2013

Vote positif 0 Vote négatif

F

faragim

XLDnaute Nouveau

• 20 Janvier 2013

• #5

Re : Condition Sur année VBA

Merci pierrejean de votre rapidité de répondre
Mais en appliquant votre code j'ai une errer de compilation "Sub ou fonction non définie

 

Vote positif 0 Vote négatif

F

faragim

XLDnaute Nouveau

• 20 Janvier 2013

• #6

Re : Condition Sur année VBA

Merci à tous de votre aide
J'ai adopté le code de pierrot93 il fonctionne très bien
merci à tous et bonne soirée

 

Vote positif 0 Vote négatif