Amélioration fichier

Bonjour

Je travail dans un supermarché et j'ai voudrai faire un POS (Plan d'occupation des sols) c'est a dire on met quoi à quel moment

J'ai fait un fichier excel reprenant les grandes zone et une feuille avec le plan du magasin.

Pensez vous qu'on puisse l'améliorer???

Peut on dupliquer les 2 feuilles en 52 semaine dans le même fichier???

Merci de votre aide

Bonjour

Pour créer les feuilles pour chaque semaine, Code dans un Module

Sub Créer_Année()
Dim I As Byte
If Sheets.Count > 2 Then Exit Sub
For I = 1 To 2 ' ici tu mets le nombre que tu veux,52 pour l'année
  Sheets(" Modèle").Copy After:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = "S" & "" & Format(I, "00")
Next I
For I = 1 To 2 ' ici tu mets le nombre que tu veux, 52 pour l'année
  Sheets(" Modèle (2)").Copy After:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = "S" & "" & Format(I, "00") & "(2)"
Next I
Call TriFeuilles
End Sub
Sub TriFeuilles()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
Sheets("S01").Select
End If
Next
Next
End Sub

Sur le fichier joint, la macro s'exécute avec les deux touches Ctrl+a

Le code ne crée que deux semaines, la 01 et la 02, pour tester

La seconde macro du Code trie les onglets par semaine, les 2 feuilles Modèle et Modèle (2) sont bloquées en début par le rajout d'une espace avant leur nom

Pour créer les 52 semaines d'un coup, sur les 2 lignes

For I = 1 To 2

tu remplaces le 2 par 52

Ne t"occupes pas des cellules renvoyant un message d'erreur sur les feuilles Modèle et Modèle (2), c'est normal.Regarde plustôt le résultat.

Si les emplacements des divers rayons changent d'une semaine à l'autre, il faudra modifier le fichier (nous verrons)

Cordialement