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

XL 2013 Création de sheet "nomfixe" + 1 (semaine) [Résolu]

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 !

da silva

XLDnaute Junior
Bonjour,

Je suis bloquer depuis quelque heure je n'arrive en vba a crée une fonction qui me permettais de crée 5 feuilles avec des non fixe mais un numéro de semaine + 1 et surtour récupérer celui ci pour des traitement filtre ensuite.
exemple:
Sheets.Add.Name = "Non qualite s" + Str(Sheets.Count)
ActiveWorkbook.Sheets(" Non qualite s+x").Rows("2:15000").Delete
ActiveWorkbook.Sheets("test").Range("A2:AZ12000").Copy ActiveWorkbook.Sheets("Non qualite s+x").Range("A2")
ps: s+x et semaine 51

Mais je reste bloque a ses deux exemples je vien vous demander votre grand savoir
Merci d'avance=)!
et bonne fête
 
alors en exemple la je suis en s51
qualite xs + (semaine en cour)
qualite bs + (semaine en cour)
non qualite xs + (semaine en cour)
non qualite bs + (semaine en cour)
conclusion non qualite + (semaine en cour)
et surtout que je puisse réutiliser ses variables en sheet name pour les rappelez dans des copy ..
 
Re
Si ta version d'Excel possède la fonction "No.semaine.iso", alors ceci pour le nom des onglets
Sheets.Add.Name = "qualite xs" & Application.WeekNum(Date, 21)
Sheets.Add.Name = "qualite bs" & Application.WeekNum(Date, 21)
Sheets.Add.Name = "non qualite xs" & Application.WeekNum(Date, 21)
Sheets.Add.Name = "non qualite bs" & Application.WeekNum(Date, 21)
Sheets.Add.Name = "conclusion non qualite" & Application.WeekNum(Date, 21)


 
Dernière édition:
RE...
A vérifier la syntaxe de "No.semaine" dans xl 2013 je n'ai que XL2007
Egalement vérifier l'espace après "BS" (il n'y en a pas dans l'exemple)
Dans une cellule
Code:
=SOMME(INDIRECT("'qualite bs" &NO.SEMAINE(AUJOURDHUI(); 21)&"'!AI:AI"))
Si le n° de semaine se trouve dans une cellule (C1 dans l'exemple)
Code:
=SOMME(INDIRECT("'qualite bs" &C1&"'!AI:AI"))
En vba
VB:
MsgBox Application.Sum(Sheets("qualite bs" & Application.WeekNum(Date, 21)).[ai:ai])
 
Re merci pour te réponse pour ma part no.semaine ne marche pas peut être bloquer, mais cette = somme est surtout pour récupérer chaque semaine d'actualiser chaque semaine la variable avec la semaine en cour une cellule
 
- 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

Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…