Je souhaite convertir une matrice carr=E9e=20
Origine/Destination en une matrice en colonne.
La case A1 est vide. Mes intitul=E9s de colonne d=E9butent en=20
B1 et ceux en ligne en A2.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Marcos,
en supposant que le tableau résultat doit être placer sur la feuille 2 :
Sub Macro1() x = 1 With Sheets("Feuil1") For Each c In .Range("B2:D" & .Range("B65536").End(xlUp).Row) Sheets("Feuil2").Range("A" & x) = .Cells(c.Row, 1) & .Cells(1, c.Column) & c x = x + 1 Next End With End Sub
isabelle
Je souhaite convertir une matrice carrée Origine/Destination en une matrice en colonne. La case A1 est vide. Mes intitulés de colonne débutent en B1 et ceux en ligne en A2.
Tableau à transformer :
_ A B C A 1 2 3 B 3 9 5 C 2 4 2
Je souhaite obtenir
AA 1 AB 2 AC 3 BA 2 BB 9 BC 4 Etc...
Merci pour vos réponses
bonjour Marcos,
en supposant que le tableau résultat doit être placer sur la feuille 2 :
Sub Macro1()
x = 1
With Sheets("Feuil1")
For Each c In .Range("B2:D" & .Range("B65536").End(xlUp).Row)
Sheets("Feuil2").Range("A" & x) = .Cells(c.Row, 1) & .Cells(1, c.Column)
& c
x = x + 1
Next
End With
End Sub
isabelle
Je souhaite convertir une matrice carrée
Origine/Destination en une matrice en colonne.
La case A1 est vide. Mes intitulés de colonne débutent en
B1 et ceux en ligne en A2.
en supposant que le tableau résultat doit être placer sur la feuille 2 :
Sub Macro1() x = 1 With Sheets("Feuil1") For Each c In .Range("B2:D" & .Range("B65536").End(xlUp).Row) Sheets("Feuil2").Range("A" & x) = .Cells(c.Row, 1) & .Cells(1, c.Column) & c x = x + 1 Next End With End Sub
isabelle
Je souhaite convertir une matrice carrée Origine/Destination en une matrice en colonne. La case A1 est vide. Mes intitulés de colonne débutent en B1 et ceux en ligne en A2.
Tableau à transformer :
_ A B C A 1 2 3 B 3 9 5 C 2 4 2
Je souhaite obtenir
AA 1 AB 2 AC 3 BA 2 BB 9 BC 4 Etc...
Merci pour vos réponses
1000 fois merci pour votre aide ! MSC.
-----Message d'origine----- bonjour Marcos,
en supposant que le tableau résultat doit être placer sur la feuille 2 :
Sub Macro1() x = 1 With Sheets("Feuil1") For Each c In .Range("B2:D" & .Range("B65536").End (xlUp).Row)