création de liste de nom

Le
nospam.BOBBY
Bonjour,

J'ai un tableau :
Gerard : 10
Vincent : 30
Bob : 20
Vincent : 30
Alfred : 10
Gerard : 20

J'aimerai créer automatiquement dans un onglet une liste ne comportant qu'un
exemplaire de chaque nom et même (si possible) une liste comportant un seul
exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
associés.

Cela donnerait :

Gerard : 30
Vincent : 60
Bob : 20
Alfred : 10

Je ne sais pas si je suis clair

Merci d'avance en tous cas pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #21352541
Bonjour,

Données/Consolider

ou

TCD

http://boisgontierjacques.free.fr/pages_site/donneesConsolider.htm
http://boisgontierjacques.free.fr/pages_site/TableauxCroises.htm


JB


On 9 mar, 23:28, "nospam.BOBBY"
Bonjour,

J'ai un tableau :
Gerard : 10
Vincent : 30
Bob : 20
Vincent : 30
Alfred : 10
Gerard : 20

J'aimerai créer automatiquement dans un onglet une liste ne comportant qu'un
exemplaire de chaque nom et même (si possible) une liste comportant un seul
exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
associés.

Cela donnerait :

Gerard : 30
Vincent : 60
Bob : 20
Alfred : 10

Je ne sais pas si je suis clair...

Merci d'avance en tous cas pour votre aide.
JB
Le #21352561
Avec formules

Noms de champ
montant ½!$B$2:$B$20
nom ½!$A$2:$A$20

En A2:
=INDEX(BD!$A:$A;MIN(SI(nom<>"";SI(NB.SI(A
$1:A1;nom)=0;LIGNE(nom);LIGNES(nom)+LIGNE(nom)))))
Valider avec maj+ctrl+entrée

En B2:
=SI(A2<>"";SOMME.SI(nom;A2;montant);0)

http://cjoint.com/?dkgGpNJT2w

JB
http://boisgontierjacques.free.fr/

On 10 mar, 05:47, JB
Bonjour,

Données/Consolider

ou

TCD

http://boisgontierjacques.free.fr/pages_site/donneesConsolider.htmhttp:// boisgontierjacques.free.fr/pages_site/TableauxCroises.htm

JB

On 9 mar, 23:28, "nospam.BOBBY"


> Bonjour,

> J'ai un tableau :
> Gerard : 10
> Vincent : 30
> Bob : 20
> Vincent : 30
> Alfred : 10
> Gerard : 20

> J'aimerai créer automatiquement dans un onglet une liste ne comportan t qu'un
> exemplaire de chaque nom et même (si possible) une liste comportant u n seul
> exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
> associés.

> Cela donnerait :

> Gerard : 30
> Vincent : 60
> Bob : 20
> Alfred : 10

> Je ne sais pas si je suis clair...

> Merci d'avance en tous cas pour votre aide.- Masquer le texte des messa ges précédents -

- Afficher le texte des messages précédents -
nospam.BOBBY
Le #21352731
Merci beaucoup.
Je regarde ça tout de suite.

Cordialement


"JB"
Avec formules

Noms de champ
montant ½!$B$2:$B$20
nom ½!$A$2:$A$20

En A2:
=INDEX(BD!$A:$A;MIN(SI(nom<>"";SI(NB.SI(A
$1:A1;nom)=0;LIGNE(nom);LIGNES(nom)+LIGNE(nom)))))
Valider avec maj+ctrl+entrée

En B2:
=SI(A2<>"";SOMME.SI(nom;A2;montant);0)

http://cjoint.com/?dkgGpNJT2w

JB
http://boisgontierjacques.free.fr/

On 10 mar, 05:47, JB
Bonjour,

Données/Consolider

ou

TCD

http://boisgontierjacques.free.fr/pages_site/donneesConsolider.htmhttp://boisgontierjacques.free.fr/pages_site/TableauxCroises.htm

JB

On 9 mar, 23:28, "nospam.BOBBY"


> Bonjour,

> J'ai un tableau :
> Gerard : 10
> Vincent : 30
> Bob : 20
> Vincent : 30
> Alfred : 10
> Gerard : 20

> J'aimerai créer automatiquement dans un onglet une liste ne comportant
> qu'un
> exemplaire de chaque nom et même (si possible) une liste comportant un
> seul
> exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
> associés.

> Cela donnerait :

> Gerard : 30
> Vincent : 60
> Bob : 20
> Alfred : 10

> Je ne sais pas si je suis clair...

> Merci d'avance en tous cas pour votre aide.- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -
FFO
Le #21352721
Salut à toi

Soit Onglet "Donnée" la liste des noms et des nombres associés
Onglet "Synthèse" le résultat avec chaque nom unique et leur somme
Je te propose ces lignes de code :

If Sheets("Synthèse").Range("A2") <> "" Then
Sheets("Synthèse").Range("A2", "B" &
Sheets("Synthèse").Range("A65535").End(xlUp).Row).Clear
End If
i = 2
Do While i < Range("A65535").End(xlUp).Row + 1
If Liste Like "*" & Range("A" & i) & "*" = False Then
Ligne = Sheets("Synthèse").Range("A65535").End(xlUp).Offset(1, 0).Row
Sheets("Synthèse").Range("A" & Ligne) = Range("A" & i)
Sheets("Synthèse").Range("B" & Ligne) = Range("B" & i)
Liste = Liste & Range("A" & i) & "/"
Else
Ligne = Sheets("Synthèse").Columns("A:A").Find(What:=Range("A" & i),
After:=Sheets("Synthèse").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole).Row
Sheets("Synthèse").Range("B" & Ligne) = Sheets("Synthèse").Range("B" &
Ligne) + Range("B" & i)
End If
Ligne = ""
i = i + 1
Loop


Sur ce lien un exemple avec ce code

http://www.cijoint.fr/cjlink.php?file=cj201003/cijcXTEh0B.xls

Aprés l'avoir récupéré et ouvert actives Onglet "Donnée" le bouton
"Traitement"
Vas constater le résultat Onglet "Synthèse"

Donnes moi des nouvelles !!!!!!
michdenis
Le #21354241
Bonjour,

Une autre approche :

En supposant que dans la colonne A, les noms
et en colonne B la valeur numérique.
Il est supposé que ces 2 colonnes de la "feuil1" ont
des étiquettes de colonnes.

Le résultat apparaît en "feuil2"

'-----------------------------------------
Sub test()
Dim Rg As Range, Rg1 As Range

With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter xlFilterCopy, , Feuil2.Range("A1"), True
End With
With Feuil2
Set Rg1 = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg1
.Offset(-1, 1)(1) = Rg.Offset(, 1)(1)
.Offset(, 1).Formula = "=Sumif(" & Rg.Parent.Name & "!" & _
Rg.Address & "," & Rg1.Parent.Name & "!" & _
Rg1(1).Address(0, 0) & "," & Rg.Parent.Name & _
"!" & Rg.Offset(, 1).Address & ")"
.Offset(, 1).Value = .Offset(, 1).Value
End With

End Sub
'-----------------------------------------



"nospam.BOBBY"
Bonjour,

J'ai un tableau :
Gerard : 10
Vincent : 30
Bob : 20
Vincent : 30
Alfred : 10
Gerard : 20

J'aimerai créer automatiquement dans un onglet une liste ne comportant qu'un
exemplaire de chaque nom et même (si possible) une liste comportant un seul
exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
associés.

Cela donnerait :

Gerard : 30
Vincent : 60
Bob : 20
Alfred : 10

Je ne sais pas si je suis clair...

Merci d'avance en tous cas pour votre aide.
nospam.BOBBY
Le #21368591
Merci à tous pour vos précieuses méthodes.

Cordialement




"michdenis"
Bonjour,

Une autre approche :

En supposant que dans la colonne A, les noms
et en colonne B la valeur numérique.
Il est supposé que ces 2 colonnes de la "feuil1" ont
des étiquettes de colonnes.

Le résultat apparaît en "feuil2"

'-----------------------------------------
Sub test()
Dim Rg As Range, Rg1 As Range

With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter xlFilterCopy, , Feuil2.Range("A1"), True
End With
With Feuil2
Set Rg1 = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg1
.Offset(-1, 1)(1) = Rg.Offset(, 1)(1)
.Offset(, 1).Formula = "=Sumif(" & Rg.Parent.Name & "!" & _
Rg.Address & "," & Rg1.Parent.Name & "!" & _
Rg1(1).Address(0, 0) & "," & Rg.Parent.Name & _
"!" & Rg.Offset(, 1).Address & ")"
.Offset(, 1).Value = .Offset(, 1).Value
End With

End Sub
'-----------------------------------------



"nospam.BOBBY" de discussion :

Bonjour,

J'ai un tableau :
Gerard : 10
Vincent : 30
Bob : 20
Vincent : 30
Alfred : 10
Gerard : 20

J'aimerai créer automatiquement dans un onglet une liste ne comportant
qu'un
exemplaire de chaque nom et même (si possible) une liste comportant un
seul
exemplaire de chaque nom mais avec l'addition des chiffres qui lui sont
associés.

Cela donnerait :

Gerard : 30
Vincent : 60
Bob : 20
Alfred : 10

Je ne sais pas si je suis clair...

Merci d'avance en tous cas pour votre aide.

Publicité
Poster une réponse
Anonyme