Bonjour bonjour,
Désolé d'avance si le titre de mon sujet n'est pas extrêmement clair.
Je travaille actuellement sur une colonne A comprenant n lignes (disons 200 ligne par exemple).
Mon objectif est de récupérer la valeur de cette cette colonne toutes les 8 lignes, puis de la coller dans la colonne B.
Etant vraiment débutant sur VBA (mais ayant quelques notions de code) j'ai procédé en deux temps :
- Injecté dans la cellule C1 le nombre de valeur de ma colonne A
(=NBVAL(A:A))
- Bouclé sur cette valeur pour copier et coller ma donnée :
Sub copiecolleligne_()
nbval = Range("C1").Value
For i = 1 To nbval
Cells(i, 1).Copy
Cells(i, 2).PasteSpecial Paste:=xlValue
i = i + 7
Next
End Sub
Problème : je ne souhaite pas appliquer le saut de 7 lignes lorsque je colle les données : ainsi ma colonne B sera uniquement remplie des valeurs 1;8;16...etc mais sans saut de ligne entre ces valeurs.
J'ai donc essayé :
Sub copiecolleligne_()
nbval = Range("C1").Value
For i = 1 To nbval
Cells(i, 1).Copy
Cells(i-7, 2).PasteSpecial Paste:=xlValue
i = i + 7
Next
End Sub
Sans grands résultats ....
Merci d'avance pour vos lumières !