XL 2010 faire évoluer la date de feuille en feuille

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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

Vote positif 0 Vote négatif
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
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
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

Vote positif 0 Vote négatif
job75 à dit:
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+
Cliquez pour agrandir...
MERCI
 
Vote positif 0 Vote négatif
Staple1600 à dit:
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
Cliquez pour agrandir...
MERCI
 
Vote positif 0 Vote négatif
sylvanu à dit:
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.
Cliquez pour agrandir...
MERCI
 
Vote positif 0 Vote négatif
Staple1600 à dit:
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
Cliquez pour agrandir...

Staple1600 à dit:
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
Cliquez pour agrandir...
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

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
887
un internaute
U
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
115
dadaze
D
B
  • Question Question
Microsoft 365 Feuille calcul de commision
Réponses
5
Affichages
301
bbanor
B
T
  • Question Question
Microsoft 365 Feuille de route Tournoi
Réponses
8
Affichages
239
tintin.86
T
Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
696
Eric 888
Eric 888
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
688
dysorthographie
dysorthographie
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
925
fanfan38
fanfan38
Wayat
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
731
fanfan38
fanfan38
richardlion
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
494
job75
job75
hypo78
  • Question Question
XL 2016 Récupérer données sur plusieurs feuilles
2
Réponses
20
Affichages
1 K
hypo78
hypo78
N
  • Question 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
668
Nel'
N
PMG
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
329
PMG
PMG
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
190
Bibinaire
B
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
178
vgendron
vgendron
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
72
ndranghettino
N
C
  • Question Question
XL 2016 Je cherche une formule pour une semaine à 4.5 jours au lieu de 5 jours
Réponses
3
Affichages
283
Cancan666
C
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
467
desto
D
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
168
stefane26
S
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
415
floflatch22
F
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
202
mamarus1
M
Retour