macro avec tableau de concordance

Version imprimable

27/01/2016, 23h11
tben08

3 pièce(s) jointe(s)

macro avec tableau de concordance

Bonsoir à tous,

voici mon problème, j'ai 2 fichiers, la société alpha et la société beta. Dans chaque fichier les budgets mensuels.

Les 2 fichiers ne sont pas identiques, dans la colonne A sur l'un des fichiers il y a plus de lignes. J'ai mis 2 fichiers mais j'en aurais beaucoup ce qui veut dire qu'il faut boucler sur chaque fichier et qu'en fonction du nom (si alpha ou betta ) la traitement sera différent (mais ça je pourrais le faire)

j'ai un 3 ème fichier(modele) avec 2 tables de correspondance 1 pour alpha et l'autre pour betta et un onglet pour vous montrer ce que je souhaite obtenir.

Dans mon tableau, j'ai donc besoin du numéro de societé, du code correspondant au libellé (table de correspondance), le mois et le montant. Le problème que je rencontre c'est comment afficher mon code de libellé. Mon libellé et code de libellé sont fixe ils seront toujours sur les mêmes lignes. et je ne souhaite traiter seulement les lignes ou il y a les libélles. Tout doit se passer dans le fichier modele, je ne peux mpas modifier les fichier alpha et betta.

J'espère avoir réussi à vous faire comprendre mon problème et vous avoir donné l'envie de m'aider :-)

Merci d'avance pour votre aide. Pièce jointe 199286 Pièce jointe 199287 Pièce jointe 199288
28/01/2016, 09h35
Neutthsch

Un petit récap?
Citation:

Envoyé par tben08

J'espère avoir réussi à vous faire comprendre mon problème et vous avoir donné l'envie de m'aider :-)

Tu rigoles? C'est completement semoulesque ton truc :ptdr: en plus le café n'a pas fini de faire effet, alors je rame ;)

Citation:

Les 2 fichiers ne sont pas identiques, dans la colonne A sur l'un des fichiers il y a plus de lignes

Ben plus de lignes c'est pas vraiment un problème, si toutes tes colonnes ont le même positionnement ca facilite quand même un peu le travail.

Bon vers quoi tu as commencé tes recherches? Si je te parle de :
- Tableau croisé dynamique
- RECHERCHEV()
- ou encore VBA
Ca te dit quelque chose et est ce des solutions que tu as déjà essayé?

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
Dim ModleleAlpha, ModeleBeta, ModleleCorespondance, RangeAlpha As Range, RangeBeta As Range, L As Long, Nbl As Long ' Create a variable.
Set ModleleAlpha = CreateObject("Scripting.Dictionary"): Set ModeleBeta = CreateObject("Scripting.Dictionary"): Set ModleleCorespondance = CreateObject("Scripting.Dictionary")
 
Set RangeAlpha = ThisWorkbook.Sheets("MODELE alpha").Range("A1").CurrentRegion: Set RangeBeta = ThisWorkbook.Sheets("MODELE beta").Range("A1").CurrentRegion
Nbl = RangeAlpha.Rows.Count: If RangeBeta.Rows.Count > Nbl Then Nbl = RangeBeta.Rows.Count
For L = 2 To Nbl
   If Trim("" & RangeAlpha(L, 2).Value) <> "" Then ModleleAlpha.Add RangeAlpha(L, 2).Value, RangeAlpha(L, 1).Value: If Trim("" & RangeBeta(L, 2).Value) <> "" Then ModeleBeta.Add RangeBeta(L, 2).Value, RangeBeta(L, 1).Value
   ModleleCorespondance.Add "Alpha_" & RangeAlpha(L, 1).Value, RangeAlpha(L, 3).Value: ModleleCorespondance.Add "Beta_" & RangeBeta(L, 1).Value, RangeBeta(L, 3)
Next
'correspondance entre les modèles!
ThisWorkbook.Sheets("MODELE alpha").Cells(ModleleCorespondance("Alpha_" & ModleleAlpha("Centro diurno")), 8) = "toto"
If ModleleCorespondance.exists("Beta_" & ModleleAlpha("Centro diurno")) Then
    ThisWorkbook.Sheets("MODELE beta").Cells(ModleleCorespondance("Beta_" & ModleleAlpha("Centro diurno")), 8) = "toto"
End If
 k = ModeleBeta.Keys
End Sub

28/01/2016, 15h29
tben08
Citation:
Envoyé par Neutthsch

Tu rigoles? C'est completement semoulesque ton truc :ptdr: en plus le café n'a pas fini de faire effet, alors je rame ;)

Ben plus de lignes c'est pas vraiment un problème, si toutes tes colonnes ont le même positionnement ca facilite quand même un peu le travail.

Bon vers quoi tu as commencé tes recherches? Si je te parle de :

Tableau croisé dynamique
RECHERCHEV()
ou encore VBA

Ca te dit quelque chose et est ce des solutions que tu as déjà essayé?
Moi je trouve que c'est clair :-) en plus je donne un modèle

je suis forcément obligé de passer par la macro car la j'ai mis que 2 fichiers mais je peux en avoir beaucoup plus (et c'est même sûr)