Scinder chiffres et lettres

[Claudy]

Bonjour,
j'ai une suite de chiffres et lettres dans une même cellule:1 C 2 C 3 B 4 C 5 C 6 C 7 B 8 A 9 B 10 A 11 A 12 C 13 A
Je voudrait scinder: colonne A les chiffres de 1 à 13
et colonne B les lettres qui suivent ces chiffres C C B....
Merci pour votre aide,
Claudy

 

[BOISGONTIER]

Re : Scinder chiffres et lettres

Bonjour,

Function chiffres(chaine)
  temp = Replace(chaine, " ", "")
  For i = 1 To Len(temp)
    If IsNumeric(Mid(temp, i, 1)) Then result = result & Mid(temp, i, 1)
  Next i
  chiffres = result
End Function

Function lettres(chaine)
  temp = Replace(chaine, " ", "")
  For i = 1 To Len(temp)
    If Not IsNumeric(Mid(temp, i, 1)) Then result = result & Mid(temp, i, 1)
  Next i
  lettres = result
End Function

JB
Formation Excel VBA JB

 

[Claudy]

Re : Scinder chiffres et lettres

Ok, merci mais ce que j'aurais voulu avoir, c'est décomposer "CCBCCCBABAACAAAAAAAAAACBCABCACACAAABCCCCAAABBCACCC"
sur plusieurs lignes:
Ligne 2=C
Ligne 3=C
Ligne 4=B
Ligne 4=C
.
.
.
.
Etc...
Merci

 

[BOISGONTIER]

Re : Scinder chiffres et lettres

Bonjour,

La cellule qui contient la suite est en E1

  temp = Split([E1], " ")
  For i = LBound(temp) To UBound(temp) - 1 Step 2
     Cells(i \ 2 + 1, 1) = temp(i)
     Cells(i \ 2 + 1, 2) = temp(i + 1)
  Next i

JB

 

[Claudy]

Re : Scinder chiffres et lettres

Bon merci, mais désolé, ça va pas!
A+ ???