Microsoft 365 [RESOLU] Transposer des données en prenant en compte les cellules vides

sousou

XLDnaute Barbatruc

• 4 Septembre 2019

• #2

Bonjour
Voici un exemple.
Tu sélectionnes les titres et tu lance la macro transpose.
J'ai ajouté si un titre n'existe pas dans la ligne, il est ajouté

 

Pièces jointes

• transpose.xlsm

  14.9 KB · Affichages: 16

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 5 Septembre 2019

• #3

Bonjour le forum, sousou,

Merci sousou pour ta proposition.
Cependant, quand j'exécute la procédure ''transpose'' après avoir sélectionné les titres, les titres se dupliquent sur la ligne 2 à la place des données.
Ce que je souhaite, c'est une transposition verticale des titres et des données. Il ne faut pas transposer les couples Titre/données si la cellule donnée est vide.
Bien cordialement,

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 5 Septembre 2019

• #4

Bonjour
Je ne comprend pas 'les titres se dupliquent sur la ligne 2' peut -tu m'envoyer une copie des résultats

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 5 Septembre 2019

• #5

Bonsoir le forum, sousou
Copie d'écran ci-dessous
Bien cordialement,

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 5 Septembre 2019

• #6

Ben moi ça fait pas çà!! 😉
Je récapitule:
Dans la feuille 1 je sélectionne par exemple:b15:b19
je lance la macro transpose
Voilà ce que ça donne

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 5 Septembre 2019

• #7

Rebonsoir tout le monde, sousou,

Je ne sais pas pourquoi mon résultat est différent mais j'ai l'impression que je me suis mal expliqué.
En fait, de la ligne 5 à la ligne 19, ce sont des exemples. On peut tout effacer.
Si on sélectionne D1:J1 et qu'on applique une transposition il faudrait juste pouvoir désigner la cellule de destination (sans sélectionner une plage) pour qu'elle se fasse en conservant l'ordre initial

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Septembre 2019

• #8

Bonjour
Il semble que j'ai compris l'inverse
regarde maintenant procedure transpose1
le début est initialisé avec la variable debtab dans cet exemple a20

 

Pièces jointes

• transpose.xlsm

  15.1 KB · Affichages: 4

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 6 Septembre 2019

• #9

Bonjour sousou, le forum,

Là, c'est juste parfait !
Merci beaucoup et bonne journée à tous
Ivan

 

Vote positif 0 Vote négatif