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

ivan27

XLDnaute Occasionnel
Bonjour à tous,

En pièce jointe un fichier avec en ligne 1 des titres de colonnes et en ligne 2 des valeurs.
Je souhaite transposer l'ensemble titre / valeur en colonne mais uniquement lorsque les valeurs existes.
Merci d'avance pour votre aide.
Ivan
 

Fichiers joints

sousou

XLDnaute Accro
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é
 

Fichiers joints

ivan27

XLDnaute Occasionnel
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,
 

sousou

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

sousou

XLDnaute Accro
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
Sans titre 1.jpg
 

ivan27

XLDnaute Occasionnel
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
2019-09-05_18h26_49.png
 

sousou

XLDnaute Accro
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
 

Fichiers joints

Discussions similaires


Haut Bas