Transposer des valeurs
Bonjour,
Mon sujet est simple mais mes connaissances sont limitées.
J'ai 40 valeurs en colonne D (D1:D40) que j'aimerai transposer en ligne par série de 10 (donc sur 4 lignes différentes) sur la même feuille (F1:O1; F2:O2; F3:O3; F4:O4).
Merci pour votre aide.
Bonjour,
via une formule à mettre en F1 et à tirer vers le bas et vers la droite
=INDIRECT("D" & (LIGNE()-1)*10+COLONNE(A1))Bonjour,
PAr code, tu peux essayer ceci :
Sub test()
'Macro dan
Dim dlg As Integer, k As Integer, j As Integer
Application.ScreenUpdating = False
dlg = Range("D" & Rows.Count).End(xlUp).Row
k = Range("F" & Rows.Count).End(xlUp).Row + 1
For j = 1 To dlg Step 10
Range("D" & j & ":D" & j + 9).Copy
Range("F" & k).PasteSpecial Paste:=xlPasteValues, Transpose:=True
k = k + 1
Next
Application.CutCopyMode = False
End SubCode à placer dans un module en VBA
Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse
Crdlt
Congratulations DAN !!!
MERCI !!!
Oups..
je m'aperçcois que je dois passer les valeurs à copier dans sur une autre feuille..
Soit copier/transposer de la feuille "Scan_OF" colonne "D" vers la feuille "Rapport" cellule "A11".
Merci encore une fois.
bah..
Je vais rajouter au code un coper/coller vers la bonne feuille !
Re,
Guilld a écrit :je m'aperçcois que je dois passer les valeurs à copier dans sur une autre feuille..
Soit copier/transposer de la feuille "Scan_OF" colonne "D" vers la feuille "Rapport" cellule "A11".
essaie comme ceci :
Sub test()
'Macro dan
Dim dlg As Integer, k As Integer, j As Integer
Application.ScreenUpdating = False
dlg = Sheets("Scan_OF").Range("D" & Sheets("Scan_OF").Rows.Count).End(xlUp).Row
k = Sheets("Rapport").Range("F" & Sheets("Rapport").Rows.Count).End(xlUp).Row + 1
For j = 1 To dlg Step 10
Sheets("Scan_OF").Range("D" & j & ":D" & j + 9).Copy
Sheets("Rapport").Range("F" & k).PasteSpecial Paste:=xlPasteValues, Transpose:=True
k = k + 1
Next
Application.CutCopyMode = False
End SubAmicalement