incrementer une date

ccpapy · 22 Octobre 2005

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! · 22 Octobre 2005

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é · 22 Octobre 2005

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 · 22 Octobre 2005

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é · 22 Octobre 2005

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.

Â+

incrementer une date

ccpapy

XLDnaute Impliqué

Pièces jointes

myDearFriend!

XLDnaute Barbatruc

andré

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

andré

XLDnaute Barbatruc

Discussions similaires