Somme.si

[yves77]

Bonsoir le forum

Belle et heureuse année, la sante, la joie, bonheur, et réussite

Ceux qui n’est pas mon cas en ce début année, je sollicite votre aide car j’ai un gros fichier avec des doublons et j’aimerai faire la somme de ces références sur la première ligne et supprimer les lignes en doublons, pour l’instant je supprime ligne par ligne car je n’arrive pas avec la formule somme .si

Merci d’avance pour votre aide

 

[yves77]

Oupps avec un exemple

 

[Jacky67]

Oupps avec un exemple

Bonsoir et meilleurs vœux aussi
Une proposition avec un peu de VBA
Résultat en feuil2

 

[yves77]

Merci jacky67

je regarde comment cela fonctionne sur mon fichier et je te reviens
bonne soirée

 

[JHA]

Bonjour à tous,

Un essai avec gestion des doublons par formule matricielle.

=SIERREUR(INDEX($A$2:$A$15;EQUIV(0;INDEX(NB.SI($A$21:$A21;$A$2:$A$15););0));"")

JHA

 

[yves77]

Bonjour

Merci JHA, Jacky67, je test vos propositions n’étant pas doué comprendre et mettre en applications c'est plus long

 

[yves77]

Bonjour

je suis encore sur la proposition de Jacky67 qui me convient plus , mais je n'arrive pas a adapter son code sur mon fichier pourriez vous me dire ou sont mes erreurs , le trie des doublons est bien fait , mais pas la somme et j’aimerai recopier les colonnes
Merci d'avance

Sub Extration()
Sheets("Feuil1").Columns("B:T,V:AR").Copy Sheets("Feuil2").Columns(1)
End With
Dim Derlg&, Derlg1&
Sheets("Feuil2").Range("A:A,U:U").ClearContents
With Sheets("Feuil1")
Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1:A" & Derlg).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("Feuil2!A1"), Unique:=True
End With
With Sheets("Feuil2")
Derlg1 = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("U2:U" & Derlg1).Formula =_
"SUMPRODUCT((Feuil1!$a$2:$a$"&Derlg & "=$a2)*Feuil1!$u$2:$u$" & Derlg & ")"
.Range("U2:U" & Derlg1).Value = .Range("U2:U" & Derlg1).Value
.[u1] = "(Objet actuel)Poids Brut en Kg"
End With
End Sub

 

[Jacky67]

Re..
Un classeur brouillon, mais avec la bonne structure des 2 feuilles faciliterait la construction d'un exemple

 

[yves77]

re
voici le fichier , maintenant cela fonctionne , mais j'aimerai aussi récupérer les données de la ligne après le trie , mais la je sèche , merci de ton aide

 

[Jacky67]

Re..
Ce n'est plus du tout la même chose...
Comme présenté, cette base de données est pour le moins mal constituée
En Pj, un classeur qui fait ce qui est demandé avec cette base.

 

[yves77]

re
Merci jacky67 pour ton aide , mais tu entend quoi par la BD est mal constituée, j'essaie de combler mon ignorance et merci encore

 

[Jacky67]

re
Merci jacky67 pour ton aide , mais tu entend quoi par la BD est mal constituée, j'essaie de combler mon ignorance et merci encore

Re..
Pour moi, une base de données n'a pas:
-De cellule vide dans la ligne de titre
-Pas de ligne vide
-Pas de colonne vide
Essaye de faire un tri ou un classement ou encore, un filtre, et tu comprendras.

*Cela n'engage que moi, mais je ne pense pas être le seul.

**En pj le classeur modifié. Une ligne de contrôle inutile a été supprimée

 

[yves77]

re

je comprends mais j'ai essayé de me mettre en lignes une copie expurgé du fichier original avec toutes ces colonnes et des donnés pour comprendre comment cela fonctionne avec celle qui était remplié je suis désole , et encore merci