Excel copie d'une chaine de caractères

Question

Bonjour,

je souhaiterai copier une chaine de caractères dans un tableau excel mais je voudrais que chaque caractères se copie dans une cellule différente d'une meme ligne. Est ce possible ?

exemple 

j'ai une chaine : GGAATGGATGGCCC

Colonne1	Colonne2	Colonne3	Colonne4	Colonne5	Colonne6	Colonne7	Colonne8
G                         G                       A                     A                     T                    G                   G                     A


voila pour exemple.

merci pour votre aide.

DjSKeud · Answer

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

Emendiel · Answer

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

eriiic · Answer

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

Excel copie d'une chaine de caractères

3 réponses

Votre réponse

Newsletters