Discussion :

[madex]

Bonjour,

je suis débutant en excel et je veux exploiter une feuille de calcul mais je suis bloqué
mon soucis c'est que je veux lister les données d'une ligne en colonnes, je m'explique
j'ai un tableau comme suit :

Nom1 valeur 1 valeur 2 valeur 3
Nom2 valeur 1 valeur 2 valeur 3

je veux le transformer en tableau suivant :

Nom 1 Valeur 1
Nom 1 Valeur 2
Nom 1 Valeur 3
Nom 2 Valeur 1
Nom 2 Valeur 2
Nom 2 Valeur 3

merci d'avance pour votre aide

[EngueEngue]

Toto le fait très bien:

Dans cet exemple ton tableau commence en A1 de la Feuil1, à adapter

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 toto()
    Dim i As Long, k As Long, j As Long
    k = 1
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            For j = 2 To .Cells(i, .Columns.Count).End(xlToLeft).Column
                Sheets("Feuil2").Cells(k, 1) = .Cells(i, 1)
                Sheets("Feuil2").Cells(k, 2) = .Cells(i, j)
                k = k + 1
            Next j
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

[Marc-L]

Bonjour,

possible directement avec la fonction TRANSPOSE de feuille de calculs …

[EngueEngue]

Ah bon ? Illumine moi chef!

[Marc-L]

Ben oui EngueEngue !

Exemple pour inverser le tableau A1:D2 vers F1:G4 :

[F1:G4] = Application.Transpose([A1:D2]) …

TRANSPOSE est une fonction interne de feuille de calculs et je l'utilise souvent dans mes codes
comme ce jour dans cette discussion …

Bon à savoir tout de même, selon la version d'Excel, peut-être limitée en taille en VBA …

[EngueEngue]

Soit (A) 2 lignes, 4 colonnes
Nom1 valeur 1 valeur 2 valeur 3
Nom2 valeur 1 valeur 2 valeur 3

Soit (B) 6 lignes 2 colonnes
Nom 1 Valeur 1
Nom 1 Valeur 2
Nom 1 Valeur 3
Nom 2 Valeur 1
Nom 2 Valeur 2
Nom 2 Valeur 3

t(A)<>(B)

[Marc-L]

Ah purée ! J'ai la tête dans le … sac ‼

Désolé !

__________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !

[madex]

merci pour vos réponses rapides
je vais les tester et je revient vers vous en cas de besoin