incrémenter une date par macro

gosselien

XLDnaute Barbatruc

• 7 Novembre 2015

• #2

Re : incrémenter une date par macro

Bonjour,

c'est tellement dur que tu ne mets aucun code dans ton exemple ...

🙂

P.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Novembre 2015

• #3

Re : incrémenter une date par macro

Bonjour.
Dans un fichier .xls on peut aller seulement jusqu'à la colonne IV
Alors mettez en P1:IV1

Code:

=O1+1

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 7 Novembre 2015

• #4

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: 7 Novembre 2015

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Novembre 2015

• #5

Re : incrémenter une date par macro

Bonjour à tous

pour les cas où la cellule O1 ne serait pas fixe
voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  17 KB · Affichages: 47
• 111.xlsm

  17 KB · Affichages: 42

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2015

• #6

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: 8 Novembre 2015

Vote positif 0 Vote négatif