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

[da silva]

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

 

[Jacky67]

Bonjour,
Donne un exemple du nom des 5 feuilles que tu souhaites obtenir.

 

[da silva]

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]

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)


​

 

[da silva]

Bonjour,
désoler pour le retard de réponse du a un petit problème d'ordinateur (hdd hs)
pour la solution je vien de testé et la seconde est parfaite .
Merci pour l'aide =)! bonne fête et bonne année

 

[da silva]

Bonjour, petite question peut ton sans servir dans un somme ?
=SOMME('"qualite bs " &Application.WeekNum(Date, 21)'!AI:AI)

 

[Jacky67]

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

=SOMME(INDIRECT("'qualite bs" &NO.SEMAINE(AUJOURDHUI(); 21)&"'!AI:AI"))

Si le n° de semaine se trouve dans une cellule (C1 dans l'exemple)

=SOMME(INDIRECT("'qualite bs" &C1&"'!AI:AI"))

En vba

MsgBox Application.Sum(Sheets("qualite bs" & Application.WeekNum(Date, 21)).[ai:ai])

 

[da silva]

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

 

[Jacky67]

Re..
Comme dit/écrit, plus haut dans ce fil, il faut VERIFIER la syntaxe de No.semaine
Sur le net, je vois
https://support.office.com/fr-fr/ar...fonction-1c2d0afe-d25b-4ab1-8894-8d0520e90e0e
Mais je ne peux pas tester, je n'ai que xl2007
Ou si quelqu'un peut prendre le relai 🙂

 

[da silva]

bonjour, j'ai suivis le topic et niquel! j'ai bien peut utiliser la premier

=SOMME(INDIRECT("'qualite bs" &NO.SEMAINE(AUJOURDHUI(); 21)&"'!AI:AI"))

pour moi apres les test s'est ok.
merci pour cette superbe aide !!

 

[da silva]

question si je veut automatiser sur toute une colonne une opération sur cette meme page s 'est le meme sum?

 

[da silva]

je n'arrive pas a m'en servir

Dans mon exemple en exel s 'est =SOMME(AI2;AJ2) et le l'opération est fait sur ak2 je voudrais l"automatiser sur chaque ligne.

 

[Jacky67]

Re...
Donne un exemple de classeur avec la structure définitive.