XL 2016 Transposition des lignes en une seule colonne avec VBA

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

Yjjou

XLDnaute Nouveau
Bonjour, je suis débutant en VBA. J'ai un tableau de 90x10 et j'aimerais le regrouper en une seule colonne d'où les lignes deviennent des colonnes respectivement dès la première ligne..de facon à avoir un tableau 900x1.
PS: Je vous ai joint mon fichier excel.
Merci d'avance.
 

Pièces jointes

Solution
Bonsoir @Yjjou et bienvenur sur XLD 🙂

Placez vous sur la feuille avec les données à redistribuer puis exécuter la macro EnUneCol().
Le résultat est mis en colonne G

VB:
Sub EnUneCol()
Dim x, s
   Application.ScreenUpdating = False
   Columns("g:g").Clear: Range("G1") = "Résultat"
   For Each x In Range("a1").Resize(Cells(Rows.Count, "a").End(xlUp).Row).Cells
      If x <> "" Then
         s = Split(Application.Trim(x))
         Cells(Rows.Count, "g").End(xlUp).Offset(1).Resize(UBound(s) + 1) = Application.Transpose(s)
      End If
   Next x
End Sub
Bonsoir @Yjjou et bienvenur sur XLD 🙂

Placez vous sur la feuille avec les données à redistribuer puis exécuter la macro EnUneCol().
Le résultat est mis en colonne G

VB:
Sub EnUneCol()
Dim x, s
   Application.ScreenUpdating = False
   Columns("g:g").Clear: Range("G1") = "Résultat"
   For Each x In Range("a1").Resize(Cells(Rows.Count, "a").End(xlUp).Row).Cells
      If x <> "" Then
         s = Split(Application.Trim(x))
         Cells(Rows.Count, "g").End(xlUp).Offset(1).Resize(UBound(s) + 1) = Application.Transpose(s)
      End If
   Next x
End Sub
 

Pièces jointes

Dernière édition:
- 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
17
Affichages
305
Réponses
10
Affichages
520
Retour