Insertion automatique entre deux date

K

kjin

XLDnaute Barbatruc

• 30 Juillet 2008

• #2

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

Cliquez pour agrandir...

A+
kjin

 

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #3

Re : Insertion automatique entre deux date

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 30 Juillet 2008

• #4

Re : Insertion automatique entre deux date

Bonjour Mumulafrite, le forum,

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

JHA

 

Pièces jointes

• Mumlafrite.xls

  14.5 KB · Affichages: 56

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Juillet 2008

• #5

Re : Insertion automatique entre deux date

Bonjour,
Une adaptation à tester
A+
kjin

 

Pièces jointes

• Mumulafrite_V2.zip

  7.6 KB · Affichages: 34

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #6

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

 

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #7

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)

 

Pièces jointes

• Mumulafrite_V2.xls

  44.5 KB · Affichages: 51

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Juillet 2008

• #8

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

 

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #9

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)

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Juillet 2008

• #10

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

 

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #11

Re : Insertion automatique entre deux date

je l'ai mis en fichier joint pourtant.

Je l'ai ajouté

 

Pièces jointes

• exemple Mumulafrite_V2.xls

  45 KB · Affichages: 57

Dernière édition: 30 Juillet 2008

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Juillet 2008

• #12

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

 

Vote positif 0 Vote négatif

Mumulafrite

XLDnaute Nouveau

• 30 Juillet 2008

• #13

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

 

Vote positif 0 Vote négatif