Copier coller une ligne sur trois
Bonjour je cherche a faire du copier coller de cellules une ligne sur trois je 'explique:
Colonne A: j'ai des valeurs
Colonne B: La macro coller chaque valeur mais en sautant deux lignes a chaque fois.
Colonne A: abcd, efgh, ijkl, mnop
et en B1. abcd
en B2: rien
en B3:rien
en B4: efgh
en B5 rien
en B6: rien
en B7:ijkl
etc....
Merci
Salut,
essayes :
dans ta feuille de calcul dans la cellule C1 par exemple, rentre la formule =nbval(A:A)
ensuites essaye la macro
Sub copypastedecalé()
nbval = Range("C1").Value
For i = 1 To nbval
Cells(i, 1).Copy
Cells(3 * i - 2, 2).PasteSpecial Paste:=xlValue
Next
End Sub
METHODE
de manière générale, si tu poses L=Ai+B pour résoudre ton problème de lignes en fonction de i :
i=1 L=1 (A1 copié en B1)
i=2 L=4 (A2 copié en B2)
tu trouveras L=3*i-2
En espérant que cela te conviennes.
Pierre
petite correction METHODE
de manière générale, si tu poses L=Ai+B pour résoudre ton problème de lignes en fonction de i :
i=1 L=1 (A1 copié en B1)
je voulais dire i=2 L=4 (A2 copié en B4)
...
tu trouveras L=3*i-2