code vba pour une boucle particulière !?

[Novice avance !?]

bonjour,

j'ai joint un fichier .xls avec exemples et explications.

j'aimerais un code vba qui copie en double
- la cellule A1 en C1 et C2
- la cellule A2 en C3 et C4
- la cellule A3 en C5 et C6
- la cellule A4 en C7 et...
- ...

en bouclant non pas sur le contenu des cellules mais sur le nombre des cellules avec données.
Si j'ai 6 cellules de A1 à A6 remplie je dois retrouvé 6 cellules de C1 à C6 ce qui veut dire que comme les cellules sont copier en double et qu'il y a 6 cellules en colonne A il n'y aura que les 3 1ères cellules qui seront copiées 2 fois en colonne C.

le fichier est là pour vous montrer clairement ce que je recherche !?

merci par avance
bonne journée


merci
bonne journée

 

[tototiti2008]

Re : code vba pour une boucle particulière !?

Bonjour Novice,

en formule en C1

=DECALER($A$1;ENT((LIGNE()-1)/2);0)

à recopier vers le bas

ou si tu veux absolument du VBA

Sub test()
Dim i As Long
    For i = 1 To Range("A65536").End(xlUp).Row
        Range("C" & i).Value = Range("A" & Int((i - 1) / 2) + 1).Value
    Next i
End Sub

 

[Novice avance !?]

Re : code vba pour une boucle particulière !?

merci bien