Créer une feuille en cliquant sur cellule

isa fd Messages postés 13 Statut Membre -  
Gyrus Messages postés 3360 Statut Membre -
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

6 réponses

  1.
    PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    Bonjour

    Un exemple simple de fichier

    https://www.cjoint.com/?3CkkqxNCvCn
    0
    1. isa fd Messages postés 13 Statut Membre
       
      merci pour la réponse mais ce n'est pas ce que je souhaite faire...
      je pense que je n'ai pas été claire dans ma problèmatique, ci-dessus l'explication
      0
  3. isa fd Messages postés 13 Statut Membre
     
    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
    0
  4. Gyrus Messages postés 3360 Statut Membre 526
     
    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+
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  7. Gyrus Messages postés 3360 Statut Membre 526
     
    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+
    0