créer une feuille en cliquant sur cellule

Question

Bonjour aux experts....

me voici encore devant une problèmatique : 

j'ai une fichier qui contient plusieurs feuilles dont une avec un tableau tout ce qui a de plus basique, je souhaite, lorsque je clique sur la cellule b2 de mon tableau que se créer une nouvelle feuille portant le même nom que ma cellule, et en plus ce que cette nouvelle feuille reprenne toute la ligne 1 (nom des colonnes) et la ligne 2.....

je dois faire cette opération à chaque fois que les lignes sont remplies cad : si données en ligne 3, créer une feuille qui porte le nom de la cellule b3 et dans la feuille ligne 1 et ligne 3...
voici un fichier modèle.... 

merci d'avance pour la solution et l'explication
isa



https://www.cjoint.com/?DCkjRPXNN2H


Configuration: Windows 7 / Internet Explorer 9.0

PHILOU10120 · Answer

Bonjour

Un exemple simple de fichier

https://www.cjoint.com/?3CkkqxNCvCn

Gyrus · Answer

Bonjour,

Une proposition avec la création de feuille suite à un double clic dans la colonne B.
https://www.cjoint.com/?DCklghCYgdL

A+

isa fd · Answer

merci Gyrus, c'est exactement cela...
comme je n'y connais rien... je n'arrive pas à transposer dans mon fichier de travail (que je ne peux pas transmettre tel que - confidentialité) 
si je fais la correspondance cellules, B2 de ton fichier donne BD8 
A2 = BA8
C2 = BG8
D2 = BL8
E2 = BS8
F2 = BV8
G2 = BZ8
H2 = CD8

En sachant que je n'ai pas créé ce fichier et que toutes les cellules sont des cellules fusionnant plusieurs colonnes....

merci d'avance

Gyrus · Answer

Il te suffit de copier cellule après cellule
Exemple
            WsS.Range("A" & Target.Row).Copy ActiveSheet.Range("BA8")
            WsS.Range("B" & Target.Row).Copy ActiveSheet.Range("BD8")
            WsS.Range("C" & Target.Row).Copy ActiveSheet.Range("BG8")
            WsS.Range("D" & Target.Row).Copy ActiveSheet.Range("BL8")
            WsS.Range("E" & Target.Row).Copy ActiveSheet.Range("BS8")
            WsS.Range("F" & Target.Row).Copy ActiveSheet.Range("BV8")
            WsS.Range("G" & Target.Row).Copy ActiveSheet.Range("BZ8")
            WsS.Range("H" & Target.Row).Copy ActiveSheet.Range("CD8")

A+

isa fd · Answer

c'est encore moi..... j'ai une erreur de compilation ... 

https://www.cjoint.com/?DCknJBXD4Vf

merci de me dire où ça coince

Gyrus · Answer

Quand tu veux faire réparer ta voiture, tu envoies sa photo au garagiste ?

Je vais essayer d'imaginer ce que tu n'as pas fait :
As-tu copié la partie de code qui correspond à la fonction FeuilleExiste
(sous Module 1) ?

Si problème, essaie de joindre un classeur anonymisé.

A+

Créer une feuille en cliquant sur cellule

6 réponses

Votre réponse

Newsletters