Extraire lettres d'un mot ? [Résolu]

cyrilys 4 Messages postés samedi 14 janvier 2006Date d'inscription 22 janvier 2006 Dernière intervention - 22 janv. 2006 à 12:03 - Dernière réponse : jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention
- 22 janv. 2006 à 23:43
Bonjour

J'ai un gros pdobleme, je chercherais a extraire Par exemple:

"POMME" dans une cellule ou variable. Je voudrais le decomposer en faisant une lettre par cellule ou par variable. donc le P dans la cellule(1,1)puis le O dans la cellule(1,2) puis le M dans la cellule(1,3) puis le M dans la cellule(1,4) puis le E dans la cellule(1,5).

MERCI beaucoup
Afficher la suite 

3 réponses

jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 22 janv. 2006 à 23:43
+3
Utile
Bonsoir,

Comme dit et1, utilise la fonction Mid.



Sub MotAprèsMot()

Dim Mot As String

Mot = "POMME"

Cells(1, 1) = Mid(Mot, 1, 1)

Cells(2, 1) = Mid(Mot, 2, 1)

Cells(3, 1) = Mid(Mot, 3, 1)

Cells(4, 1) = Mid(Mot, 4, 1)

Cells(5, 1) = Mid(Mot, 5, 1)



End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
Cette réponse vous a-t-elle aidé ?  
cs_et1 250 Messages postés vendredi 14 janvier 2005Date d'inscription 27 janvier 2011 Dernière intervention - 22 janv. 2006 à 13:30
0
Utile
Salut,
Utilise la fonction MID

exemple : Mid(LaChaine, CaractDeDépart, NbCaractAExtraire)

cellule1 = mid(POMME,1,1)
cellule2 = mid(POMME,2,1)
cellule3 = mid(POMME,3,1)
...
cs_et1 250 Messages postés vendredi 14 janvier 2005Date d'inscription 27 janvier 2011 Dernière intervention - 22 janv. 2006 à 13:34
0
Utile
Tu peut faire une routine :

Dim i as integer
Dim Mot as string = "POMME"
For i 1 to i len(Mot)
cellule(1, i ) = mid(Mot, i, 1)
Next

J'ai fais ces codes directement sur le forum, donc il y a peut-être des petites erreurs ...

---

www.et1-vb.net

-Va visiter mon site !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.