XL 2019 VBA Une ligne vers plusieurs colonnes

Créer une discussion
Répondre

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 !

S'inscrire
S

Sylveo

XLDnaute Nouveau
Bonjour à tous,

Je cherche à réaliser un code VBA qui me permet de couper une plage de données vers une seule ligne et inversement.
J'ai déjà un code qui marche bien, mais je souhaiterais qu'il soit sur une plage fixe.
Et il marche malheureusement que dans le sens "plages vers une ligne".

Je ne sais pas comment coder ça en peu de ligne. J'y arrive, mais cellule par cellule.

Si l'un de vous connait le code pour cette manipulation, je suis plus que preneur.

Merci d'avance.
Sylveo.
 

Pièces jointes

Trier par date Trier par votes
Bonjour,
Testez le code ci-dessous :
VB: 
Sub ConvertRangeToGroupOfColumns()

Dim Range1 As Range, Range2 As Range, Rng As Range
Dim RowIndex As Integer, Nc As Integer, G As Variant, I As Integer

    xTitleId = "Xl-Downloads"
    Set Range1 = Application.Selection
    Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
    Nc = Range1.Cells(Range1.Cells.Count).End(xlToLeft).Column
    Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
    G = Application.InputBox("Columns by group :", xTitleId, Nc, Type:=1)
    RowIndex = 0
    Application.ScreenUpdating = False
        For Each Rng In Range1.Rows
            For I = 1 To Nc Step G
                Rng.Cells(I).Resize(, G).Copy
                Range2.Offset(RowIndex).PasteSpecial Paste:=xlPasteAll ' , Transpose:=True
                RowIndex = RowIndex + 1
            Next
        Next
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Bonjour,
En utilisant Power Query (en natif dans ta version d'Excel) pour passer d'une ligne à un tableau.
Le code :

PowerQuery: 
let
    Source = Excel.CurrentWorkbook(){[Name="T_Data"]}[Content],
    Transpose = Table.Transpose(Source),
    Table = Table.FromRows(List.Split(Transpose[Column1],5), {"Descriptif", "Prix U", "Qté","Prix HT","TVA"})
in
    Table

Pour mettre à jour, clic droit dans la requête, "Actualiser"
Bonne journée
 

Pièces jointes

Vote positif 0 Vote négatif
Hello @fanch55 🙂
Une autre logique, très peu différente

PowerQuery: 
let
    Source = Excel.CurrentWorkbook(){[Name="T_Data2"]}[Content],
    AjtIdx = Table.AddIndexColumn(Source, "Index", 1, 1, Int64.Type),
    UnPivot = Table.UnpivotOtherColumns(AjtIdx, {"Index"}, "Attribut", "Valeur"),
    Table = Table.FromRows(List.Split(UnPivot[Valeur],5), {"Descriptif", "Prix U", "Qté","Prix HT","TVA"})
in
    Table

Edit : version également valable pour une seule ligne
 

Pièces jointes

Vote positif 0 Vote négatif
fanch55 à dit:
Oki, pas mal ...
Et si tu dois conserver le type de cellules et de couleurs ?
Cliquez pour agrandir...
Hi,
C'est pour faire un comparatif avec VBA? Je ne rentrerai pas dans ce jeu, désolé...
Et pour ma part, j'utilise les Tableaux Structurés, donc couleurs et autres éléments de décorations....
A savoir que le format des TS peut être modifié, que les MEFC fonctionnent parfaitement dans les requêtes une fois insérées.
Bonne journée
 
Vote positif 0 Vote négatif
Hi,
C'est juste pour savoir ce qu'on peut faire facilement ou pas avec Pq,
et surtout pour la souplesse de maj sans avoir à modifier le code de Pq .
Je n'ai pas de à priori, que de la curiosité intéressée .
C'est bien évidemment pour faire un comparatif avec Vba,
si Pq est mieux et facilement modulable, je suis pour ce qui est le plus rapide ... 😉
 
Vote positif 0 Vote négatif
Hi,
Pas de soucis 🙂
Question rapidité, je ne pense pas que PQ soit le plus véloce. (du moins, s'il y a peu de données à traiter)
Cependant, comme son nom l'indique, c'est bien pour manipuler des données, i-e importer, transformer, restituer.
Dire que c'est mieux, je ne pourrais le dire, mais perso, j'ai pratiquement cessé le VBA, sauf pour les mises à jour et autres petits trucs, qui facilitent la vie.
Chacun ses préférences, le principal, c'est le résultat, et c'est tout ce qui compte.
 
Vote positif 0 Vote négatif
fanch55 à dit:
Bonjour,
Testez le code ci-dessous :
VB: 
Sub ConvertRangeToGroupOfColumns()

Dim Range1 As Range, Range2 As Range, Rng As Range
Dim RowIndex As Integer, Nc As Integer, G As Variant, I As Integer

    xTitleId = "Xl-Downloads"
    Set Range1 = Application.Selection
    Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
    Nc = Range1.Cells(Range1.Cells.Count).End(xlToLeft).Column
    Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
    G = Application.InputBox("Columns by group :", xTitleId, Nc, Type:=1)
    RowIndex = 0
    Application.ScreenUpdating = False
        For Each Rng In Range1.Rows
            For I = 1 To Nc Step G
                Rng.Cells(I).Resize(, G).Copy
                Range2.Offset(RowIndex).PasteSpecial Paste:=xlPasteAll ' , Transpose:=True
                RowIndex = RowIndex + 1
            Next
        Next
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Bonjour,


Déjà, merci beaucoup pour votre aide.

Cependant, ce code reproduit la même ligne, seul le nombre de colonne reproduit change selon la valeur qu'on choisi.

Je n'arrive pas à lui faire mettre la suite de la ligne source vers la ligne suivante.

Merci d'avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Cousinhub à dit:
Bonjour,
En utilisant Power Query (en natif dans ta version d'Excel) pour passer d'une ligne à un tableau.
Le code :

PowerQuery: 
let
    Source = Excel.CurrentWorkbook(){[Name="T_Data"]}[Content],
    Transpose = Table.Transpose(Source),
    Table = Table.FromRows(List.Split(Transpose[Column1],5), {"Descriptif", "Prix U", "Qté","Prix HT","TVA"})
in
    Table

Pour mettre à jour, clic droit dans la requête, "Actualiser"
Bonne journée
Cliquez pour agrandir...
Bonjour,

Cela semble effectivement marcher, mais je souhaite rester en VBA sans faire appel au cloud.

Merci d'avance.
 
Vote positif 0 Vote négatif
Sylveo à dit:
Bonjour,
Déjà, merci beaucoup pour votre aide.
Cependant, ce code reproduit la même ligne, seul le nombre de colonne reproduit change selon la valeur qu'on choisi.
Je n'arrive pas à lui faire mettre la suite de la ligne source vers la ligne suivante.
Merci d'avance.
Cliquez pour agrandir...
Salut, une petite "bévue" dans le code pour ne pas traiter une ligne entière sans raison.
Correction:
VB: 
Sub Lignecolonne()

Dim Range1 As Range, Range2 As Range, Rng As Range
Dim RowIndex As Integer, Nc As Integer, G As Variant, I As Integer

    xTitleId = "Xl-Downloads"
    On Error Resume Next
        Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Selection.Address, Type:=8)
    On Error GoTo 0
    If Not Range1 Is Nothing Then
        If Range1.Cells(Range1.Columns.Count) = "" Then
            Nc = Range1.Cells(Range1.Columns.Count).End(xlToLeft).Column
        Else
            Nc = Range1.Columns.Count
        End If
        Set Range2 = Application.InputBox("Convert to (single cell) :", xTitleId, Type:=8)
        G = Application.InputBox("Columns by group :", xTitleId, Nc, Type:=1)
        RowIndex = 0
        Application.ScreenUpdating = False
            For Each Rng In Range1.Rows
                For I = 1 To Nc Step G
                    Rng.Cells(I).Resize(, G).Copy
                    Range2.Offset(RowIndex).PasteSpecial Paste:=xlPasteAll ' , Transpose:=True
                    RowIndex = RowIndex + 1
                Next
            Next
            Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End If
End Sub
 
Vote positif 0 Vote négatif
Merci beaucoup, ça marche parfaitement et dans les deux sens.

Je l'ai même automatisé sur une plage donnée fixe :

Code: 
Sub Lignecolonne()

Dim Range1 As Range, Range2 As Range, Rng As Range
Dim RowIndex As Integer, Nc As Integer, G As Variant, I As Integer

    xTitleId = "Xl-Downloads"
    On Error Resume Next
        Set Range1 = Range("A2:T2")
    On Error GoTo 0
    If Not Range1 Is Nothing Then
        If Range1.Cells(Range1.Columns.Count) = "" Then
            Nc = Range1.Cells(Range1.Columns.Count).End(xlToLeft).Column
        Else
            Nc = Range1.Columns.Count
        End If
        Set Range2 = Sheets("Resultat").Range("A2")
        G = 5
        RowIndex = 0
        Application.ScreenUpdating = False
            For Each Rng In Range1.Rows
                For I = 1 To Nc Step G
                    Rng.Cells(I).Resize(, G).Copy
                    Range2.Offset(RowIndex).PasteSpecial Paste:=xlPasteAll ' , Transpose:=True
                    RowIndex = RowIndex + 1
                Next
            Next
            Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End If
   Sheets("Resultat").Activate
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Sylveo à dit:
Bonjour,

Cela semble effectivement marcher, mais je souhaite rester en VBA sans faire appel au cloud.

Merci d'avance.
Cliquez pour agrandir...
Bonsoir,
Sauf erreur de ma part, (ce dont j'en suis sûr), je n'ai jamais fait référence à un quelconque "nuage".....
Power Query est juste une fonctionnalité installée en natif dans ta version, tout comme tout plein d'autres, si peu utilisées...
Bonne continuation
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Z
  • Question Question
Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG
Réponses
4
Affichages
87
patricktoulon
patricktoulon
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
152
escudo
E
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
chris6999
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
208
chris6999
chris6999
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
701
Chris Linefield
C
A
  • Question Question
XL 2019 Filtre avancé + Colonnes spécifiques (VBA)
Réponses
9
Affichages
723
Amilo
A
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
561
Corentin26270
C
D
  • Question Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
215
duduche62
D
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
527
Julien_B
J
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
485
GClaire
G
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
487
Nel'
N
PatFr38
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
818
PatFr38
PatFr38
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
643
salma_hayek
S
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
343
rh.finances
R
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
574
sambio2
S
B
  • Question Question
Microsoft 365 Code VBA pour effectuer une recherche aléatoire sur plusieurs colonnes
Réponses
8
Affichages
565
Dranreb
Dranreb
E
  • Question Question
XL 2021 Identifier de manières fiables les colonnes d'un fichier Excel pour une macro VBA
Réponses
2
Affichages
438
excelentille
E
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
2 K
Hutchy33
H
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
822
eCHO
E
J
  • Question Question
XL 2010 "Figer" une cellule lors de l'incrémentation d'une ligne
Réponses
3
Affichages
651
jigour
J
Retour