Synthese sur 1 feuille

[sonskriverez]

bonjour le forum

je voudrais en VBA créer un tableau sur une feuille 'Synthese' reprenant les données de la colonne A de chaque feuilles et générer un graphe.

le nombre de feuilles etant aléatoire.

Merci de votre aide

je joint un exemple [file name=synthese_20060211160348.zip size=7698]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/synthese_20060211160348.zip[/file]

 

[jp14]

Bonjour

Dans le tableau de la feuille 'Synthese' mettre la formule =NBVAL(Feuil1!A3:A50) pour la ligne MAN1
=NBVAL(Feuil2!A3:A28) ligne MAN2
............

 

[sonskriverez]

Merci de ta reponse rapide JP14, mais comme ça je sais faire.

C'est en VBA que je cherche la solution

 

[sonskriverez]

Merci de ta reponse rapide JP14, mais comme ça je sais faire.

C'est en VBA que je cherche la solution

 

[jp14]

Bonjour

Voici une macro pour remplir le tableau et une macro pour faire le graphique.


On peut facilement modifier la macro de création du graphique. Pour la créer j'ai utilisé l'enregistreur de macro.


Bon W.E. [file name=synthese_20060211172726.zip size=16357]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/synthese_20060211172726.zip[/file]

 

[sonskriverez]

Merci JP, c'est exactement ce qu'il me faut, pourl e graphique j'ai déjà bosser dessus pas de pbl.

Par contre la feuille de synthese n'existe pas à l'origne et tout est créé en VBA. Mon nbr de feuille 'MANxxx' est variable et il n'y pas que ces feuilles.

Comment dans ta boucle For i = 1 To Sheets.Count
prendre en considération que les feuilles commençant par MAN

merci de ton aide

 

[sonskriverez]

Autre question:

Une fois ques les données sont dans le tableau de synthèse, comment le mettre en forme (jolie cadre), je connais le départ (lig, col) mais comment encadrer que les données


Merci de ton aide

 

[sonskriverez]

Autre question:

Une fois ques les données sont dans le tableau de synthèse, comment le mettre en forme (jolie cadre), je connais le départ (lig, col) mais comment encadrer que les données


Merci de ton aide

 

[jp14]

Bonjour

Ci joint le fichier avec des réponses dans les macros (cf commentaires)

Bon W.E. [file name=synthese_20060212141954.zip size=16357]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/synthese_20060212141954.zip[/file]

 

[ChTi160]

Salut sonskriverez
bonjour jp14
Bonjour le Forum
pour ce qui est de ta boucle un truc du genre
For i = 1 To Sheets.Count
If Left(Sheets(i).name,3)='MAN' then
ta procèdure
End If
Next
devrait sélectionner que les feuilles qui commencent par MAN
Arrf un petit fichier pour voir
adaptation du fichier de jp14 merci à lui
bonne fin de Journée [file name=syntheseV2.zip size=16751]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseV2.zip[/file]

Message édité par: Chti160, à: 12/02/2006 15:02

 

[sonskriverez]

Merci a tous les 2 pour votre contribution:

je ne sais toujours pas encadrer par VBA le tableau de la feuille 'synthese' sachant que le nombre de lignes le composant est aléatoire.

J'ai rajouté dans la V3 ma macro de graph


Merci de votre aide [file name=syntheseV3.zip size=19078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseV3.zip[/file]

 

[ChTi160]

re sonskriverez

je te conseil d'utiliser l'enregistreur de macro de la barre Visual Basic cela de permet d'enregistrer ce que tu fait et ensuite de l'adapter a ton projet je vais tenter de te mettre un exemple pour le formatage des cellules
A plus

 

[jp14]

Bonsoir

Voir fichier module3 une macro réalisée avec l'enregistreur et la macro modifié. [file name=syntheseV3_20060212191107.zip size=21035]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseV3_20060212191107.zip[/file]

Message édité par: jp14, à: 12/02/2006 19:11

 

[sonskriverez]

Merci JP