VBA et chaine

C

Catrice

XLDnaute Barbatruc

• 29 Octobre 2008

• #2

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

 

Vote positif 0 Vote négatif

S

smotty

XLDnaute Occasionnel

• 29 Octobre 2008

• #3

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

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 29 Octobre 2008

• #4

Re : VBA et chaine

Salut,

cela devrait etre un truc comme cela :

Code:

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+

 

Vote positif 0 Vote négatif

cvs

XLDnaute Nouveau

• 29 Octobre 2008

• #5

Re : VBA et chaine

merci beaucoup

je vais étudier cela demain soir

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 29 Octobre 2008

• #6

Re : VBA et chaine

Salut a toutes et a touts,

encore en retard desolé !

 

Vote positif 0 Vote négatif

cvs

XLDnaute Nouveau

• 30 Octobre 2008

• #7

Re : VBA et chaine

merci à tous pour les réponses

 

Vote positif 0 Vote négatif