Discussion :

[jimlcds]

Bonjour à tous,

Je débute en macro et j'ai une demande bien précise.
J'ai le tableau suivant :

ref	Taille 1	Taille 2	Taille 3	Taile 4
AA	10	20	30	30

Et j'aimerai afficher le résultat suivant dans une seconde feuille :

Ref (AA)	Taille 1 (10)
Ref (AA)	Taille 2 (20)
Ref (AA)	Taille 3 (30)
Ref (AA)	Taille 4 (40)

Et je n'ai absolument aucune de la méthodologie ni de la technique à suivre pour arriver à ce résultat.

Merci d'avance pour vos réponses.

[joe.levrai]

Bonjour,

exemple précis sur ton exemple précis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ioi()
Dim Tabl(), Titre As String, i As Long
Tabl = Feuil1.Cells(1, 1).CurrentRegion.Value  ' adapater le nom de la feuille
Titre = Tabl(1, 1) & " (" & Tabl(2, 1) & ")"
 
    With ThisWorkbook.Worksheets.Add
        For i = LBound(Tabl, 2) + 1 To UBound(Tabl, 2)
            With .Cells(Rows.Count, 1).End(xlUp)(2)
                .Value = Titre
                .Offset(0, 1).Value = Tabl(1, i) & " (" & Tabl(2, i) & ")"
            End With
        Next i
    End With
End Sub

manipulation des tableaux : http://silkyroad.developpez.com/vba/tableaux/

[jimlcds]

Bonjour,

Merci pour cette réponse rapide qui marche à merveille.
J'ai encore quelque modifications à faire pour l'adapter à mon cas mais je pense pouvoir m'en sortir.
Je dois notamment pouvoir le faire sur plusieurs avant transposition ce qui doit être réalisable.

Un immense merci pour votre aide.

[joe.levrai]

Bonjour,

cet exemple est basé sur le fait que tu ne possèdes qu'une ligne

si tu as plusieurs lignes et plusieurs références, voici la généralisation, parmi plusieurs possibilités existantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ioi()
Dim Tabl(), Titre As String, i As Long, j As Long
Tabl = Feuil1.Cells(1, 1).CurrentRegion.Value  ' adapater le nom de la feuille
    With ThisWorkbook.Worksheets.Add
        For j = LBound(Tabl, 1) + 1 To UBound(Tabl, 1)
            Titre = Tabl(1, 1) & " (" & Tabl(j, 1) & ")"
            For i = LBound(Tabl, 2) + 1 To UBound(Tabl, 2)
                With .Cells(Rows.Count, 1).End(xlUp)(2)
                    .Value = Titre
                    .Offset(0, 1).Value = Tabl(1, i) & " (" & Tabl(j, i) & ")"
                End With
            Next i
        Next j
    End With
End Sub

[jimlcds]

Re bonjour,

Une fois de plus merci pour votre aide qui s'avère une fois de plus très utile.

Lorsqu'on lance la macro celle-ci se met à jour automatiquement dans une nouvelle feuille. Est ce qu'il serait possible que cela se mette à jour à chaque fois dans la même feuille ? ( Je suis désolé d'être plein de questions mais je suis pas mal dépassé sur le sujet ).

Encore merci.

Peut être qu'avec l'exemple suivant cela sera plus parlant !!

La colonne A = Id est ma référence et les colonne à partir de AM = Taille 1 sont les valeurs de taille qui m'interesse (cf photos ci dessous)


J'aimerais que le résultat final ressemble à la photo ci-dessous. (les valeurs ne sont pas les mêmes car c'est un vieux fichiers rentré à la main). La colonne B n'est pas à prendre en considération.
Les :1, :2,... qui suivent les valeurs de taille représente l'ordre des différentes tailles. Le ":1" représente la taille 1 et ainsi de suite, cette données doit apparaitre pour une raison d'affichage sur un autre logiciel, mais je peux créer une formule qui permet de l'ajouter si c'est infaisable en VBA. (là on dépasse de loin mes faibles compétences). A noteer que chaque produits ne dispose pas forcément du même nombre de taille ( 1 produit peut avoir une taille unique ou bien 10 tailles différentes).
J’espère que ce que je dit est compréhensible et pas totalement irréalisable, cela m'éviterait des journées de copie de valeurs et les erreurs de copie qui en découlent .



Une fois de plus merci d'avance pour cette ultra-précieuse

[joe.levrai]

Par delà les explications que sont soignées, ce qui est rare en ce moment alors il faut le souligner, pourrais-tu joindre un mini fichier exemple, avec une feuille contenant des fausses données brutes et ces mêmes fausses données remises en forme, afin de mieux comprendre la conception et le positionnement des données ?

car rien qu'avec ta copie écran, voyant que certaines colonnes entre le début de la feuille et la zone des valeurs à reprendre sont totalement vides ... l'utilisation d'un CurrentRegion dans ma proposition ne semble pas appropriée.
alors autant avoir une vraie base