Condition Sur année VBA

[faragim]

Bonjour Forum
sil vous plait comment puis-je écrire en VBA une condition qui me permet de comparer l'année d’aujourd’hui avec celle d'hier
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
mai cela ne fonctionne pas
Merci de votre aide

 

[pierrejean]

Re : Condition Sur année VBA

Bonjour faragim

Rapidement:

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

 

[youky(BJ)]

Re : Condition Sur année VBA

Bonsoir faragim,
essaie ceci
Bruno

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

Edit: Juste pour saluer tout le monde

 

[Pierrot93]

Re : Condition Sur année VBA

Bonjour faragim, PierreJean

avec la fonction "date"

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

bonne soirée
@+

Edition : bonsoir Bruno

 

[faragim]

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

 

[faragim]

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