Discussion :

[NONOSSONV]

Bonjour mes chers Amis,
j'ai une page Excel contient centaine des données dans même colonne A,
je demande une macro qu'elle me permet de couper coller les données de A1 au B1 et de A2 au C1, A3 au D1, jusqu'a A11 au L11, quand elle trouve A12 elle colle les données au B2 et elle refait le travail a nouveau,
1-11 au B1 au L1
12-22 au B2 au L2
...
Merci infiniment Mes chers Amis

[Philippe Tulliez]

Bonjour,
Ce que tu décris est une transposition de données.
Manuellement cela revient à faire une sélection des cellules A1:A5, effectuer une copie de celles-ci, et ensuite de faire un CollageSpecial - Transposé sur la cellule B1 et ensuite d'effacer les cellules que l'on a copiées car cela fonctionne pour une copie mais pas avec un Couper

En vba cela se traduit par

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Transpose()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1:A5")
 With rng
 .Copy
 .Offset(columnoffset:=1).Resize(1, 1).PasteSpecial Transpose:=True
 .ClearContents
 End With
 Set rng = Nothing
End Sub

[NONOSSONV]

Merci, mais ça la moitie de travail, il faut a chaque fois qu'elle termine avec A1:A5 elle passe a A6:A10 et la pose a la deuxième ligne B, vous pouvez les coller sur une autre feuille si ca vous facilite la taches

[joe.levrai]

Bonjour,

donc Philippe n'ayant fait que "la moitié du travail", ça veut dire que tu es venu chercher du code sans t'y investir ?

le voilà ton code, s'il ne convient pas je passe la main à d'autres, j'ai fait "ma partie de travail"

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
17
18
19
20
21
22
23
Sub Transpose()
Dim rng As Range
Dim Fin As Long
Dim i As Long
 
 
With ThisWorkbook.Worksheets("Feuil1")
    ' dernière ligne de la plage en colonne A
    Fin = .Cells(1, 1).End(xlDown).Row
 
    ' pour chaque lot de 11 ligne dans la colonne A
    For i = 1 To Fin Step 11
        Set rng = .Range(.Cells(i, 1), .Cells(i + 10, 1))
        ' on la copie
        rng.Copy
        ' on la transpose de la colonne B à L
        .Cells(1 + ((i - 1) / 11), 2).PasteSpecial Transpose:=True
        ' on efface les données de la colonne A
        rng.ClearContents
        Set rng = Nothing
    Next i
End With
End Sub

[Philippe Tulliez]

Bonjour Joe,

donc Philippe n'ayant fait que "la moitié du travail", ça veut dire que tu es venu chercher du code sans t'y investir ?

C'est vrai qu'il y a des moments on a envie de taper.

@ NONOSSONV

Merci, mais ça la moitie de travail, il faut a chaque fois qu'elle termine avec A1:A5

J'espère que dans ton service à la clientèle tu fais les choses correctement et avec professionnalisme
La prochaine fois, je ferai le travail complet et documenté et je t'enverrai la facture car sans doute ne sais-tu pas qu'ici nous sommes des bénévoles qui aidons les autres.

[clementmarcotte]

Merci, mais ça la moitie de travail, il faut a chaque fois qu'elle termine avec A1:A5 elle passe a A6:A10 et la pose a la deuxième ligne B, vous pouvez les coller sur une autre feuille si ca vous facilite la taches

Par chez-nous, un "nono" c'est, disons, au mieux, un individu à la compétence douteuse.

Ceci dit, tu peux toujours commencer par aller voir là.

Et ensuite, aller voir là.