Discussion :

[MarieSophie7]

Bonjour!

Je suis novice pour tout ce qui concerne Excel et j'aurais besoin d'aide pour une réorganisation de tableau.

Voici mon tableau actuel:

1 2 3 4 5 etc.

NOM-A x x x x x

NOM-B x x x x x

NOM-C x x x x x

etc

(Ce n'est pas très clair avec la mise en page, mais les chiffres sont des colonnes et les «NOMS» sont des rangées) Il ne devrait pas y avoir de chiffres directement au-dessus de la colonne «NOMS»)

J'aurais besoin de changer le tableau pour ceci:


1 NOM-A x
1 NOM-B x
1 NOM-C x
2 NOM-A x
2 NOM-B x
2 NOM-C x
3 NOM-A x
3 NOM-B x
3 NOM-C x
4, etc.

Cela est-il possible sans VBA, selon vous? Si cela n'est possible qu'avec VBA, y a-t-il un code précis à utiliser?

Merci énormément pour votre aide !

Marie Sophie

[letudiant68]

Bonjour, je ne sais pas comment faire sans VBA (à part tout faire à la main), donc voici un code VBA répondant à tes besoins :

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
16
Option Explicit
 
Sub Test()
 
    Dim ligne As Range, colonne As Range, debut As Range
    Set debut = Range("K1")
    For Each colonne In Range("B1:F1")
        For Each ligne In Range("A2:A4")
            debut = colonne
            debut.Offset(, 1) = ligne
            debut.Offset(, 2) = Cells(ligne.Row, colonne.Column)
            Set debut = debut.Offset(1)
        Next ligne
    Next colonne
 
End Sub

Tu dois juste change les coordonnées des Range (lignes 6, 7 et 8) pour qu'ils correspondent à ton tableau :
- ligne 6 tu mets l'endroit où tu voudrais que ton nouveau tableau commence
- ligne 7 tu mets la plage des colonnes de ton tableau actuel (correspond dans ton exemple aux chiffre 1,2,3,4,5)
- ligne 8 tu mets la plage des lignes de ton tableau actuel (correspond dans ton exemple aux NOM-A, NOM-B, NOM-C)

[Menhir]

Formule dans la première colonne de ta feuille résultat :

Code :

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

=INDEX(Feuil1!L2C1:L5C4;MOD(LIGNE(LC)-1;4)+1;1)

Formule dans la première colonne de ta feuille résultat :

Code :

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

=INDEX(Feuil1!L2C1:L5C4;MOD(LIGNE(LC)-1;4)+1;QUOTIENT(LIGNE(LC)-1;4)+2)

A recopier dans autant de lignes que nécessaire pour avoir toutes les données.

Bien sûr, ne connaissance pas la taille et l'emplacement de ton tableau ni le nom de la feuille source, il va falloir que tu adaptes ces formules à ton cas.
En particulier :

• changer les "4" par le nombre de "NOM" que tu as,
• modifier les +1 ou +2 en fonction de la position de ton tableau résultat
• modifier le "L2C1:L5C4" en fonction de la position de ton tableau source (sans y inclure la zone d'entête "1 2 3 4 5".