Fiche recapitulatif de plusieurs feuille excel

[bloodess]

Feuille recapitulative

Bonjour,
J'ai une requette assez urgente ...
Voila j'ai un fichier excel qui contient des references des désignations et un cumule de produit pour chaque mois avec une feuille par mois.
J'aimerai a partir de ces feuilles créer automatiquement un récapitulatif des mois avec toutes les références, désignation et cumule par mois sachant que d'un mois sur l'autre de nouvelle désignation on puent apparaitre.

Merci pour votre aide future ci joint un exemple factice.

Cordialement....😛

 

[bloodess]

Re : Fiche recapitulatif de plusieurs feuille excel

Aidez moi sil vous plais !!!

 

[eriiic]

Re : Fiche recapitulatif de plusieurs feuille excel

Bonjour,

Tu veux faire une consolidation.
Plus explicite que des mots voir cette démo

eric

 

[JHA]

Re : Fiche recapitulatif de plusieurs feuille excel

Bonjour Bloodess, le forum,

Ci joint un exemple qui devrait répondre à ta demande.
Rajout d'une fonction personnalisée de JB pour fusionner les listes.

JHA

 

[bloodess]

Re : Fiche recapitulatif de plusieurs feuille excel

bonjour JHA,
Je suis désoler je ne comprend toute les lignes de code que tu m'a fourni cela à l'air de fonctionner mais je n'arrive pas a retranscrire ce scripte pour des plage de données plus grande et sur les 12 mois que je dispose
Peut tu m'éclaircir ?
Merci pour ton aide

 

[JHA]

Re : Fiche recapitulatif de plusieurs feuille excel

Bonjour Bloodess, le forum,

Je dois m'absenter pour la journée, j'espère que quelqu'un prendra le relais (beaucoup peuvent t'aider sur la compréhension du code à mettre dans un module, tu peux y ajouter des champs sup au besoin) sinon à ce soir.

JHA

 

[bloodess]

Re : Fiche recapitulatif de plusieurs feuille excel

Quelqu'un peu t'il m'expliquer ce code ????
Function Fusion2(champ1, champ2, champ3)
Dim temp()
Set mondico1 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ2
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
ReDim temp(1 To champ1.Count + champ1.Count)
i = 1
For Each c In mondico1.items
temp(i) = c
i = i + 1
Next c
For Each c In champ3
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
ReDim temp(1 To champ1.Count + champ1.Count)
i = 1
For Each c In mondico1.items
temp(i) = c
i = i + 1
Next c
For Each c In champ4
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
ReDim temp(1 To champ1.Count + champ1.Count)
i = 1
For Each c In mondico1.items
temp(i) = c
i = i + 1
Next c
Fusion2 = Application.Transpose(temp)
End Function

 

[job75]

Re : Fiche recapitulatif de plusieurs feuille excel

Bonjour bloodess, Eriiiic, JHA,

Une autre solution, toujours en VBA bien sûr :

Sub Consolidation()
Dim ws As Worksheet, cel As Range, ref As Range
With Sheets("Recapitulatif")
  .[A3:O65536].ClearContents
  For Each ws In Worksheets
    If ws.Name <> "Recapitulatif" Then
      For Each cel In ws.Range(ws.[A2], ws.[A65536].End(xlUp))
        Set ref = .[A3:A65536].Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
        If ref Is Nothing Then Set ref = .[A65536].End(xlUp)(2)
        ref = cel
        ref.Offset(, 1) = cel.Offset(, 1)
        ref.Offset(, ws.Index + 2) = cel.Offset(, 3)
      Next
    End If
  Next
End With
End Sub

Fichier joint.

Aucune difficulté pour ajouter des mois supplémentaires.

A+