Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 faire évoluer la date de feuille en feuille

V

viper68

XLDnaute Nouveau
Bonjour,

J' ai créer 52 feuilles qui correspond aux 52 semaines de l'année
Mon problème comment faire pour transférer les dates de semaines à la feuille suivante
1 er feuille c'est la 1 er semaine du lundi au dimanche,
puis retrouver les dates suivantes sur la 2 ème feuilles, etc.....

MERCI POUR VOTRE AIDE
 
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Viper,
En PJ un essai avec :
- Chaque feuille doit s'appeler Sxx avec xx le N° de semaine
- En B1 l'année en cours
- En B2 le lundi de la semaine, avec en B2:
VB: 
=DATE(B1;1;1)+JOURSEM(DATE(B1;1;1))+2*(1-JOURSEM(DATE(B1;1;1)))+7*(-1+CNUM(STXT(DROITE(CELLULE("nomfichier";B1);NBCAR(CELLULE("nomfichier";B1))-TROUVE("]";CELLULE("nomfichier";B1)));2;10)))
Il suffit de dupliquer une feuille, de la nommer du N° de semaine désirée.
 

Pièces jointes

  • FeuilleDate.xlsx
    14 KB · Affichages: 4
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
bonjour
Bien venu
c'est assez simple a faire
mais il nous faudrait un fichier un minimum 52 feuilles plus ou moins présentées comme tu le souhaite
on va pas se taper la construction(peut être particulière) de ton fichier

apres les formules ne devraient pas être compliquées
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour viper68, le fil,

Un exemple sommaire et perfectible
(ne prends pas en compte les années bissextiles)
Code: 
Sub Semainier()
Dim i&
Application.ScreenUpdating = False
For i = 1 To 52
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "SEM_" & i
Sheets("SEM_" & i).[A1] = i
Sheets("SEM_" & i).[A3] = "=(R[-2]C-1)*7+DATE(YEAR(TODAY()),1,5)-WEEKDAY(DATE(YEAR(TODAY()),1,4),2)"
Sheets("SEM_" & i).[A2:G2] = Array("L", "M", "M", "J", "V", "S", "D")
Sheets("SEM_" & i).[B3:G3].FormulaR1C1 = "=RC[-1]+1"
Sheets("SEM_" & i).[A3:G3].NumberFormat = "m/d/yyyy"
Next
End Sub
A tester sur un classeur ne contenant qu'une seule feuille.

NB: La formule en A3 est de ROGER2327

EDITION: Bonjour sylvanu, patricktoulon, job75
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour viper68, le forum,

Voyez le fichier joint et la macro affectée au bouton :
VB: 
Sub Semaines()
Dim n%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'---RAZ---
For n = Sheets.Count To 2 Step -1
    Sheets(n).Delete
Next n
'---création---
For n = 2 To 52
    Sheets(1).Copy After:=Sheets(Sheets.Count) 'nouvelle feuille
    Sheets(n).DrawingObjects.Delete 'supprime le bouton
    Sheets(n).Name = "Sem " & n
    Sheets(n).Cells(1) = n
Next n
Sheets(1).Activate
End Sub
A+
 

Pièces jointes

  • Semaines(1).xlsm
    17.2 KB · Affichages: 8
Vote positif 0 Vote négatif
V

viper68

XLDnaute Nouveau
MERCI
 
Vote positif 0 Vote négatif
V

viper68

XLDnaute Nouveau
MERCI
 
Vote positif 0 Vote négatif
V

viper68

XLDnaute Nouveau
MERCI
 
Vote positif 0 Vote négatif
V

viper68

XLDnaute Nouveau

Bonjour Staple1600,

J'ai encore besoin de votre aide pour continuer à faire mon tableau.
J'ai bien mes 52 semaines, avec les dates du lundi au dimanche, c'est parfait !
J'aimerais dupliquer ces dates en automatique dans les cases bleus voir le fichier joint
Bien cordialement et merci
 

Pièces jointes

  • jour dupliqué.xlsm
    147.9 KB · Affichages: 5
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
460
Nel'
N
  • Question
XL 2016 Récupérer données sur plusieurs feuilles
2
Réponses
20
Affichages
1 K
hypo78
  • Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
589
fanfan38
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
264
vgendron
A
  • Question
Microsoft 365 création d'un formulaire en numérologie
Réponses
12
Affichages
507
fred936
F
A
  • Question
XL 2019 Faire évoluer une formule annéecalendrier
Réponses
4
Affichages
668
Arzade
A
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
2 K
cathodique
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
629
Dranreb
E
  • Question
XL 2013 Retenir que le dernier fichier, en fonction de la date, via une formule matricielle
Réponses
10
Affichages
304
erics83
E
D
  • Résolu(e)
Microsoft 365 planning repos tournant
Réponses
5
Affichages
545
piga25
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
20
Affichages
1 K
LuanaDDC
L
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
526
chaelie2015
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
551
Zarnir
Z
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
258
Dégé59
D
C
  • Résolu(e)
XL 2016 Objets Excel de type feuille dupliqués en x exemplaires suite à plantage
Réponses
6
Affichages
395
TooFatBoy
N
  • Question
XL 2019 Aide pour optimiser mon tableau Excel de suivi d'activité
Réponses
6
Affichages
352
Nicolaasss
N
G
  • Question
Microsoft 365 Aide avec la formule pour calculer la période de repos du week-end
Réponses
5
Affichages
444
GILBERTO BRAGA
G
A
  • Question
XL 2016 Contrôle de la pose de 10 jours de congés consécutifs
Réponses
5
Affichages
752
djidji59430
S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
556
sylvanu
F
  • Question
Microsoft 365 Excel faire des sommes en fonction de valeur calculant avec une données
Réponses
2
Affichages
336
Freydoz
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…