cherche un code en VB

[zine pef]

salut tout ,tous , et le frum
je cherche un code de ce pb
en A1 je saisie ( FR1)
je veus
en B1 s'écrie (F)
en C1 "" (R)
en D1 "" (1)
merci

 

[kllmoon]

Re : cherche un code en VB

en b1 =LEFT(A1;1)
en c1 =MID(A1;2;1)
en d1 =RIGHT(A1;1)

 

[Pierrot93]

Re : cherche un code en VB

Bonjour zine, kilmoon

une solution en vba :

Option Explicit
Sub test()
Dim i As Byte
For i = 1 To Len(Range("A1").Value)
    Cells(1, i + 1).Value = Mid(Range("A1").Value, i, 1)
Next i
End Sub

bonne journée
@+

 

[zine pef]

Re : cherche un code en VB

merci Mr kllmoon pour le code mais n'a pas marché,
une erreur(#non)
et merci Pierrot93
je suis debutant dans VB;si possible un petit fichier m'explique la methode