adapté une macro

[caline]

bonsoir à tous
sur le forum j'ai trouvé une fichier ( immatriculation) dont une macro copie des onglets cette macro de KBC est nickel mais je devrais avec votre aide la transformer car lorsque je rajoute un nom dans la feuille recap il me génère des codes d'erreurs, que je suis bien incapable de corriger.

dans le fichier joint mes questions sont posées dans la feuille modele

merci pour les réponses qui me seront précieuses
Caline

 

[bqtr]

Re : adapté une macro

Bonsoir caline,

Ton fichier modifié comme ceci :

Sur la feuille récap, tu entres le nom de la personne dans la colonne A, tu valides et la copie de la feuille Modèle se fait, le nom de la personne se met en R1 dans la nouvelle feuille.

Le code se trouve dans le module de la feuille, click droit sur l'onglet de la feuille récap + visualiser le code.

La macro se déclenchera si tu remplis une cellule de A1 à A100. Cela te permet de créer les feuilles les unes après les autres.

Bonne nuit

 

[bqtr]

Re : adapté une macro

Re,

Une autre façon de faire si tu veux garder le bouton copier :

Toujours dans la colonne A, entre tout les noms, un contrôle est fait pour détecté les éventuels doublons ( code dans le module de la feuille ).
Ensuite click sur le bouton ( code dans le module 1 )


A+

 

[caline]

Re : adapté une macro

merci bqtr

ton premier fichier est nickel et me convient parfaitement , j'ai regardé le deuxième mais j'ai toujours un message d'erreur lorsque les feuilles ont été crées et que je rajoute un nom dans la colonne a
message: erreur d'exécution 1004 impossible de renommer une feuille comme une autre, une bibliothèque d'objets référencée .........
si tu peux m'en dire plus

merci encore au forum et à toi
Caline

 

[bqtr]

Re : adapté une macro

Bonsoir caline,

C'est normal, tu ne peux pas créer une feuille qui se nomme comme une qui existe déjà. J'aurai dû y penser .

Donc voici le fichier corrigé, j'ai rajouté une fonction qui teste l'existance de la feuille. La nouvelle feuille se crée si elle n'existe pas et les feuilles déjà crées sont ignorées.
If TestFeuil(rngCell.Value) = False Then et tu n'as plus de message d'erreur.
Tu peux donc conserver la liste des noms et en rajouter au fur et à mesure.


Bonne nuit

 

[caline]

Re : adapté une macro

merci Bgtr
c'est ok , tjs un grand plaisir d'avoir des pro du vba sur ce forum sans parler de tous les formulistes
bien à vous tous
Caline