Extraire lettres d'un mot ?

[Résolu]
Signaler
Messages postés
4
Date d'inscription
samedi 14 janvier 2006
Statut
Membre
Dernière intervention
22 janvier 2006
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
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

3 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
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.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
9
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)
...
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
9
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 !