Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

TRANSPOSER PLUSIEURS COLONNES SUR UNE SEULE LIGNE en VBA

  • Initiateur de la discussion Initiateur de la discussion fluck78
  • 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 !

F

fluck78

Guest
Bonjour à tous ,

JE cherche en vain à transposer les données de plusieurs colonnes (3) sur une seule et même ligne avec une macro .
J'ai réussi à enregistrer une macro qui réalise cette opération mais sans boucle ni variable ce qui est embêtant car lenombre de lignes varie selon les cas.
Je suis sûr qu'il est possible de faire une boucle avec des variables pour réaliser cela mais je n'y arrive pas.
Pourriez-vous m'aider svp ?

je joint à ce message un exemple avec la macro que j'ai réalisé.

Merci d'avance

fluck78
 

Pièces jointes

Re : TRANSPOSER PLUSIEURS COLONNES SUR UNE SEULE LIGNE en VBA

Bonjour fluck78,
Une prosition en une boucle 😀
VB:
Sub transposercolonneslignes_2()
With Sheets("EXEMPLE")
    For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
        .Cells(i, 2).Resize(1, 3).Copy .Cells(21, .Columns.Count).End(xlToLeft).Offset(0, 1)
    Next i
End With
End Sub
Cordialement
 
Re : TRANSPOSER PLUSIEURS COLONNES SUR UNE SEULE LIGNE en VBA

Bonsoir fluck78, salut Efgé,

Par formule en B23 à tirer vers la droite :

Code:
=INDEX(DECALER($B2:$D2;ENT((COLONNES($B:B)-1)/3););MOD(COLONNES($B:B)-1;3)+1)
Bien sûr ça ne copie pas les couleurs.

A+
 
Re : TRANSPOSER PLUSIEURS COLONNES SUR UNE SEULE LIGNE en VBA

Bonjour à tous et merci pour votre aide précieuse.

j'ai retenue la solution VBA de efgé mais c'est toujours intéressant d'avoir plusieurs solutions (VBA et formule excel) .

Encore merci à bientôt

Fluck78
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
183
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…