VBA - Copier Coller Transposé avec intervalle

[PilouLille]

Bonjour à tous,

Je suis nouveau sur ce forum, je me présente donc brièvement. Je suis étudiant à Lille, et utilise donc Excel pour des raisons scolaires. Je suis actuellement dans la réalisation de mon mémoire, et c'est pour cela que je me permets de vous demander de l'aide. Je n'ai pas trouvé de sujet similaire avec la fonction recherche.

Je cherche grâce à une macro, à copier une colonne d'une feuille (colonne A), pour la coller en ligne (Ligne 1) dans une seconde feuille avec un intervalle de 4 cases entre chaque valeur. Je vous joins un exemple pour plus de clarté.

N'hésitez pas à me demander plus d'information si je ne suis pas clair dans mon explication.

En vous remerciant par avance.

PilouLille.

 

[Jack2]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour PilouLille,
Voici une possibilité :

Sub Test()
'on se positionne sur la deuxième feuille
Sheets(2).Select
j = 2 'pour partie de la cellule A2, feuille 1
For i = 1 To 100 Step 5
    ' i + 2 (le 2 c'est pour commencer en colonne C
    Cells(1, i + 2).Value = Sheets(1).Cells(j, 1).Value
    j = j + 1
Next i
End Sub

A+ Jack2

 

[Staple1600]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour à tous

Une autre possibilité
(fiable jusqu'à un certain nombre de valeurs en colonne A de la feuille1 ...😉)

Sub Macro1()
Dim dl&, col&
With Sheets(1)
    dl = .Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:A" & dl).Copy
    Sheets(2).Range("C1").PasteSpecial xlPasteValues, , , True
End With
With Sheets(2)
    On Error Resume Next
    For col = 4 To 16384 Step 5
        .Columns(col).Resize(, 4).Insert Shift:=xlToRight
    Next
End With
End Sub

 

[PilouLille]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour,

Super, ça marche parfaitement et avec les explications je n'ai eu aucun mal à l'adapter à mon fichier complet. Je te remercie!

PilouLille

 

[Staple1600]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour PilouLille


Je dois puer de la gu--le ... 😉
A moins que tes lunettes soient défectueuses 😉

 

[PilouLille]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour Staple 1600

Je te prie de m'excuser, tu as écris au moment ou je répondais à Jack2, je n'ai donc pas vu ta réponse hier.

Cordialement,
PilouLille.

 

[Staple1600]

Re : VBA - Copier Coller Transposé avec intervalle

Bonjour PilouLille

Ouf, tu me rassures 😉
J'avais déjà pris rendez-vous chez ma dentiste 😉

Tu as testé ma macro ? Ça marche comme tu le souhaites ?

 

[PilouLille]

Re : VBA - Copier Coller Transposé avec intervalle

J'ai pu la tester ce matin (hier mon fichier ne s'est pas enregistré avec la macro donc j'ai du recommencer 😕 ). Les deux marchent parfaitement, j'ai pu les adapter à mon fichier sans soucis.

Je te remercie encore,

PilouLille.