FICHIER STANDARD

[KTM]

Bonjour chers Amis
Je voudrais avoir vos suggestions à propos d'un sujet :
J'ai conçu un fichier qui m'aide dans ma gestion.
Un fichier de 70 feuilles portant les noms des localités que je dessert.
Le fichier contient plusieurs macros qui agissent sur les feuilles.
Je dois confectionner cinq fichiers similaires et les mettre à la disposition de cinq employés dans d' autres Zones avec des localités de noms différents des miennes .
Je dois donc dans chaque nouveau fichier remplacer toutes mes localités par celles des autres zones dans les onglets comme dans les macros. Ce qui est possible mais demande un effort énorme et un temps fou !
Je paresse donc à débuter , réfléchissant à un éventuel raccourci .

Je me tourne vers le forum et vous demande des astuces pouvant abréger mes souffrances
Je joint un tout petit fichier exemple pour illustre ma préoccupation

 

[job75]

Bonjour KTM,

Je ne vois pas où est le problème.

Créez vos 5 fichiers avec les feuilles qui conviennent un point c'est tout.

Quant à vos macros dans Module1 ceci ira quand même mieux :

Sub Suppr()
Range("B6:D21").ClearContents
End Sub

Sub Reinit()
Dim w As Worksheet
For Each w In Worksheets
    If w.Name <> "SYTH" Then w.Range("B6:D21").ClearContents
Next
End Sub

A+

 

[KTM]

MERCI Job75
Je me suis peut être mal expliquer ou mon fichier test est trop simpliste.
je pense a un truc genre faire la liste des localités sur une feuille , créer variable les prenant en compte dans les macros .
Quand on est pas trop calé il est souvent difficile d'exprimer ce qu'on veut.
Je vais reformuler ma requête et vous revenir si possible.