projection données entre plusieurs Feuilles Excel

B

BigDaddy154

Guest

• 6 Mars 2015

• #2

Re : projection données entre plusieurs Feuilles Excel

Bonsoir,

A tester.

cordialement.

 

Pièces jointes

• naim.xlsm

  20.9 KB · Affichages: 37

Vote positif 0 Vote négatif

N

naim216

Guest

• 8 Mars 2015

• #3

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

 

Pièces jointes

• naimv2.xlsm

  22.7 KB · Affichages: 28
• naimv2.xlsm

  22.7 KB · Affichages: 28
• naimv2.xlsm

  22.7 KB · Affichages: 26

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mars 2015

• #4

Re : projection données entre plusieurs Feuilles Excel

Bonjour à tous


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

Code:

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

 

Vote positif 0 Vote négatif

B

BigDaddy154

Guest

• 8 Mars 2015

• #5

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.

 

Pièces jointes

• naimv2.xlsm

  23.6 KB · Affichages: 24
• naimv2.xlsm

  23.6 KB · Affichages: 33
• naimv2.xlsm

  23.6 KB · Affichages: 40

Vote positif 0 Vote négatif

N

naim216

Guest

• 9 Mars 2015

• #6

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.

 

Pièces jointes

• naimv3.xlsm

  26.5 KB · Affichages: 20
• Calculs_Exo.xlsx

  13.5 KB · Affichages: 20

Vote positif 0 Vote négatif

N

naim216

Guest

• 9 Mars 2015

• #7

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.

 

Dernière modification par un modérateur: 9 Mars 2015

Vote positif 0 Vote négatif

B

BigDaddy154

Guest

• 9 Mars 2015

• #8

Re : projection données entre plusieurs Feuilles Excel

Bonjour Naim.

Essaye cette version voir si cela te conviens.

Cordialement

 

Pièces jointes

• naimv4.xlsm

  33.8 KB · Affichages: 24

Vote positif 0 Vote négatif

N

naim216

Guest

• 10 Mars 2015

• #9

Re : projection données entre plusieurs Feuilles Excel

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

 

Vote positif 0 Vote négatif

B

BigDaddy154

Guest

• 10 Mars 2015

• #10

Re : projection données entre plusieurs Feuilles Excel

De rien 😉

 

Vote positif 0 Vote négatif

N

naim216

Guest

• 12 Mars 2015

• #11

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.

 

Dernière modification par un modérateur: 19 Mars 2015

Vote positif 0 Vote négatif

N

naim216

Guest

• 19 Mars 2015

• #12

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

 

Vote positif 0 Vote négatif

N

naim216

Guest

• 19 Mars 2015

• #13

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.

 

Vote positif 0 Vote négatif