Realiser un regroupement de données en excel

Là faudra sans doute une macro en VBA !
Il y a t 'il une feuille où tous les noms différents sont présents ?
Combien y a t il de feuilles ?
Peut on regrouper toutes les feuilles sur une seule ?

Un exemple de macro sur 2 feuilles de données et une feuille RECAP
A adapter à tes besoins (Alt F11 pour ouvrir l'éditeur et voir le code)
https://www.cjoint.com/?0EDtCNAhJmF

Cdlmnt

Il y a très peu de chose à changer :

1° la feuille récapitulative doit être la 1ere dans les onglets en bas, donnes lui le nom que tu veux et dans la macro changes tous les sheets("RECAP") en Sheets(1)
2° les autres feuilles avec les données et n'importe quesl noms
3° Dans plusieurs lignes de la macro les 3 colonnes sont indiquées par leurs lettres, dans mon exemple les noms sont en colonne A les depots en colonne B et les retraits en colonne C,
si ce sont d'autres colonnes dans ton fichier il suffit de changer les lettres dans la macro à chaque endroit , par exemple la ligne
resultat = Application.VLookup(nom, Sheets(1).Range("A2:A" & DLR), 1, False) deviendra
resultat = Application.VLookup(nom, Sheets(1).Range("B2:B" & DLR), 1, False) si chez toi les noms seront dans la colonne B etc

C'est tout, ce que font les lignes dans la macro sont expliqués dans les commentaires en vert

Pour inserer la macro tu ouvres l'éditeur (ALT F11) , Insertion Module et tu copies ma macro que tu colles dans la fenetre blanche de droite; ensuite tu procèdes au modifs necessaires avant de refermer l'éditeur

Pour lancer la macro, pas besoin d'un bouton comme j'avais mis dans l'exemple, tu vas dans l'onglet Developpeur, Macros tu choisis la macro recap et Executer
(Si l'onglet Developpeur n'est pas présnet dans ton ruban tu vas en haut à gauche Bouton Excel Options Excel et tu coches la case Afficher l'onglet Developpeur ..

Bonne application

Si tu n'y arrives pas post ton fichier anonymé (tu remplaces les noms) et allégé (20 lignes suffisent) sur cjoint.com et indiques ici le lien fourni, je regarderai ça

Cdlmnt

Sub recap()
'desactive rafraissement écran
Application.ScreenUpdating = False
' boucle sur les feuilles depuis la 2eme jusqu'à la dernière
For N = 2 To Sheets.Count
'selectionne la feuille
Sheets(N).Select
' dernière ligne non vide de la feuille
DL = Range("D" & Rows.Count).End(xlUp).Row
' boucle de la 2eme ligne à la dernière non vide de la feuille
For x = 2 To DL
' récup le nom en D
nom = Sheets(N).Range("D" & x).Value
' derniere ligne non vide de la feuille RECAP
DLR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
' recherche du nom dans RECAP
resultat = Application.VLookup(nom, Sheets(1).Range("A2:A" & DLR), 1, False)
' si non trouvé la ligne où écrire sera la 1ere après la derniere non vide
'sinon on recherche en quel ligne est le nom dans la colonne A de RECAP
If (IsError(resultat)) Then ligne = DLR + 1 Else ligne = Application.WorksheetFunction.Match(nom, Sheets(1).Range("A:A"), False)
'Inscription dans RECAP du nom en colonne Aet addition des montants en colonne B et C
With Sheets(1)
.Range("A" & ligne) = nom
.Range("B" & ligne) = .Range("B" & ligne).Value + Sheets(N).Range("F" & x)
.Range("C" & ligne) = .Range("C" & ligne).Value + Sheets(N).Range("G" & x)
End With

Next x

Next N

Sheets(1).Select

Application.ScreenUpdating = True

End sub

Lignes en gras modifiées pour correspondre à ce que tu me dis de ton fichier

A tester

Cdlmnt

A quel moment se produit incompatibilité de type ?
Quand elle se produit cliquer sur Débogage et voir quelle est la ligne surlignée en jaune dans la macro
Le différentiel provient peut être que certains montants ne sont pas pris en compte du fait de l'erreur
Il faut d'abord régler le problème de l'erreur, on verra le reste après

Si possible post un extrait de ton fichier (une dizaine de lignes par feuille) en anonymant les noms sur cjoint.com et indiques ici ensuite le lien fourni, je pourrais essayer de voir ce qui c loche

A priori je pense qu'Excel ne peux pas faire la somme car une des données ne doit pas être de type numérique, mais ce n'est qu'une supposition, impossible d'en dire plus sans voir le fichier

Tu anonymes une partie d'une copie de ton fichier comme je disais, avec la macro bien sur et tu le postes sur cjoint puis tu m'indique le lien ici ou en mp et je regarderai

ta macro fonctionne très bien sur l'extrait que tu m'as envoyé

https://www.cjoint.com/?0EExam3yMT8

Les totaux sont justes et correspondent à ceux que j'ai fait sur chaque feuille

Vérifie tes feuilles réelles, il y a peut être des blancs, des cellules non renseignées ou des cellules en texte eu lieu d'être en nombre et qui font buguer la macro

Cdlmnt

A ma connaissance non!
Mais tu peux en sélectionnant toute la colonne attribuer un format à toutes les cellules.
Enfin en faisant executer la macro quand l'erreur se produit et en faisant débogage, quand tu passes la souris sur les parties de la formule surlignée en jaune un commentaire affiche la valeur de la variable, ainsi par ex dans la formule :
.Range("C" & ligne) = .Range("C" & ligne).Value + Sheets(N).Range("G" & x), le survol de la souris sur N en indiquera la valeur et le survol sur x de même, tu peux donc savoir dans quelle feuille et à quelle ligne se trouve l'erreur

Bon courage pour la suite

jai oublié de vous joindre le lien d'un fichier test que jai créé

https://www.cjoint.com/?3Fnonsqm5zs

Bonjour

Post un exemple du fichier avec les colonnes D et autres et les cas possibles sur cjoint.com, le premier n'est plus accessible

Cdlmnt

Voilà il faut créer dans chaque feuille les nouvelles colonnes H I J avec les formules pour faire le tri
Reprendre ensuite la macro en changeant dans la macro les lettres des colonnes D F G par celle des colonnes H I J
https://www.cjoint.com/?0FnqYoMhYif

Cdlmnt

Oui c'est ça
en H et I on obtient le nom associé à un dépôt chaque fois que le nom ou la somme change
Et le récapitulaif et les totaux comme tu le souhaitais peuvent donc se faire à partir de là

La feuille est encore modifiée ! cette fois il y a plusieurs changements de montants en face de cellules vides; cela aurait été plus simple d'avoir la feuille complète dès le départ !
Bon alors on change tout :
En J2 de Feuil 1 mettre la formule : =SI(D2="";J1;D2) et étirer au bas de la colonne
En K2 mettre =SI(J2<>J1;F2;SI(F2<>F1;F2;0)) et étirer au bas de la colonne

Modifier ainsi la macro :

Sub recap()
'desactive rafraissement écran
Application.ScreenUpdating = False
' boucle sur les feuilles depuis la 2eme jusqu'à la dernière
For N = 2 To Sheets.Count
'selectionne la feuille
Sheets(N).Select
' dernière ligne non vide de la feuille
DL = Range("J" & Rows.Count).End(xlUp).Row
' boucle de la 2eme ligne à la dernière non vide de la feuille
For x = 2 To DL
' récup le nom en D
nom = Sheets(N).Range("J" & x).Value
' derniere ligne non vide de la feuille RECAP
DLR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
' recherche du nom dans RECAP
resultat = Application.VLookup(nom, Sheets(1).Range("A2:A" & DLR), 1, False)
' si non trouvé la ligne où écrire sera la 1ere après la derniere non vide
'sinon on recherche en quel ligne est le nom dans la colonne A de RECAP
If (IsError(resultat)) Then ligne = DLR + 1 Else ligne = Application.WorksheetFunction.Match(nom, Sheets(1).Range("A:A"), False)
'Inscription dans RECAP du nom en colonne A et addition des montants en colonne B
With Sheets(1)
.Range("A" & ligne) = nom
.Range("B" & ligne) = .Range("B" & ligne).Value + Sheets(N).Range("K" & x)

End With

Next x

Next N

Sheets(1).Select

Application.ScreenUpdating = True

End Sub

Cdlmnt

Bonjour manubeni

A première vue je ne vois pas ce qui cloche
As tu plusieurs classeurs différents?

Post moi ton classeur sur cjoint.com et indiques le lien fourni, (tu peux me l'indiquer en message privé si tu veux) je regarderai

Cdlmnt

Bonjour,

tu as bien 2 feuilles dans ce classeur ?
eric