Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

création de liste de nom

6 réponses
Avatar
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.

6 réponses

Avatar
JB
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" wrote:
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.
Avatar
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 wrote:
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" wrote:



> 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 -
Avatar
nospam.BOBBY
Merci beaucoup.
Je regarde ça tout de suite.

Cordialement


"JB" a écrit dans le message de news:

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 wrote:
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" wrote:



> 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 -
Avatar
FFO
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 !!!!!!
Avatar
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" a écrit dans le message de groupe 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.
Avatar
nospam.BOBBY
Merci à tous pour vos précieuses méthodes.

Cordialement




"michdenis" a écrit dans le message de news:

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" a écrit dans le message de groupe
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.