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

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
 

da silva

XLDnaute Junior
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 ..
 

Jacky67

XLDnaute Barbatruc
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:

Jacky67

XLDnaute Barbatruc
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])
 

Discussions similaires

Réponses
1
Affichages
1 K