[VBA]Macro pour insérer la date

Version imprimable

19/04/2007, 21h16
vautour29

[VBA]Macro pour insérer la date

Salut à tous,

Mon tableau excel contient un calendrier (pas un calendrier mensuel) avec les jours 36 à -28. Je cherche comment créer un macro qui poserait une question à l'utilisateur à savoir quand l'événement commence. Cela insérerait une date dans chaque champ. La date sera du format jj/mm/aaaa et comme le jour 36 est un dimanche, cela commencerait de la jusqu'au jour -28.
Par exemple si l'événément doit commencer le 22 avril qui est un dimanche, la date du 22 avril 2007 sera inserée dans le champ du jour 36. Pour le jour 35, ce sera le 23 avril et ainis de suite jusqu'au jour -28.

Quelqu'un a une idée?

Merci

vautour29

bonjour

Je n'ai pas bien compris ton message, mais à tout hasard tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
Dim i As Integer
Dim Cible As String
 
Cible = InputBox("Saisissez une date au format JJ/MM/AAAA:", "Titre", Date)
If Cible = "" Then Exit Sub
 
For i = 36 To -28 Step -1
    Cells(37 - i, 1) = CDate(Cible) + (36 - i)
Next i

michel

23/04/2007, 15h28
Daranc

Question:
pourquoi passer par VBA?
si tu met une date mettons en c60 ,en c59 =c40-1 tu n'as qu'a tirer vers le haut
si tu ne veut rien si c60 est vide c59= si(c60="";"";c60-1) et tu tires vers le haut

Daranc