projection données entre plusieurs Feuilles Excel

[naim216]

Bonjour,


Je souhaite projeter les données d'un tableau de la feuille "DATA" sur 2 autres feuilles "ESP", "FR" :

- La feuille Data contient le nom des autres feuilles dans la colonne Pays.
- Dans les 2 feuilles "ESP" et "FR" on retrouve les mêmes données dans les colonnes Produit et sous-produit que la feuille Data, mais aussi des dates communes dans les colonnes.

j'aimerais projeter la donnée de chaque cellule de la feuille "DATA" sur les 2 autres feuilles, en fonction des dates et Produit et sous-produit


Merci D'avance

 

[BigDaddy154]

Re : projection données entre plusieurs Feuilles Excel

Bonsoir,

A tester.

cordialement.

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour BigDaddy
Merci bcp vous ete fort, mais j'ai un petit problème:
- Si je décale une cellule il arrive pas de faire la projection (apparemment la projection ce fait avec les num des cellules), dans mon cas je préfère qui ferra la projection quelque soit l'emplacement.

exemple (ci joint)

Merciiii

 

[Staple1600]

Re : projection données entre plusieurs Feuilles Excel

Bonjour à tous


Un peu de recyclage (histoire de dépoussiérer mes tiroirs 😉)

Sub macroNaim()
'sorti de mes archives et adapté de parse_data par jacjas - 12/2014
'pour naim2016 - XLD - mars 2015
Dim lr&, i&, icol&, lcol&, ws As Worksheet, myarr As Variant
Set ws = Sheets("DATA")
lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row: icol = ws.Columns.Count
lcol = ws.Cells(1, 1).CurrentRegion.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.ScreenUpdating = False
For i = 2 To lr
    On Error Resume Next
    If ws.Cells(i, 1) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, 1), ws.Columns(icol), 0) = 0 Then
        ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, 1)
    End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Cells(1, icol).CurrentRegion)
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
    ws.Range("A1").Resize(, lcol).AutoFilter field:=1, Criteria1:=myarr(i) & ""
    If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
        Sheets.Add(before:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
    Else
        Sheets(myarr(i) & "").Move before:=Worksheets(Worksheets.Count)
    End If
    ws.Range("A1:A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
    Sheets(myarr(i) & "").Columns.AutoFit
Next
ws.AutoFilterMode = False
ws.Activate
Application.ScreenUpdating = True
End Sub

 

[BigDaddy154]

Re : projection données entre plusieurs Feuilles Excel

Voila un nouvel essai.

Ps: si tu as des modifications à faire il faut toutefois les faire sur la feuille DATA car c'est à partir d'elle que la macro projette les données sur les autres feuilles.

Dis moi si cela te conviens.

Cordialement.

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour BigDaddy154
j’espère que tu as passé un b week-end 😎

En fait j’insère les données dans la feuille 'DATA' en utilisant un ETL, après je veux que ces données serra injecter selon les critères des autres feuilles (Produit, sous_produit, date) cad
a partir de la Feuille 'FR' ou 'ESP' ....
si produit='Légumes' et sous_produit='Oignon' et date='01/03/2015'
Alors je cherche ces info dans la feuille 'DATA' puis j'injecte la valeur correspondante.

ci-joint:
naimV3: mon besoin
Calculs_Exo: une test que j'ai réalisé avant mais je n'ai pas réussi.

Merci bcp pour ta Collaboration.

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Merci bcp "Staple1600" mais je souhaite injecter les données selon des critères (ci dessus une explication détaillé de mon besoin).

Merci pour ta collaboration, j'espere que j'aurais une solution car ça fait des jours que je travaille la dessus.

 

[BigDaddy154]

Re : projection données entre plusieurs Feuilles Excel

Bonjour Naim.

Essaye cette version voir si cela te conviens.

Cordialement

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour BigDaddy ,
Merci beaucoup le problème est résolu. 😀

 

[BigDaddy154]

Re : projection données entre plusieurs Feuilles Excel

De rien 😉

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour,
Enfin J'ai réussit d'adapter le macro avec mes besoins et ça marche nickel, du coup un petit détail qui m'échappe, comment je peux copier seulement les valeurs 'DATA' et les collés vers 'FR', 'ESP' sans perd la mise en forme des feuilles

Cordialement.

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour,
En fait c'est facile il faut juste remplacer Cells(t, e).Copy Destination:=Sheets(Produit).Cells(i, Z)
Par
Cells(t, e).Copy
Sheets(Produit).Cells(i, Z).PasteSpecial xlPasteValues

 

[naim216]

Re : projection données entre plusieurs Feuilles Excel

Bonjour
J'ai une question par rapport au script.
Est ce qu'il un moyen d'optimiser le traitement du script car si j'ai beaucoup de données l'Excel RAM.

Cordialement.