Bonjour à tous,
Mes jeunes notions de vba ne sont pas du tout assez avancées pour comprendre le code de cette macro pour l'adapter à ma situation…
Sans demander de me fournir une réponse complete mais quelques pistes (ou même la logique la plus simple à suivre pour répondre à ma problèmatique :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub FusionConso() [A2:C1000].ClearContents Application.ScreenUpdating = False For s = 2 To Sheets.Count Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy [A65000].End(xlUp).Offset(1, 0) Next s [A1:C1000].Sort Key1:=[A2], Order1:=xlAscending, Key2:=[B2], Order2:=xlAscending, Header:=xlGuess Set mondico = CreateObject("Scripting.Dictionary") For i = 2 To [A65000].End(xlUp).Row temp = Cells(i, "A") & "_" & Cells(i, "B") mondico(temp) = mondico(temp) + Cells(i, "C") Next [A2:C1000].ClearContents [A2].Resize(mondico.Count) = Application.Transpose(mondico.keys) [C2].Resize(mondico.Count) = Application.Transpose(mondico.items) Application.DisplayAlerts = False [A2:A1000].TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="_" End Sub
Comme vous pouvez le voir sur mon fichier exemple j’ai deux tableaux dont la ligne 1 est identique.
Ce que j’aimerais avec ma macro :
1. Dans un troisième tableau récap sur une nouvelle feuille « vousêtesgéniaux » qui se crée : obtenir une liste de mes fournisseurs du tableau 1 (vert) + 2 (bleu) et la différence des données fournisseurs déjà présents. (soustraction des valeurs de cellule des doublons en faite…). Le but est de savoir ce que je leur doit.
2. Mon problème est que des fournisseurs se rajoutent et donc que ca me décale tout. Il faudrait que le tableau 3 me fasse donc la différence des fournisseurs déjà présent + me rajoute ceux qui sont dans le tableau 1 ou 2 avec la différence.
Mes macros actuelles me permettent de construire automatiquement les deux tableaux 1 et 2 mais des décalages se produisent je ne peux donc pas faire un e simple synthese avec une formule de soustration, j'imagine qu'il faudrait replacer les lignes communes en face. Effectuer ensuite une soustration etc...
Guillaume
[Edit] Désolé pour le style "flagorneur" du précédent message qui ne se voulait que d'un ton décontracté teinté de dépit... A l'avenir je respecterai scrupuleusement les règles du forum.
Partager