code vba pour une boucle particulière !?

Novice avance !?

XLDnaute Occasionnel
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
 

Fichiers joints

tototiti2008

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

Bonjour Novice,

en formule en C1

Code:
=DECALER($A$1;ENT((LIGNE()-1)/2);0)
à recopier vers le bas

ou si tu veux absolument du VBA

Code:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas