Sub compil() Dim Fr2 As Worksheet Set Fr2 = Sheets("feuil1") Fr2.Select Set Dico = CreateObject("Scripting.Dictionary") For Each c In Range("b2:b" & [b65000].End(xlUp).Row) Dico(c.Value) = Dico(c.Value) & c.Offset(0, 1) & "|" & c.Offset(0, 2) & "|" Next c If Dico.Count > 0 Then Fr2.[g1].Resize(, Dico.Count) = Dico.keys I = 0 For Each c In Dico.items a = Split(c, "|") Fr2.[g2].Offset(, I).Resize(UBound(a)) = Application.Transpose(a) I = I + 1 Next c End If End Sub
"isabelle" a écrit dans le message de news: mgrk5l$ir2$
bonjour André,
je ne comprend pas le résultat attendu, pour GHI le résultat ne devrait t'il pas être GHI planche compressé
isabelle
Le 2015-04-17 08:26, Andre a écrit :
Bonjour,
Merci de répondre. Effectivement, je serais interessé car, vu la quantité de données que je vais devoir comparer ... Le faire à la main, je ne le sens pas vraiment.
Je connais le VBA donc, vous pouvez m'expliquer ! Merci André
In article <mgqa9t$6bd$, isabelle says...
bonjour André,
ce n'est pas possible de laisser le champ de donné "Vide" mais c'est possible de réaliser ta demande par vba. si tu es intéressée par cette solution, dit le nous.
isabelle
Le 2015-04-15 05:05, Andre a écrit :
Bonjour,
J'essaie d'utiliser le tableau croisé dynamique afin de comparer des données. Je n'y arrive pas.
Dans la partie données, je ne veux pas compter, mais mettre la valeur.
Comment faire ?
Si cela est impossible avec le tableau croisé dynamique, comment pourrais-je, facilement afficher les données comme cela?
Merci de votre aide
André
--- L'absence de virus dans ce courrier electronique a ete verifiee par le logiciel antivirus Avast. http://www.avast.com
Ceci me semblait fonctionner :)
Sub compil()
Dim Fr2 As Worksheet
Set Fr2 = Sheets("feuil1")
Fr2.Select
Set Dico = CreateObject("Scripting.Dictionary")
For Each c In Range("b2:b" & [b65000].End(xlUp).Row)
Dico(c.Value) = Dico(c.Value) & c.Offset(0, 1) & "|" & c.Offset(0, 2) &
"|"
Next c
If Dico.Count > 0 Then
Fr2.[g1].Resize(, Dico.Count) = Dico.keys
I = 0
For Each c In Dico.items
a = Split(c, "|")
Fr2.[g2].Offset(, I).Resize(UBound(a)) = Application.Transpose(a)
I = I + 1
Next c
End If
End Sub
"isabelle" <i@v.org> a écrit dans le message de news:
mgrk5l$ir2$1@speranza.aioe.org...
bonjour André,
je ne comprend pas le résultat attendu, pour GHI le résultat ne devrait
t'il pas être
GHI
planche
compressé
isabelle
Le 2015-04-17 08:26, Andre a écrit :
Bonjour,
Merci de répondre. Effectivement, je serais interessé car, vu la quantité
de
données que je vais devoir comparer ... Le faire à la main, je ne le sens
pas
vraiment.
Je connais le VBA donc, vous pouvez m'expliquer !
Merci
André
In article <mgqa9t$6bd$1@speranza.aioe.org>, isabelle says...
bonjour André,
ce n'est pas possible de laisser le champ de donné "Vide"
mais c'est possible de réaliser ta demande par vba.
si tu es intéressée par cette solution, dit le nous.
isabelle
Le 2015-04-15 05:05, Andre a écrit :
Bonjour,
J'essaie d'utiliser le tableau croisé dynamique afin de comparer des
données.
Je n'y arrive pas.
Sub compil() Dim Fr2 As Worksheet Set Fr2 = Sheets("feuil1") Fr2.Select Set Dico = CreateObject("Scripting.Dictionary") For Each c In Range("b2:b" & [b65000].End(xlUp).Row) Dico(c.Value) = Dico(c.Value) & c.Offset(0, 1) & "|" & c.Offset(0, 2) & "|" Next c If Dico.Count > 0 Then Fr2.[g1].Resize(, Dico.Count) = Dico.keys I = 0 For Each c In Dico.items a = Split(c, "|") Fr2.[g2].Offset(, I).Resize(UBound(a)) = Application.Transpose(a) I = I + 1 Next c End If End Sub
"isabelle" a écrit dans le message de news: mgrk5l$ir2$
bonjour André,
je ne comprend pas le résultat attendu, pour GHI le résultat ne devrait t'il pas être GHI planche compressé
isabelle
Le 2015-04-17 08:26, Andre a écrit :
Bonjour,
Merci de répondre. Effectivement, je serais interessé car, vu la quantité de données que je vais devoir comparer ... Le faire à la main, je ne le sens pas vraiment.
Je connais le VBA donc, vous pouvez m'expliquer ! Merci André
In article <mgqa9t$6bd$, isabelle says...
bonjour André,
ce n'est pas possible de laisser le champ de donné "Vide" mais c'est possible de réaliser ta demande par vba. si tu es intéressée par cette solution, dit le nous.
isabelle
Le 2015-04-15 05:05, Andre a écrit :
Bonjour,
J'essaie d'utiliser le tableau croisé dynamique afin de comparer des données. Je n'y arrive pas.