Un casse tête dans les dates !

jecherche

XLDnaute Occasionnel

• 26 Mai 2016

• #2

Re : Un casse tête dans les dates !

Bonjour,

Question : veux-tu créer des feuilles (onglet) vides ou veux-tu partir d'un modèle qui sera copier pour créer le nouvel onglet ?
Ou encore veux-tu que l'onglet de la dernière date devienne le modèle pour l'onglet de la date du lendemain ?


Jecheche

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 26 Mai 2016

• #3

Re : Un casse tête dans les dates !

Bonjour,

Voici ce que j'ai trouvé sur le net ... j'ai ajouté "écrire la date en A1"

À l'aide de la poignée de recopie, étire vers le bas jusqu'à la date désirée ... puis lancer la macro...



Je cherche

 

Pièces jointes

• Hooly Création feuilles V001.xls

  58 KB · Affichages: 20

Vote positif 0 Vote négatif

A

aTm0sFe4r

XLDnaute Nouveau

• 26 Mai 2016

• #4

Re : Un casse tête dans les dates !

Bonjour jecherche,

Lors de la création d'un nouvel onglet, je souhaite copier la feuille précédente avec mon tableau vierge, et que le nom de cet onglet, soit la date +1, de l'onglet copié.

J'ai essayé avec la technique que tu as trouvé, mais ça ne marche pas quand je met une date, seulement si je met un texte simple :/

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Mai 2016

• #5

Re : Un casse tête dans les dates !

Bonjour.
Ce code dans ThisWorkbook semble faire l'affaire :

VB:

Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim F1 As Worksheet, F2 As Worksheet, D1 As Date, D2 As Date
If Not TypeOf Sh Is Worksheet Then Exit Sub
Set F2 = Sh
If F2.Index < 1 Then Exit Sub
Set F1 = Me.Worksheets(F2.Index - 1)
If Not IsDate(F1.[A1].Value) Then Exit Sub
D1 = F1.[A1].Value
If F1.Name <> Format(D1, "dd-mm-yyyy") Then Exit Sub
F1.UsedRange.Copy Destination:=F2.[A1]
F2.UsedRange.SpecialCells(xlCellTypeConstants).ClearContents
D2 = D1 + 1
F2.[A1].Value = D2
F2.Name = Format(D2, "dd-mm-yyyy")
End Sub

Edit: Je viens d'y ajouter des instructions pour copier la plage utilisée de la feuille précédente.
À tester.

 

Dernière édition: 26 Mai 2016

Vote positif 0 Vote négatif

A

aTm0sFe4r

XLDnaute Nouveau

• 27 Mai 2016

• #6

Re : Un casse tête dans les dates !

Salut Dranreb,

Je ne sais pas pourquoi, mais il ne se passe strictement rien avec ce code :/

Je l'ai peut être mal utilisé, je ne sais pas ...

Merci à toi pour toin aide en tout cas.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Mai 2016

• #7

Re : Un casse tête dans les dates !

Bonjour.
Ça ne s'exécute que si on ajoute une nouvelle feuille. Mais pour qu'elle soit renommée il faut que celle qui la précède ait un nom reprenant avec des tirets la date portée dans sa cellule A1.

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 27 Mai 2016

• #8

Re : Un casse tête dans les dates !

Bonjour,

Une suggestion ...
Le première feuille sera ton modèle ... il ne faut pas la remplacer car, il y a du code derrière.
Mais tu y colles le contenu désiré.
A1 = la date ... telle que demandée
B1 est le déclencheur de copie de la feuille, si tu cliques dans B1 de la dernière feuille (onglet) = nouvelle feuille
Si tu cliques sur B1 d'une feuille précédente, il ne se passera rien.

Espérant le tout conforme à la demande ...


Jecherche

 

Pièces jointes

• Création feuilles V002.xlsm

  16.3 KB · Affichages: 13

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2016

• #9

Re : Un casse tête dans les dates !

Bonjour à tous

Un essai
La nouvelle feuille est créée par click sur 'feuille suivante' ,renommée et range("A1") servie
Voir Thisworkbook

 

Pièces jointes

• Atmos.xlsm

  17.8 KB · Affichages: 28
• Atmos.xlsm

  17.8 KB · Affichages: 23

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2016

• #10

Re : Un casse tête dans les dates !

Re

Version avec formatage 01-02-2017

 

Pièces jointes

• Atmos.xlsm

  18.5 KB · Affichages: 25
• Atmos.xlsm

  18.5 KB · Affichages: 21

Vote positif 0 Vote négatif

A

aTm0sFe4r

XLDnaute Nouveau

• 27 Mai 2016

• #11

Re : Un casse tête dans les dates !

Bon, j'ai beau essayé chacune de vos formules, qui m'ont l'air d'être la solution, mais impossible de les intégrer convenablement dans mon travail.

Se que je veux c'est qu'à chaque création d'une nouvelle feuille, la nouvelle feuille reprend le modèle de ma feuille précédente (ou du modèle qui est la première feuille), en ayant une date +1 et que cette date que j'ai en B1 (qui intègre donc une formule pour avoir une date n+1) soit aussi le nom de mon onglet.

Je ne sais pas si c'est clair, mais je vous joint mon travail, ça pourra être plus simple pour mes futur sauveur !

Merci encore de votre aide !!!

 

Pièces jointes

• Scoring NAS.xlsm

  28.9 KB · Affichages: 20
• Scoring NAS.xlsm

  28.9 KB · Affichages: 20

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 27 Mai 2016

• #12

Re : Un casse tête dans les dates !

Bonjour,

Je cite :" De plus j'aimerais que dans une cellule de chaque feuille (en A1 par exemple), cette date soit aussi visible, et donc identique au nom de l'onglet."

Tout le monde a basé sa prog sur cet énoncé 8- (((


Jecherche

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Mai 2016

• #13

Re : Un casse tête dans les dates !

Bonjour.
Vous avez une feuille en deuxième position, qui porte bien, mais en C1 et non A1, une expression Date valant le 2/02/2016 mais qui s'appelle "2" et non "02-02-2016"
Est-ce à dire qu'une création d'une nouvelle feuille derrière devrait être quand même traitée, et si oui
comment ?

 

Vote positif 0 Vote négatif

A

aTm0sFe4r

XLDnaute Nouveau

• 27 Mai 2016

• #14

Re : Un casse tête dans les dates !

Je patauge ...

J'ai commencé excel il y a seulement 3 semaines, et j'avoue ne plus savoir se qu'il faut faire 😀

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2016

• #15

Re : Un casse tête dans les dates !

Re

Vois si cela te convient

 

Pièces jointes

• Scoring NAS.xlsm

  38.3 KB · Affichages: 24
• Scoring NAS.xlsm

  38.3 KB · Affichages: 29

Vote positif 0 Vote négatif