incrémenter une date par macro

Vilain

XLDnaute Accro
Bonjour à tous,

je me remet au macro et c'est un peu dur...
Je cherche à remplir des cellules avec des dates jusqu'à une donnée rempli à la main.
Dans mon fichier test, je cherche à remplir les cellules de la lignes 1, à coté de 01/01/2010, jour par jour (soit 02/01/2010 dans la cellule suivante) jusqu'au 31/12 de l'année saisie en B5.

Merci d'avance
 

Pièces jointes

  • test.xls
    59.5 KB · Affichages: 43
  • test.xls
    59.5 KB · Affichages: 48

R@chid

XLDnaute Barbatruc
Re : incrémenter une date par macro

Bonjour @ tous,
par macro comme il le demande :
Code:
Sub MesDtaes()
An = Range("B5").Value
Dat = Range("O1").Value
    For i = 1 To DateSerial(An, 12, 31) - Dat
      Cells(1, 15 + i) = Dat + i
    Next i
End Sub

il faut que ce soit au format Excel2007.

@ + +
 

Pièces jointes

  • Vilain.xlsm
    20.1 KB · Affichages: 32
Dernière édition:

R@chid

XLDnaute Barbatruc
Re : incrémenter une date par macro

Bonsoir @ tous,
une autre façon de faire la boucle :), j'ai choisi de mettre le curseur manuellement dans la cellule contenant la date de départ.
Code:
Sub CreerDates()
Col = ActiveCell.Column
Date1 = ActiveCell.Value
i = 0
   If ActiveCell.Value <> "" Then
        Do
            i = i + 1
            Cells(1, Col + i) = Date1 + i
        Loop While (i < DateSerial([B5], 12, 31) - Date1)
    End If
MsgBox ("Merci Philippe pour les 2 premières lignes de la macro")
End Sub


@ + +
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
439

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib