Excel copie d'une chaine de caractères

Dim i, LenChaine as integer
dim Machaine as string

Machaine = "GGAATGGATGGCCC"
LenChaine = len(Machaine)

for i = 1 to LenChaine step 1
if i = 1 then ' 1ier caractère de la chaine
Activesheet.cells(1,i) = left(Machaine, 1)
else if (i = LenChaine) then ' dernier caratere de la chaine
Activesheet.cells(1,i) = right(Machaine, LenChaine-1, 1) ' ou right(Machaine , LenChaine, 1), A VERIFIER
else
Activesheet.cells(1,i) = Mid(Machaine, i, 1)
end if
next i


Attention jai codé de tête, alors je suis plus sure de la structure du elseif, à verifier. Attention aussi aux erreurs de frappes, mais dans l'ensemble, l'idée est la :)
Qu'est ce que tu veux faire avec ca, ca ressemble à des chaines complémentaires d'ADN, LOL
DjSkeud,

Lool c'est exactement ca lol des chaines d'ADN ^^

je les retransmets dans un document Excel ^^

merci de ton aide je vais tester ca

Bonjour,

cells(1,i) = Mid(Machaine, i, 1) est suffisant entre le for et le next.

ou bien sans vba:

A1: GGAATGGATGGCCC
B1: =STXT($A1;COLONNE()-1;1)

formule à recopier vers la droite et peut être recopiée vers le bas si besoin

eric