cherche un code en VB

K

kllmoon

XLDnaute Occasionnel

• 28 Mai 2009

• #2

Re : cherche un code en VB

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mai 2009

• #3

Re : cherche un code en VB

Bonjour zine, kilmoon

une solution en vba :

Code:

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
@+

 

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 28 Mai 2009

• #4

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

 

Vote positif 0 Vote négatif