Date

[grin d'or]

Bonjour à toutes et à tous
Bonjour le Forum
J’ai créé une macro pour changer la date de 3 cellules, mon problème que je n’arrive pas à afficher le même mois à chaque changement de date
Voir fichier joint
Merci d’avance [file name=date_20060527160317.zip size=6998]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/date_20060527160317.zip[/file]

 

[Dan]

Bonjour,

A la lecture de ton fichier et de ta macro, je ne vois pas bien ce que tu veux faire.
Peux-tu m'expliquer un peu plus.

 

[grin d'or]

Re
Merci Dan
Excusé moi,je veux dire le même jour et le même mois
Formule dans A1 pour éxecuter la macro: =si('A12=aujourdhui;3;0)
ex:Avant le changement de date
A10 = 01/07/2005
A11 = 01/07/2006
A12 = 01/07/2007
quand je clic pour changer la date,je veux:
A10 = 01/07/2008
A11 = 01/07/2009
A12 = 01/07/2010
etc......
Merci

 

[JeanMarie]

Bonjour

Un Salut particulier à Dan

Essaye ce code

Sub Macro1()
If Range('A1').Value = 3 Then
confirm = MsgBox('Changez la date', vbOKCancel + vbInformation, Title:='Date')
If confirm = vbCancel Then Exit Sub
   With Sheets('Feuil1')
      .Range('A10') = DateSerial(Year(.Range('A10')) + 3, Month(.Range('A10')), Day(.Range('A10')))
      .Range('A11') = DateSerial(Year(.Range('A10')) + 1, Month(.Range('A10')), Day(.Range('A10')))
      .Range('A12') = DateSerial(Year(.Range('A11')) + 1, Month(.Range('A10')), Day(.Range('A10')))
   End With
End If
End Sub

Attention, tu auras un problème pour le 29 février xx.

@+Jean-Marie

 

[grin d'or]

Re bonjour
Merci beaucoup JeanMarie,c'est ça que je cherche
A+

 

[Dan]

Re,

Juste pour saluer Jean Marie.

 

[Gorfael]

Salut à tous
J'en ai marre, JeanMarie a été plus rapide que moi. Mais je reviendrai et mon post sera le plus rapide :lol: :silly: