calcul sur les dates?

[Faro]

Bonjour à tous,

J'ai un petit problème de manipulation de date, en fait, je ne sais pas comment ajouter 1 an a une date.

Exemple :

Dans la cellule A1 j'ai une date : 24/05/2003
Et d'un simple bouton, j'aimerais que cela passe à : 24/05/2004
Si on presse de nouveau sur le bouton, cela passerais a 24/05/2005

Ca doit être simple, mais je ne trouve pas d'explication clair dans ma doc ...

Merci à vous.

Faro

 

[Faro]

Message a effacer ...

Un post a répondu a la question, pas attentif je suis

désolé.

Faro

 

[le CH'TI160]

Bonjour le Forum​

Bonjour FARO,

il y a peu de temps ce fichier(voir formules) a été mis sur le forum
je pense qu'il peut te servir sur Excel et peut être pourras tu l'adapter en VBA après enregistrement

Jean Marie
A+++

 

[Denis]

Bonjour Faro & le Forum
tu peux essayer la fonction Year qui te décale l'année du chiffre que tu ajoutes (comme ici +1)

Private sub Button_Click
Mydate=Year(Range("A1"))+1
Range("A1")=Left("A1",Len("A1")-4) & Mydate
End Sub

Bon courage et @+
Denis

 

[Faro]

Dans l'ordre d'idée de ce que j'ai lut, j'ai écrit ca :

1 Private Sub MAJcoti_Click()
2 Dim MAJDate As Variant
3
4 Sheets("BD").Select
5 MAJDate = Range("G" & Nom.ListIndex + 3).Value
6 MAJDate = Year(Range("G" & Nom.ListIndex + 3)) + 1
7 MAJDate = Left("G" & Nom.ListIndex + 3, 4) & MAJDate
8 Range("G" & Nom.ListIndex + 3).Value = MAJDate
9 Sheets("Index").Select
10
11 End Sub

Mais avec cette formule, si il me selection bien l'année, et ajoute bien un an, ensuite le résultat dans ma cellule me donne G82005 par exemple ...

J'ai tenté en ligne 7 de mettre cette ligne :

7 MAJDate = Left("G" & Nom.ListIndex + 3, Len("G" & Nom.ListIndex + 3) -4) & MAJDate

Mais la j'ai une erreur ...

Je ne vois pas ou j'ai une erreur ...

Faro

 

[Denis]

Bonjour Faro et le Forum
corrige ta ligne 7 en mettant Range

7 MAJDate = Left(range("G" & Nom.ListIndex + 3), 4) & MAJDate
et à priori ta ligne 5 est inutile
bon courage et @+
Denis

 

[Faro]

merci, c'était exactement mon problème

par contre, au lieu de 4, il faut mettre 6 (et oui, ma date était écrite de la forme suivante : 22/12/2004), forcément!

Merci a toi Denis

Faro