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

XL 2019 Création d'onglet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion celtar
  • Date de début Date de début

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
C

celtar

XLDnaute Junior
Bonjour,

J'ai besoin de votre aide, est-il possible a l'aide d'un bouton et d'une macro de créer un onglet avec le numéro de semaine en cours.
afin de pouvoir créer automatique cet l'onglet chaque semaine a l'aide du bouton.

Merci pour votre aide.
 
Trier par date Trier par votes
Bonjour à tous,
Comme cette macro peut-être :
VB: 
Sub ajout_feuille()
Dim Nom As String, i As Byte, Verif As Boolean
 
recom:
Verif = False
Nom = InputBox("Définissez le nom de votre nouvelle feuille", "Ajout nouvelle feuille")
 
If Nom = "" Then Exit Sub
 
For i = 1 To Sheets.Count
    If Sheets(i).Name = Nom Then Verif = True
Next
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Nom
End Sub
 
Vote positif 0 Vote négatif
bonsoir le fil, re celtar
un petit peu comme jbarbe, mais avec le nom défini par le numéro de semaine
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)
Cliquez pour agrandir...

VB: 
'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

Sub CreationOngletIndividuel()
Application.ScreenUpdating = False
Application.EnableEvents = False
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

For Each ws In Worksheets
If ws.Name = Nom Then MsgBox "La feuille existe déjà": Exit Sub: Application.EnableEvents = True
Next ws
If Nom = "" Or Nom Like "*[-./\#[?!()']*" Or Len(Nom) > 30 Then
    MsgBox "le nom n'est pas valide": Application.EnableEvents = True: Exit Sub
End If
Sheets("Test").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom

End Sub
cdt
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir
Merci pour ton code je voudrais l'intégrer a mon code mais je n'y arrive pas
je te mets le fichier si tu peux regarder je t'en remercie d'avance.
A partir du bouton tableau recap je souhaite que l'onglet ce créer mais avec ta macro
fais un essai de ma macro pour te montrer ce qu'il créé.

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir le forum
Bonsoir celtar, JBARBE, GALOUGALOU

Si en plus pour "tenter" (je parle pour moi 😀) de t'aider, il faut "casser" le password du projet VBE......

Bonne soirée à toutes & à tous
@+ Eric c
 
Vote positif 0 Vote négatif
Bonjour le forum
Bonjour le fil

@celtar : le projet VBE de ton fichier n'était pas déverrouillé !!!!! Il faut tout faire soi même....
Voici donc le code de notre ami GALOUGALOU que j'ai repris car IsoWeekNum ne fonctionne pas chez moi (XL 2010) .
Bonne journée à toutes & à tous
@+ Eric c
 

Pièces jointes

Vote positif 0 Vote négatif
re celtar, bonjour eric c, bonjour le forum
le projet vba du fil #7 est verrouillé, donc inaccessible. malgré tout eric c vous a fait une proposition interessante
À partir de ce qui était visible, je vous ai construit un classeur exemple, (je ne déprotége pas les classeurs proposé sur xld) dont voici le code adapté sur l'antépénultième ligne de code.
VB: 
'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

Sub CreationOngletIndividuel()
Application.ScreenUpdating = False
Application.EnableEvents = False
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

For Each ws In Worksheets
If ws.Name = Nom Then MsgBox "La feuille existe déjà": Exit Sub: Application.EnableEvents = True
Next ws
If Nom = "" Or Nom Like "*[-./\#[?!()']*" Or Len(Nom) > 30 Then
    MsgBox "le nom n'est pas valide": Application.EnableEvents = True: Exit Sub
End If
Sheets("Récapitulatif").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom

End Sub

eric c pour excel 2010, je te propose d'essayer cette solution, que tu as peut-être mis en application, je n'ai pas vu ton code.
une fonction proposée par kiki que l'on peut trouver sur ce fil

N° de semaine ISO sous VBA

Bonjour à vous tous et tous mes voeux pour cette nouvelle année Pourriez vous me dire s'il est possible de mettre la formule si dessous en Vba afin de m'en servir dans une procédure =ENT(MOD(ENT((A1-1)/7)+3/5;52+5/28))+1 Merci d'avance pour vos réponses MAN
excel-downloads.com

Code: 
Function NumSem(dDate As Date) As Integer
Dim t As Long
    t = DateSerial(Year(dDate + (8 - Weekday(dDate)) Mod 7 - 3), 1, 1)
    NumSem = ((dDate - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function
et remplacer dans la macro la ligne

Code: 
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)
par la ligne
Code: 
Nom$ = NumSem(Date)

cdt
galougalou
 

Pièces jointes

Vote positif 0 Vote négatif
Re le forum
Re le fil

@GALOUGALOU (comme je ne connais pas ton prénom).
Le code du projet "craqué" que notre ami ne nous a pas communiqué est : "123".

Concernant ton code, je vais tester dès ce soir.
Le tien, modifié :
VB: 
Nom$ = "Semaine" & " " & DatePart("WW", Date, 2, 2)
 ' Sheets("Test").Copy remplacé par :
 Sheets("Récapitulatif").Copy After:=Sheets(Sheets.Count)
Bonne après-midi à toutes & à tous --- Gardez le frais si possible --
@+ Eric c
 
Vote positif 0 Vote négatif
Bonjour,

J'ai remis un fichier sans le code dans ma réponse
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
265
Gégé-45550
A
  • Résolu(e)
Microsoft 365 Afficher Masquer tableau selon critères + MàJ Autom. TCD en VBA
Réponses
8
Affichages
415
Amilo
A
E
  • Question Question
Microsoft 365 Analyse de données temps de prod
Réponses
4
Affichages
200
ejik85
E
E
  • Question Question
Microsoft 365 Renvoi valeur d'une date la plus proche
Réponses
5
Affichages
294
job75
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
Y
  • Question Question
XL 2021 Bouton Macro
Réponses
6
Affichages
317
sylvanu
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
488
vdudu
V
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
221
sylvanu
F
  • Question Question
XL 2016 Transformation fichier
Réponses
6
Affichages
139
Cousinhub
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
142
Titof06
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
346
Utilisateur_X
U
F
  • Résolu(e)
XL 2019 Power Query - Pivoter avec données = null
Réponses
5
Affichages
161
Cousinhub
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
270
ChTi160
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
283
GALOUGALOU
B
  • Question Question
Microsoft 365 RESOLU Message d'erreur "La méthode 'range' de l'objet '_global ' a échoué "
2
Réponses
16
Affichages
521
job75
B
  • Question Question
XL 2013 Corriger mes codes
2
Réponses
25
Affichages
644
Valtrase
C
  • Résolu(e)
XL 2021 besoin d'aide pour excel devis-facture
Réponses
8
Affichages
278
Piment
P
F
  • Question Question
XL 2016 aide tableau acompte
Réponses
5
Affichages
382
chris
A
  • Question Question
Autres gestion commande
Réponses
0
Affichages
230
alex32700
A
K
  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
139
kingbeck
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…