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

da silva · 22 Décembre 2017

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 · 22 Décembre 2017

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

da silva · 22 Décembre 2017

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 · 22 Décembre 2017

da silva à dit:
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 · 2 Janvier 2018

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 · 4 Janvier 2018

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

Jacky67 · 4 Janvier 2018

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

da silva · 4 Janvier 2018

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 · 4 Janvier 2018

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 · 4 Janvier 2018

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

Jacky67 à dit:
=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 · 5 Janvier 2018

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

da silva · 5 Janvier 2018

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 · 5 Janvier 2018

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

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

da silva

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

da silva

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

da silva

XLDnaute Junior

da silva

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

da silva

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

da silva

XLDnaute Junior

da silva

XLDnaute Junior

da silva

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Discussions similaires