Discussion :

[SpcCwb]

Bonjour,

Voilà près de 5 ans que je n'avais plus toucher VBA et me revoilà pommé comme jamais..

Comme le titre l'indique, j'aimerai transposer les valeurs d'un tableau de plusieurs lignes sur 1 seule ligne.

Voilà mon tableau d'origine:


En fonction du poste (Colonne A), plusieurs éléments peuvent être cocher (colonne B à AN).

Via un système de CheckBox, l'utilisateur va cocher les différents éléments sur lesquels un salarié peut être amené à travailler. Puis l'utilisateur va synthétiser tous ces éléments sur une seule ligne dans le deuxième tableau que voici:


Au début j'avais pensé faire dans la simplicité et faire un simple copier coller de chaque ligne du premier tableau sur le second, puis je me suis dit que c'était très con puisqu'à chaque collage j'allais perdre les ce qui avait été collé précédemment.

Donc j'ai pensé à faire un système de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For each c in sheets("Database").Range("B2:AN2")
if c.value="X" then
sheets("Récap. Equipe").select
for i =....

Et c'est là où rien ne va plus.

Je ne sais pas comment dire à VBA que
si dans le premier tableau, la case B2 = X, alors dans le deuxième tableau Q12 = X
si dans le premier tableau, la case C2 = "", alors dans le deuxième tableau H12 = ""
si dans le premier tableau, la case D2 = X, alors dans le deuxième tableau I12 = X
et cetera

Je ne sais pas si je suis clair. Je vous joint mon tableau au cas où, tout se passe dans un userform au fait!

Merci d'avance à ceux qui pourront m'aiderProjet.xlsm

[EricDgn]

Il faudrait déplacer cette question dans le forum Excel !
A part cela, la solution doit consister à boucler sur les n° de colonnes, du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set sh1 = Sheets("Database")
Set sh2 = Sheets("Feuille2")
For kc = 2 To 40
   sh2.Cells(kR2, kc1 + 16) = sh1.Cells(kR1, kc1)    '--- kR1, kR2 = n° de ligne dans sh1, sh2
Next kc

Bonne continuation.

[SpcCwb]

Bonjour Eric,

Merci pour ta réponse, je me suis débrouiller autrement. J'ai fait quelque chose de moche et long mais ça fonctionne.

Merci encore.

Bonne continuation à toi