Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1943 connectés 

  FORUM HardWare.fr
  Hardware
  Matériels & problèmes divers

  Créer un tableau de synthèse à partir de plusieurs onglets copiés

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Créer un tableau de synthèse à partir de plusieurs onglets copiés

n°8761820
coco008
Posté le 18-06-2013 à 16:05:18  profilanswer
 

Bonjour,  :hello:  
 
Je cherche une macro qui me permette de déverser automatiquement les informations  de différents onglets « projets » (trente environ)  dans un SEUL autre onglet appelé «  tableau de synthèse. »
 
Dans ce tableau de synthèse, « chaque onglet  projet »correspondrait à une ligne.
Tous les « onglets projets » sont en réalité la copie renomée du même template dans lequel on rajoute diverses informations.
 
J’ai réussi à trouver une première macro qui me permet de créer et renommer nouveaux onglets projets en copiant chaque fois et automatiquement le template de départ.
 
 
En revanche, je n’arrive pas à trouver un moyen de lier chaque « onglet projet » à une nouvelle ligne dans le tableau de synthèse, à chaque fois, excel me refait la même ligne en prenant les données du template de départ. Il confond donc le template et sa copie.
Que puis-je faire ?
 
Merci de votre aide
 
PS : ci dessous la macro qui bloque :  
 
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Sheets("Tableau de synthèse" ).Select
    Rows("8:8" ).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Range("B8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[-6]C[4]"
    Range("C8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[-1]C[5]"
    Range("D8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!RC[4]"
    Range("E8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[1]C[3]"
    Range("F8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[20]C[2]"
    Range("G8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[19]C[1]"
    Range("H8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[21]C"
    Range("I8" ).Select
    ActiveCell.FormulaR1C1 = "='Template projet'!R[20]C[1]"
    Range("I9" ).Select
    Sheets("Template projet" ).Select
End Sub
 

mood
Publicité
Posté le 18-06-2013 à 16:05:18  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Hardware
  Matériels & problèmes divers

  Créer un tableau de synthèse à partir de plusieurs onglets copiés

 

Sujets relatifs
recherche tableau comparatif carte videoRépartitionde sessions utilisateurs sur plusieurs disques
Demande d'aide pour créer une config multi-ecranrecycler vieux disques durs : boitier pour plusieurs disques ?
Alimentation 5v à partir chargeur de portableImpossible de saisir plusieurs chiffre avec le pavé numérique
Impossible de saisir plusieurs chiffre avec le pavé numériquebrancher plusieurs ventilateurs lumineux
Composer un ordinateur pour créer des sites Webcréer un boitier externe pour plus hdd
Plus de sujets relatifs à : Créer un tableau de synthèse à partir de plusieurs onglets copiés


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR