Discussion :

[tben08]

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. Entreprise alpha.xlsxEntreprise beta.xlsxmodele.xlsm

[Neutthsch]

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 en plus le café n'a pas fini de faire effet, alors je rame

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é?

[Invité]

bonjour,

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
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

[tben08]

Tu rigoles? C'est completement semoulesque ton truc 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)