Fusionner 2 tableaux avec

Bonjour,

Je cherche une fonction qui pourrait me faciliter la vie

En fait assez souvent j'ai besoin de compliler 2 (ou plus) tableaux correspondant au CA de diférents BU chez leur fournisseurs. Certains fournisseurs (pas tous!) sont les mêmes.

L'objectif est d'avoir un seul tableau avec le CA du groupe par fournisseur. Il faut donc identifier les fournisseurs par leur numéro, additionner les CA chez le même et garder une seule ligne par fournisseur.

Je joins un exemple avec un petit extrait (sur 2 onglets). Je ne sais pas si c'est important. Dans ce fichier il n'y a que 2 colonnes (identifiant du fournisseur et le CA), mais en réalité il y en a beaucoup plus (libellé, adresse, etc).

Merci d'avance pour votre aide!

Bonjour,

Une proposition

A+

Merci beaucoup pour un retour si rapide!

Mais quand j'appuie sur le bouton "fusionner" il ne se passe rien Je ne m'y prends pas bien?

Est-ce que les macros sont activées ?

Cliquer sur "FICHIER" > "Options"

Et enfin sur "Paramètres des macros"

A+

Bonjour aydan et bienvenue sur le forum

Bonjour frangy

Une variante :

frangy a écrit :

Est-ce que les macros sont activées ?

Cliquer sur "FICHIER" > "Options"

Et enfin sur "Paramètres des macros"

A+

Rien à faire, ça ne bouge pas

J'essayerai de voir ça depuis mon ordi perso ce soir.

gmb a écrit :

Bonjour aydan et bienvenue sur le forum

Bonjour frangy

Une variante :

mais c'est magiiiiiiiiiique! C'est exactement ce qu'il fallait!

comment est-ce que je dois procéder pour faire la même chose avec mes tableaux?

et merci pour le mot de bienvenu!

frangy a écrit :

Bonjour,

Une proposition

A+

Je n'arrive toujours pas à faire marcher ton fichier, je suis navrée

Je suppose que si celui de gmb a fonctionné, c'est que les macros sont bien authorisés?

Bonjour,

Essaie avec ce fichier

A+

frangy a écrit :

Bonjour,

Essaie avec ce fichier

A+

Là ça marche

Merci pour ton implication!

mais la même question: comment je fais pour reproduire ça dans mon fichier?

J'avoue que j'espérais qu'il existait une formule qui le fait. Avec les formules j'ai pas de soucis généralement, tandis que les macros c'est un autre niveau...

Bonjour,

comment je fais pour reproduire ça dans mon fichier ?

Si je te dis que ce n'est pas moi qui ait fourni le fichier initial, ça ne fera pas avancer ton affaire .

Pour que je puisse t'aider, il faut que tu me dises ce qui te pose problème.

• copier la macro dans ton fichier,
• comprendre la macro,
• adapter la macro à un fichier différent de l'exemple,
• etc.

Pour commencer, voici le code commenté

Sub Fusionner()
Dim Cel As Range, C As Range
    With Worksheets("Feuil2")
        'On balaye tous les numéros fournisseurs dans la colonne A de la feuille 1
        For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
            'Si le numéro fournisseur est présent dans la colonne A de la feuille 2
            If Application.CountIf(.Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row), Cel) > 0 Then
                'on recherche l'emplacement de ce numéro
                Set C = .Columns(1).Find(Cel)
            Else
                'sinon, on indique la position à utiliser pour l'ajout d'un numéro fournisseur
                Set C = .Range("A" & Rows.Count).End(xlUp).Offset(1)
                'et on affecte le numéro fournisseur à cette cellule
                C.Value = Cel.Value
            End If
            'On ajoute le C.A.
            C.Offset(0, 1).Value = C.Offset(0, 1).Value + Cel.Offset(0, 1)
        Next Cel
        .Activate
    End With
End Sub

A+

Merci pour ta réponse!

En fait j'aimerais d'abord copier le macro dans le fichier initial pour apprendre à le faire déjà. Comme ça je vois tout de suite si ça fonctionne ou pas. J'ai esssayé de le faire mais ça donne n'importe quoi. Qqn a peut être déjà posé une question à ce sujet, mais j'ai pas encore eu le temps de chercher (j'ai trop de trucs à faire en même temps!)

Et après il faut que je l'adapte à mon fichier de travail avec de vraies données.

Bonjour,

Pour copier la macro :

1) Tu ouvres l'éditeur en appuyant sur alt + F11

2) Tu ouvres l'explorateur de projets en appuyant sur ctrl+ R

3) Tu crées un Modiule standard (Barre de menus / Insertion > Module)

4) Tu fais un copier / coller du code dans ce module

A+

frangy a écrit :

Bonjour,

Pour copier la macro :

1) Tu ouvres l'éditeur en appuyant sur alt + F11

2) Tu ouvres l'explorateur de projets en appuyant sur ctrl+ R

3) Tu crées un Modiule standard (Barre de menus / Insertion > Module)

4) Tu fais un copier / coller du code dans ce module

A+

Merci!

J'ai plus au moins trouvé comment faire ça avant (sauf les raccourcis! c top!), mais le bouton "fusionner" il est censé apparaître d'où?

Je crois qu'il faut que je me forme un peu sur les macros, sinon c'est trop flou... Mais là ça sera après les vacances!

Joyeux Noël!

Bonjour,

le bouton "fusionner" il est censé apparaître d'où ?

C'est magique ! Il suffit de claquer des doigts.

Sinon, tu peux aussi cliquer sur Développeur > Insérer > Contrôles de formulaires / Bouton

puis clic dans la feuille pour placer le bouton.

Ensuite, pour associer la macro au bouton, faire clic droit >Affecter une macro

Je crois qu'il faut que je me forme un peu sur les macros, sinon c'est trop flou... Mais là ça sera après les vacances

Excellente résolution pour 2015

Bonnes fêtes.

A+