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

Meilleure réponse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 22 janv. 2006 à 23:43
3
Merci
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.

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

cs_et1 250 Messages postés vendredi 14 janvier 2005Date d'inscription 27 janvier 2011 Dernière intervention - 22 janv. 2006 à 13:30
0
Merci
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
Merci
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.