XL 2019 transposer données

  • Initiateur de la discussion Initiateur de la discussion lynyrd
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lynyrd

XLDnaute Impliqué
Bonjour le forum
y a t'il un moyen de transposer en VBA les données pour que se soit plus clair.
Merci.
 

Pièces jointes

Dernière édition:
Bonjour,
Sinon, une proposition Power Query

PowerQuery:
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Majuscule à chaque mot" = Table.TransformColumns(Source,{{"pays", Text.Proper, type text}}),
    #"Lignes groupées" = Table.Group(#"Majuscule à chaque mot", {"pays"}, {{"Villes", each Text.Combine([ville], " - ")}})
in
    #"Lignes groupées"

Bonne journée
 

Pièces jointes

Bonjour à tous 🙂,

Avec des formules matricielles (à valider avec la combinaison des trois touches Ctrl+Maj+Entrée).

En cellule E2, mettre la formule ci-dessous, la valider par Ctrl+Maj+Entrée puis la recopier vers le bas.
VB:
=SIERREUR(INDEX(A:A;PETITE.VALEUR(SIERREUR(SI(EQUIV(A$2:A$99;A$2:A$99;0)=LIGNE(A$2:A$99)-1;LIGNE(A$2:A$99));"");LIGNES($1:1)));"")

En cellule F2, mettre la formule ci-dessous, la valider par Ctrl+Maj+Entrée puis la recopier vers le bas.
VB:
=SI(E2="";"";JOINDRE.TEXTE(" -";VRAI;SI(A$2:A$99=E2;B$2:B$99;"")))

nota 1 : la fonction JOINDRE.TEXTE() est disponible dans Excel 2019.
nota 2 : si besoin, augmenter la valeur 99 (en fonction de la taille max de votre tableau source)

validmatric-png.1169026
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
185
Réponses
7
Affichages
508
Retour