Transposer 1 ligne sur 7

VBA
1

bonjour Docteur

j’ai un simple table à 1 seule colonne.
je voudrais transposer en ligne ce tableau mais seulement 1 valeur sur 7,
c’est à dire la valeur de la 1 ère ligne, de la 8 ème, de la 15 ème…
Pouvez-vous m’aider ?

Merci

Matthieu Cocteau
06.28.04.12.91

···

Le 9 avril 2018 à 14:50, Docteur Excel formuleexcel@discoursehosting.net a écrit :

Bonjour c’est Docteur Excel!

Es-tu bloqué sur Excel ou VBA? Comment puis-je t’aider?

Pose-moi ta question et je te répondrai dans les plus brefs délais (pour
cela réponds directement à cet email).

Si tu préfères tu peux la poser sur mon forum: http://forum.
formuleexcel.com
https://FormuleExcel.us11.list-manage.com/track/click?u=529a386eb12681c8f0601cd6d&id=46b09bcffd&e=1475bff181

Dans les jours qui suivent je t’enverrai quelques tutoriels afin
d’améliorer ta maîtrise d’Excel

A bientôt,
Docteur Excel

Se désinscrire
https://FormuleExcel.us11.list-manage.com/unsubscribe?u=529a386eb12681c8f0601cd6d&id=27522182d1&e=1475bff181&c=ded5c36b6f

Copyright © 2018 Outwork OÜ

Vous recevez ce mail car vous vous êtes inscrit sur FormuleExcel.com

Outwork OÜ
Sepapaja Tn 6, Lasnamäe Linnaosa
Tallinn 15551
Estonia

Add us to your address book
<//FormuleExcel.us11.list-manage.com/vcard?u=529a386eb12681c8f0601cd6d&id=27522182d1>

[image: Email Marketing Powered by MailChimp]
http://www.mailchimp.com/monkey-rewards/?utm_source=freemium_newsletter&utm_medium=email&utm_campaign=monkey_rewards&aid=529a386eb12681c8f0601cd6d&afl=1

2

Bonjour!

Je ne suis pas sur d’avoir bien compris ta question.
Pourrais tu nous donner plus de détails stp et si possible inclure un fichier d’exemple?

Merci et à bientôt

4

Bonjour
je vous joins un fichier exemple.

Merci beaucoup

Matthieu Cocteau
06.28.04.12.91

transposer-1-7.xlsx (10.6 KB)

5

Bonjour,

Avec une petite macro

Sub test()
Dim F1 As Range
Dim F2 As Range
Dim i As Integer
Dim j As Integer
Dim DernLigne As Long
Dim DernCol As Long
'Affectation des variables
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la ligne 1
DernCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1 'n° de la première colonne  vide de la ligne 1

Set F1 = Sheets("Feuil1").Range("A2:A" & DernLigne)
Set F2 = Sheets("Feuil1").Range("E1", Cells(1, DernCol))

'Vidage des dernière données
Range("E1", Cells(2, DernCol)).Clear
j = 1
'Boucle
    For i = 1 To F1.Rows.Count Step 7 'Boucle toutes les 7 lignes
        F2.Cells(1, j).Value = F1(i, 1).Value 'copie la colonne A
        F2.Cells(2, j).Value = F1(i, 2).Value 'copie la colonne B
        j = j + 1
    Next i
End Sub

transposer-1-7.xlsm (18,2 Ko)

2 « J'aime »
6

Top !
Merci beaucoup.

Matthieu Cocteau
06.28.04.12.91

7

Re,
Si le problème est résolu, n’oublie pas de passer le post en résolu :wink: