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

[ivan27]

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

 

[sousou]

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é

 

[ivan27]

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]

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

 

[ivan27]

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

 

[sousou]

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

 

[ivan27]

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

 

[sousou]

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

 

[ivan27]

Bonjour sousou, le forum,

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