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

transpose avec condition

9 réponses
Avatar
laucsap
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent

un grand merci par avance de vous intéresser à mon sujet

j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les 12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7 0 x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0 0 0 0
Arthur x3 Chloé x1 0 0 0 0 0 x7 0 x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10

9 réponses

Avatar
Jacquouille
Bonjour
Cette question va intéresser beaucoup de monde, mais, ....pourriez-vous nous
dire ce que vous désirez?
Peut-être, pourriez-vous joindre votre dossier pour plus de compréhension,
via le site CJOINT.COM et publier ici le lien donné.
Merci pour les boules de cristal. -))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"laucsap" a écrit dans le message de groupe de discussion :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les 12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7
0
x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0
0
0 0
Arthur x3 Chloé x1 0 0 0 0 0 x7
0
x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Avatar
isabelle
bonjour,
si j'ai bien compris ...
Sub Macro1()
Dim LastRow As Long
Dim LastCol As Integer, x As Integer
x = 1
With Sheets(1)
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
FCol = LastCol
End With
For i = 2 To LastRow
If Range("A" & i) <> Range("A" & i - 1) Then
x = x + 1
Cells(x, FCol) = Range("A" & i)
Cells(x, FCol + 1) = Range("B" & i)
Else
LastCol = Sheets(1).Cells(x, Sheets(1).Columns.Count).End(xlToLeft).Column + 1
Cells(x, LastCol + 1) = Range("B" & i)
End If
Next
End Sub
isabelle
Le 2016-08-23 à 08:52, laucsap a écrit :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les 12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7 0
x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0 0
0 0
Arthur x3 Chloé x1 0 0 0 0 0 x7 0
x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
Avatar
pom...pom...pom..
Bonsour®
"laucsap" a écrit dans le message de groupe de discussion :
les solutions proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les 12000 lignes)
exemple:
Liste actuelle
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7 0
x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0 0
0 0
Arthur x3 Chloé x1 0 0 0 0 0 x7 0
x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
======================================================== Tableau croisé dynamique !!! ;O))
Avatar
laucsap
Le mardi 23 Août 2016 à 14:52 par laucsap :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les
12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7
0 x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0 0
0 0
Arthur x3 Chloé x1 0 0 0 0 0
x7 0 x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
Bonjour Isabelle
merci pour ta réponse
qui fonctionne mais uniquement pour la dernière ligne de chaque nom
Avatar
Patrick
Bonjour,
un fichier d'exemple est toujours bienvenu :)
P.
Le 24-08-16 à 10:01, laucsap a écrit :
Le mardi 23 Août 2016 à 14:52 par laucsap :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les
12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7

0 x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0

0
0 0
Arthur x3 Chloé x1 0 0 0 0 0
x7 0 x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10

Bonjour Isabelle
merci pour ta réponse
qui fonctionne mais uniquement pour la dernière ligne de chaque nom
Avatar
laucsap
Le mardi 23 Août 2016 à 14:52 par laucsap :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les
12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7
0 x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0 0
0 0
Arthur x3 Chloé x1 0 0 0 0 0
x7 0 x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
Bonjour Jacquouille
ci-joint le lien Cjoint
http://www.cjoint.com/c/FHylrXDlkS4
Avatar
laucsap
Le mardi 23 Août 2016 à 17:10 par Jacquouille :
Bonjour
Cette question va intéresser beaucoup de monde, mais, ....pourriez-vous
nous
dire ce que vous désirez?
Peut-être, pourriez-vous joindre votre dossier pour plus de
compréhension,
via le site CJOINT.COM et publier ici le lien donné.
Merci pour les boules de cristal. -))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"laucsap" a écrit dans le message de groupe de discussion :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les
12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7
0
x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0
0
0 0
Arthur x3 Chloé x1 0 0 0 0 0
x7
0
x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
---
L'absence de virus dans ce courrier électronique a été
vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Bojour Jacquouille
ci-joint le lien Cjoint
http://www.cjoint.com/c/FHylrXDlkS4
Avatar
laucsap
Le mercredi 24 Août 2016 à 13:18 par Patrick :
Bonjour,
un fichier d'exemple est toujours bienvenu :)
P.
Le 24-08-16 à 10:01, laucsap a écrit :
Le mardi 23 Août 2016 à 14:52 par laucsap :
Bonjour,
pour mon premier contact avec le forum
je vous soumets un sujet qui circule mais dont les solutions
proposées ne m'ont pas permis de résoudre mon projet
(sans doute à cause de mon ignorance)
des propositions en VBA ou en formules me conviennent
un grand merci par avance de vous intéresser à mon sujet
j'ai un fichier 2 colonnes
Col A (Noms 12000 lignes) col B (10 Critères répartis sur les
12000 lignes)
exemple:
Liste actuelle Objectif Tableau (Valeur 0 si pas de critère)
ColA ColB colC colD colE colF colG colH colI colJ colK colL colM
Arthur x1 Arthur x1 x2 x3 0 0 0 x7

0 x9 0
Arthur x2 Raoul 0 x2 0 0 x5 x6 0
0
0 0
Arthur x3 Chloé x1 0 0 0 0 0
x7 0 x9 x10
Arthur x7
Arthur x9
Raoul x2
Raoul x5
Raoul x6
Chloé x1
Chloé x7
Chloé x8
Chloé x9
Chloé x10
Bonjour Isabelle
merci pour ta réponse
qui fonctionne mais uniquement pour la dernière ligne de chaque nom
Bonjour Patrick
ci-joint le lien pour le fichier
ci-joint le lien Cjoint
http://www.cjoint.com/c/FHylrXDlkS4
Avatar
MichD
Bonjour,
Voir ton fichier : http://www.cjoint.com/c/FHyu1FrfJoI
Attention lorsque tu soumets un fichier exemple.
En B12, tu avais une erreur, tu n'avais pas écrit "XXZ" mais "XYZ".
Ça complique quelque peu l'écriture d'une macro lorsqu'il y a présence
d'erreur.
MichD