incrementer une date

[ccpapy]

bonsoir le forum,
une ame charitable pourrait-elle m'indiquer la voie?
en cherchant , j'ai compris comment faire pour incrementer de 1 en 1 mais je bute pour faire ça de mois en mois. voilà mon travail inachevé. merci de votre aide.
bonne nuit :side: [file name=essai_20051022004139.zip size=11240]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20051022004139.zip[/file]

 

[myDearFriend!]

Bonsoir ccpapy,

Peut-être peux-tu essayer :

Private Sub CommandButton1_Click()
      Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
      With ActiveSheet
            .Name = Format(.Range('E16'), 'mmm yy')
            .Range('F10:G10').ClearContents
            .Range('C20').Value = .Range('C20').Value + 1
            .Range('C16').Value = DateAdd('m', 1, .Range('C16').Value)
      End With
End Sub

Cordialement,

 

[andré]

Salut,

Par formule, à copier vers le bas ou vers la droite :

=MOIS.DECALER($A$1;LIGNE()-1)
=MOIS.DECALER($A$1;COLONNE()-1)
Format de la cellule : date
L'Utilitaire d'Analyse sous le menu Outils / Macros complémentaires doit être coché.

Â+

 

[ccpapy]

myDearFriend!, le forum,
super, le pire, c'est que j'ai compris!
finalement, une bonne nuit de sommeil, un petit coup de pouce de ta part, et tout va bien.
merci encore et bonne journée à tous.

 

[andré]

Resalut,

Ma réposnse ne répond pas à ta demande !
Ta pièce jointe ne s'était pas affichée au départ.
J'avais mal compris ta question.

Â+