Macro excel automatiser la création de feuilles à partir d'un modèle et insertion automatique de données

bonjour à tous,

tout d'abord je m'excuse auprès de kimy pour avoir répondu à une discussion et non créé une discussion (en effet j'ai pu facilement insérer une pièce jointe) et avoir utilisé des majuscules.
je suis novice en macro et je m'étais imaginé qu'en enregistrant une macro, cela automatiserait ma procédure : ce n'est pas le cas.

Mon problème est le suivant :
Dans un fichier excel je souhaite que la macro soit utile à chaque nouvelle saisie:
1. Insérer des données dans un tableau qui se trouve dans une feuille appelée « listing clients »
2. appuyer sur le bouton « fiche » que j’ai créé dans cette même feuille et qui lance la macro
3. que fait cette fameuse macro : 1. elle créé une copie de la feuille modèle «modèle client » avant la feuille « liste menus déroulants »
2. Elle nomme la nouvelle feuille par le nom de l’entreprise
3. elle copie dans cette nouvelle feuille client les données déjà insérées dans listing clients
4. elle créé un lien hypertexte dans la case du nom de l’entreprise vers la fiche qui vient d’être créée
5. elle met toutes les bordures dans le « listing clients »

Donc j’ai enregistré ma macro, mais puisque qu’elle est faite à partir d’un exemple, elle reprend toutes les données de mon exemple : ce qui est logique.
Mais j’aimerais pouvoir appuyer sur le bouton fiche à chaque nouvelle saisie d’entreprise dans « listing clients » et que ça créé une fiche mais mes capacités ne sont pas assez bonnes 
C’est une histoire de définition de variables « string » je pense.

Bonjour,

dans ta macro tu as ceci

Code:

---

1 2	Sheets("modèle client (2)").Name = "ANGELE"

---

tu peux faire cela
la donnée snom aura la valeur de la cellule concernée

Code:

---

1 2 3

snom = Worksheets("Listing clients").Range("A2") Sheets("modèle client (2)").Name = snom

---

Lionel bonsoir,

tout d'abord merci d'avoir pris le temps de lire et d'analyser ma requête!

j'ai bien saisi l'utilité de définir snom,mais en mentionnant Range("A2"), ma macro ne fonctionnera pas quand je serai en A3, A4, A5...
dois-je mettre Range("Activecell") ou autre chose, sous-entendu la case A de la ligne que je viens d'insérer?

Bonjour,

Voici une solution de boucle parmi beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10

r1 = 0 rcpte = 0 Do rcpte = rcpte + 1 if range("A" & rcpte) = "" then r = 1 ' Si la cellule Axx est vide sortie de boucle if r1 = 0 then ' Traitement de création de feuille end if Loop Until r1 = 1

---