Transposition d'un tableau en un autre suivant contenu

Bonjour,

Me revoilà car je m'en sors pas avec un tableau...

J'ai un tableau initiale dans onglet "Listing client (2) que je vais appeler "TabOri" qui contient plusieurs lignes (Normal jusque là ) mais qui possèdent en colonnes AM AN et AO des valeurs. J'ai créé ce tableau simplement à partir de l'onglet "Listing client" que j'ai converti en tableau.

J'aimerais que lorsque je clique sur le bouton "TRANSPOSE", il me crée un nouveau tableau que je vais appeler "TabGenere" dans l'onglet "Listing client Généré" mais qui ajouterait des lignes en fonction des élements en AN et AO. Cela en recopiant toutes les autres valeurs des autres colonnes de cette même ligne... Dur dur de m'expliquer lol.

Egalement ajouter dans "TabGenere" une colonne où figurait le commentaire des cellules de la colonne C quand il y en a une.

J'ajoute mon fichier exemple où j'ai ajouté des commentaires afin de m'expliquer.

J'espère être assez clair Si pas je suis là avec ma touche "F5" sur le forum en espérant un courageux pour m'aider car le VBA et moi comme je l'ai déjà dit c'est pas 2 mais 100000....

Merci d'avance pour votre aide.

Bien à vous,

Wise3.

Bonjour,

à tester,

Sub test()
Sheets("Listing client (2)").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Listing client Généré"
rw = Cells(Rows.Count, "AM").End(xlUp).Row + 1
    For Each c In Range("AN3:AO" & rw - 1)
    x = c
     If c <> "" Then
       Rows(c.Row).Copy Rows(rw)
       Cells(rw, "AM") = c
       On Error Resume Next
       Cells(rw, "BA") = Cells(c.Row, "C").Comment.Text
       rw = Cells(Rows.Count, "AM").End(xlUp).Row + 1
     End If
    Next
 Columns("AN:AO").Delete Shift:=xlToLeft
End Sub

Bonsoir sabV,

merci de vous pencher sur mon problème

Déjà BRAVO pour ce bon début . J'adorais savoir maîtriser ce code

Même les commentaires ont été ajouté dans la dernière colonne

Les lignes ajoutées sont cependant ajoutées à la fin et en dehors du tableau. Serait-il possible de conserver l'ordre d'ajout juste en dessous de celles correspondantes?

Egalement faire en sorte que les commentaires des lignes "existantes" soient ajoutés en dernière colonne?

Merci déjà en tout cas, j'ai bon espoir pour la suite MErci Merci MErci

Bonjour,

voici la modification,

Sub test()
Sheets("Listing client (2)").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Listing client Généré"
ActiveSheet.ListObjects(1).Unlist
rw = Cells(Rows.Count, "AM").End(xlUp).Row + 1
    For Each c In Range("AN3:AO" & rw - 1)
      On Error Resume Next
      Cells(c.Row, "BA") = Cells(c.Row, "C").Comment.Text
      If Err.Number <> 0 Then Err.Clear
      Cells(c.Row, "BB") = c.Row

      If c <> "" Then
        Rows(c.Row).Copy Rows(rw)
        Cells(rw, "AM") = c
        rw = Cells(Rows.Count, "AM").End(xlUp).Row + 1
      End If
    Next
 Range("A3:BB" & rw).Sort key1:=Range("BB3"), order1:=xlAscending
 Columns("AN:AO").Delete Shift:=xlToLeft
End Sub

sabV,

Génial C'est ce que je voulais

Je n'ai plus qu'à sélectionner le tout, recréer le tableau et lui donner le un nom.

MERCI BEAUCOUP

PS: Vous avez sauvé ma touche F5 et moi-même surtout pour continuer mon boulot plus facilement Merci.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!