Discussion :

[Mimosa777]

Bonjour,

J'ai une feuille excel qui contient 4 colonnes et plusieurs lignes. Je souhaite a l'aide d'une macro regrouper plusieurs ligne (qui ont la meme valeur dans la colonne A) et addtionner les autres colonnes sur la meme ligne pour n'obtenir qu'a la fin une seule ligne avec la valeur de colonne A et la valeur de la colonne B et C additionné.

Exemple, voici ce que j'ai au depart :

Projet/Cout/Amortissement/Type
projetA/25$/14$/F
projetA/35$/-32$/F
projetB/15$/25$/F
projetC/54$/15$/D
projetC/12$/10$/D


J'aimerais avoir ceci :

Projet/Cout/Amortissement/Type
projetA/60$/-18$/F
projetB/15$/25$/F
projetC/68$/25$/D

Je reussi a regrouper les colonnes mais je n'arrive pas a afficher une seul valeur pur le meme projet et la somme des autres.

Votre aide est grandement apprécié. Merci !

[Pierre Fauconnier]

Bonjour

Y a-t-il une raison particulière à le faire en VBA? Ou est-ce simplement parce que tu ne vois pas d'autre solution?

Car sans VBA, les Tableaux Croisés Dynamiques (TCD) sont l'outil idéal d'Excel pour ce genre d'analyse...

[Mimosa777]

Oui, tu as bien raison mais en ce moment il sont en tableau croisés dynamiques et le but est d'éviter le tableau croisée dynamique (l'usager a de la difficulté a mettre a jour son tableau croisé dynamique a chaque fois que les données générés dans la feuille augmente). Il est obligé manuellement de changer la plage de son tableau croisé dynamique pour tenir compte des nouvelles lignes ajouter dans la feuille qui recupère les donéées de la base.

Par ailleurs, le but est aussi de pouvoir mieux manipuler ce fichier pour d'autres besoins et à l'aide des macros, je trouve cela beaucoup plus flexible a modifier ou ajouter des nouvelles fonctionnalités.

Qu'en penses tu ? Merci

[Pierre Fauconnier]

Je pense qu'il y a une solution pour chaque cas...

Si la plage source du TCD augmente, il peut être utile de nommer la plage en la référençant avec la fonction DECALER()...

Une simple macro de mise à jour du TCD à l'activation de la feuille qui le supporte affiche les nouvelles données dans le TCD

Cela me semble plus simple que de tenter de "réinventer la roue" via une macro...

[Mimosa777]

comment utiliser la fonction decaler ? effectivement, si cela fonctionne, c'est deja un grand pas

Merci

[zazaraignée]

Heu... Au risque de dire une sottise... Est-ce que la fonction Sous-totaux du menu Données ne serait pas suffisante?

[Mimosa777]

salut,

je comprends pas ton point zazaraignée. Je desire simplement pouvoir mettre a jour le tableau croisse dynamique automatiquement lorsqu'il y a des ajouts dans la feuille qui recupere les données de la base (base essbase en passant)

Si parxemple, ya des nouveaux projets ajoutés, ben que le tableau croisse en tienne compte automatiquement apres une mise a jour.

Voila pourquoi je demande comment faire la macro de mise a jour (decaler) proposé par Pierre Fauconnier.

Merci

[Pierre Fauconnier]

En fait, DECALER() renvoie une plage de cellules. L'intérêt est que ses paramètres peuvent être dynamiques et donc modifiés en fonction de la configuration de la feuille



Syntaxe:

DECALER(RéfOrigine;LignesDecalage;ColonnesDecalage;[NbreLignes];[NbreColonnes])

Traduction pour l'exemple illustré.

On par de A1 et on décale de 0 lignes et de 0 colonnes pour définir le coin supérieur gauche de la plage renvoyée par DECALER (soit A1). On définit le nombre de lignes en comptant le nombre de valeurs saisies en A et le nombre de colonnes en comptant le nombre d'intitulés placés en ligne 1.

Cela sous-entend qu'il ne faut rien d'autre que le tableau sur la feuille. Il y a moyen de s'affranchir de ces contraintes dans certaines limites, mais cela devient plus complexe.
On mentionne la plage nommé en source du TCD à la deuxième étape de la création...

Après, pour autant qu'à chaque nouvelle saisie, il y ait une valeur en colonne A, la plage va grandir toute seule. De même, si tu ajoutes un champ en colonne E, la plage va s'étendre sur la droite et à la prochaine mise à jour du TCD, tu disposeras du nouveau champ.

Pour mettre le TCD à jour à l'activation de la feuille qui le supporte (je pars du principe que tu n'as que le TCD sur la feuille)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
    Me.PivotTables(1).RefreshTable
End Sub

dans le module de la feuille.

[EDIT] Comme tu parles de données essbase, je suppose qu'elles sont externes. Ne peux-tu pas alors appuyer directement ton TCD sur les données externes (Etape 1, choisir Données externes).

Autre chose: Si tu récupères les données essbase via MSQuery, Excel créé automatiquement une plage nommée qui grandira à chaque mise à jour et qui peut servir de source au TCD à l'étape 2 de l'assistant... Tu peux d'ailleurs renommer cette plage via clic droit puis propriétés sur une des cellules de résultat de MSQuery...
[/EDIT]

[zazaraignée]

Je me demandais simplement si les sous-totaux n'étaient pas plus simple à utiliser qu'un TCD. Mais vu que la présentation finale diffère totalement (sans vouloir faire de mauvais jeux de mots) de celle du TCD, finalement, ma proposition ne tient pas vraiment debout.