Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fiche recapitulatif de plusieurs feuille excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bloodess
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bloodess

XLDnaute Nouveau
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....😛
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Fiche recapitulatif de plusieurs feuille excel

Bonjour bloodess, Eriiiic, JHA,

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

Code: 
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+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Microsoft 365 Bon de commande avec recapitulatif des lignes saisies sur une autre feuille
Réponses
1
Affichages
544
djidji59430
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
444
chris
B
  • Résolu(e)
XL 2019 Consolider les données d'une année issues de plusieurs feuilles Excel
2
Réponses
18
Affichages
3 K
Bastien43
B
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
N
  • Question Question
XL 2016 Simplification d'un fichier excel (reduire le nb de feuille)
Réponses
2
Affichages
688
neim
N
P
  • Résolu(e)
XL 2019 Affectation d'une cellule vide la valeur de 1
Réponses
2
Affichages
2 K
Praveena
P
B
  • Question Question
Microsoft 365 Gestion de Stock avec Excel via une douchette
Réponses
0
Affichages
2 K
Bdjoe
B
S
  • Question Question
Autres [Excel 2007] Imprimer 2 feuilles de calcul sur une même page
Réponses
0
Affichages
1 K
Steph@ne
S
  • Question Question
Outil de suivi de demandes
Réponses
0
Affichages
7 K
Arpopa
A
  • Question Question
Réaliser un report de plusieurs valeurs sur une feuille selon la valeur d'une cellule
Réponses
4
Affichages
2 K
Angeoun
A
L
  • Question Question
XL 2013 Recherche de plusieurs cellules en même temps dans une autre feuille
Réponses
10
Affichages
1 K
Modeste
G
  • Question Question
XL 2013 Comparateur de feuille excel salaires brut net
Réponses
6
Affichages
3 K
chris
R
  • Question Question
XL 2013 Cumul de plusieurs feuille Excel
Réponses
2
Affichages
3 K
gosselien
J
  • Question Question
[Résolu] MIN(SI et SOMME.SI.ENS sur plusieurs feuilles d'un autre classeur
Réponses
4
Affichages
3 K
Jera
J
S
  • Question Question
Perte de références lors du changement d'une feuille
Réponses
8
Affichages
1 K
Misange
N
  • Question Question
Excel Gestion commande sur plusieurs feuille
Réponses
2
Affichages
7 K
bbb38
R
  • Question Question
Transfert donnée d'une listbox multicolonne dans une autre feuille
2
Réponses
18
Affichages
6 K
RUBEN88
R
M
  • Question Question
Extraction de certaines cellules sur plusieurs tableaux Excel avec condition
Réponses
1
Affichages
7 K
Moroccankiss
M
R
  • Question Question
Optimisation d'un outil de recherche macro
Réponses
2
Affichages
1 K
ravenolhm
R
N
  • Question Question
Copier dans une feuille Excel 2OO données de 200 pages Web (1 donnée par page)
Réponses
10
Affichages
2 K
Mytå
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…