Insertion automatique entre deux date

[Mumulafrite]

Bonjour,
si la solution à déjà été donnée je m'en excuse par avance. (j'ai cherché mais pas trouvé)

Je cherche une fonction qui va automatiquement insérer sur une colonne la liste de toutes les dates entre deux intervalles.

Ex:
donnée 1: 25/11/07
donnée 2: 29/11/07

dans ma colonne A par exemple
26/11/07
27/11/07
28/11/07

Merci d'avance de votre aide

 

[kjin]

Re : Insertion automatique entre deux date

Bonsoir,
Un code parmi d'autres.
Crédit à son auteur (F. Sigonneau je crois)

Sub Calendrier()
Dim deb#, fin#, NbJours&, i#
Dim Cel As Range, Lign&, Col%
On Error Resume Next
deb = CDate(InputBox("Première date du calendrier :"))
fin = CDate(InputBox("Dernière date du calendrier :"))
If Err <> 0 Then Exit Sub
Set Cel = Application.InputBox("Sélectionnez la cellule où commence le calendrier", Type:=8)
If Err <> 0 Then Exit Sub
Lign = Cel.Row
Col = Cel.Column
For i = deb To fin
Cells(Lign, Col).Value2 = i
Cells(Lign, Col).NumberFormatLocal = "jjj jj/mm/aa"
Lign = Lign + 1
Next i
End Sub

A+
kjin

 

[Mumulafrite]

Re : Insertion automatique entre deux date

Merci bien !!!
Comment je pourrais faire pour que ca insert et non remplace sur une cellule?

 

[JHA]

Re : Insertion automatique entre deux date

Bonjour Mumulafrite, le forum,

un petit essai par formule avec la fonction si().

JHA

 

[kjin]

Re : Insertion automatique entre deux date

Bonjour,
Une adaptation à tester
A+
kjin

 

[Mumulafrite]

Re : Insertion automatique entre deux date

Je vous remercis, les applications sont différentes dans l'utilisation mais très pratique

A bientôt

Marius

 

[Mumulafrite]

Re : Insertion automatique entre deux date

Bon je viens d'essayer à mon exemple, un petit hic cela fait descendre les cellules dans ma colonne mais pas la ligne complete.
Après est ce que la mise en forme condictionnelle va se reproduire à chaque fois?
Pouvez vous me faire la petite modif svp

Voir exemple ci joint (bas de feuille 1)

 

[kjin]

Re : Insertion automatique entre deux date

bonsoir,
Dans la macro, remplace la ligne :
Cells(Lign, Col).Rows.Insert Shift:=xlShiftDown

par
Cells(Lign, Col).EntireRow.Insert Shift:=xlShiftDown

A+
kjin

 

[Mumulafrite]

Re : Insertion automatique entre deux date

Juste un tout petit truc, là cela fait bien descendre les lignes, mais ma mise en forme (colonnes et mise en forme conditionnelle ne se reproduit pas)

 

[kjin]

Re : Insertion automatique entre deux date

Bonsoir,
Comme dirait b2h2, pour éviter de faire une pelote de ce fil, peux tu faire passer un exemple de ce que tu souhaite faire précisemment et surtout où sont situées tes dates !
A+
kjin

 

[Mumulafrite]

Re : Insertion automatique entre deux date

je l'ai mis en fichier joint pourtant.

Je l'ai ajouté

 

[kjin]

Re : Insertion automatique entre deux date

Re,
Je suppose que tu a déjà qqchose en A24 ?!
Donc si tu insères tes dates à partir de A25, la Mfc et le quadrillage sont conservés.
Donc je ne comprends pas ta question, ou comme déjà dit, où insères tu les dates
A+
kjin

 

[Mumulafrite]

Re : Insertion automatique entre deux date

Ecoute le plus simple c'est que j'applique ca sur mon exmple au boulot demain et je met le fichier en ligne.
Comme tu dis ca évitera un fil trop long

Merci de ton aide