VBA et chaine

[cvs]

Bonsoir

je ne trouve pas comment faire dans l'aide

je cherche a décomposer un nombre et mettre chaque chiffre dans une cellule

ex:
le nombre 12345678
mettre le "1" dans A1 le "2" dans A2 etc

comment faire en vba ?

merci

 

[Catrice]

Re : VBA et chaine

Bonsoir,

Tu peux essayer ceci, avec 12345678 en A1 :

Sub Test()
For i = 1 To Len(Range("A1"))
Range("A1").Offset(0, i) = Mid(Range("A1"), i, 1)
Next
End Sub

 

[smotty]

Re : VBA et chaine

Bonsoir,

Plusieurs fonctions peuvent être utiles pour gérer les textes:

left(chaine,longueur)
right(chaine, longueur),
Mid(string, start[, length])
len(chaine),
split(): mon préféré, regarde l'aide

Pour chacune de ces fonction il y a une aide bien faite dans Excel.

Pour ton cas:
len(chaine) pour avoir la longueur de la chaine
puis une boucle:

for i=1 to longueur
caractere=mid(chaine,i,1) 'tu obtient chaque chiffre
next i


cordialement

smotty

 

[Bigfish]

Re : VBA et chaine

Salut,

cela devrait etre un truc comme cela :

Sub decomposition()
  Dim i as long, Dim MaValeur as Variant
  MaValeur = Range("A1").Value
  For i=1 to Len(MaValeur)
    Range("B" & i).Value = left(MaValeur,1)
    on local error resume next
    Mavaleur = right(MaValeur, Len(MaValeur) - 1)
  Next
End Sub

ecrit ici donc pas testé

A+

 

[cvs]

Re : VBA et chaine

merci beaucoup

je vais étudier cela demain soir

 

[Bigfish]

Re : VBA et chaine

Salut a toutes et a touts,

encore en retard desolé !

 

[cvs]

Re : VBA et chaine

merci à tous pour les réponses