recopier uneplage espacée de 2 lignes

[jad73]

bonjour le forum
je voudrais recopier une colonne de données(1-2-3-4-5)mais chaque valeur devra etre espacée de 2 lignes(1--2--3--4--5)
verticalement
1....1
2....
3....2
4....
5....3
6....
7....4
Quelle formule utiliser
merci

 

[ERIC S]

Re : recopier uneplage espacée de 2 lignes

Bonjour

par formule ou par macro ?

 

[jad73]

Re : recopier uneplage espacée de 2 lignes

bonjour Eric
par macro
merci

 

[ERIC S]

Re : recopier uneplage espacée de 2 lignes

re

une possibilité parmi d'autres

Sub e()
'données en colonne A feuille active, copie en B de Feuil2
'effacement colonne B feuil2
Sheets("Feuil2").Range("B1").EntireColumn.ClearContents
'dernière ligne à copier
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derligne
    Sheets("Feuil2").Cells(2 * i - 1, 2).Value = Range("A" & i).Value
Next
End Sub

 

[jad73]

Re : recopier uneplage espacée de 2 lignes

re Eric
je viens d'essayer ta macro mais seul le 1 en Feuil2 col B est recopié pas les autres valeurs
Merci

 

[ERIC S]

Re : recopier uneplage espacée de 2 lignes

Re

un petit exemple

 

[jad73]

Re : recopier uneplage espacée de 2 lignes

re
le probleme est que mes données en Feuil1 sont horizontale,j'ai rajouté 3liges dans la macro mais elle ne marche pas
'données en colonne A feuille active, copie en B de Feuil2

Sheets("Feuil1").Select
Range("A1:J1").Select
Selection.Copy

'effacement colonne B feuil2
Sheets("Feuil2").Range("B1").EntireColumn.ClearContents
'dernière ligne à copier
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derligne
Sheets("Feuil2").Cells(3 * i - 1, 2).Value = Range("A" & i).Value
Next

ou est l'erreur
merci

 

[ERIC S]

Re : recopier uneplage espacée de 2 lignes

Re

je te donne 3 méthodes
colonne vers colonne de 2 en 2

ligne vers colonne de 2 en 2

zone

 

[jad73]

Re : recopier uneplage espacée de 2 lignes

bonjour Eric,le forum
je reviens vers toi car je n'arrive pas a l'adapter a mon classeur,j'aurais du préciser ou se trouver les données a prendre
et ou elles doivent etre inscrites.
les données a prendre se trouve dans la feuille "freq" en ligne B2:U2
elles doivent etre copiées dans la feuille "Duo" en colonne BG73
excuse moi pour ces mauvaises premieres explications
merci
a+

 

[ERIC S]

Re : recopier uneplage espacée de 2 lignes

Re

nouveau fichier