VB, Excel et place des chaînes de caractères
Cécile
-
Ivan-hoe Messages postés 433 Date d'inscription Statut Membre Dernière intervention -
Ivan-hoe Messages postés 433 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Cela fait un petit moment que je cherche une solution à mon problème et je n'ai encore rien trouvé. Je suis à la recherche d'une macro me permettant de diviser une chaîne de caractère et d'en passer une partie à la fin. Par exemple, pour "Port de Lorient", j'aimerai bien arriver à "Lorient (Port de)". Passer de "Port de" à "(Port de)" ne me pose pas de problème mais c'est envoyer le "(Port de") à la fin de la chaîne qui est plus problématique.....
Si quelqu'un a une idée, je l'en remercie :)
Bonne journée.
Cela fait un petit moment que je cherche une solution à mon problème et je n'ai encore rien trouvé. Je suis à la recherche d'une macro me permettant de diviser une chaîne de caractère et d'en passer une partie à la fin. Par exemple, pour "Port de Lorient", j'aimerai bien arriver à "Lorient (Port de)". Passer de "Port de" à "(Port de)" ne me pose pas de problème mais c'est envoyer le "(Port de") à la fin de la chaîne qui est plus problématique.....
Si quelqu'un a une idée, je l'en remercie :)
Bonne journée.
A voir également:
- VB, Excel et place des chaînes de caractères
- Word et excel gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Caractères spéciaux - Guide
3 réponses
Voila grosso modo le code que tu dois appliquer :
Mais attention car cela recherche le dernier espace dans la chaine de caractère, donc ca marche pour les villes sans espaces, mais pour "Port de La Baule" ca te renverra "Baule (Port de La)"
Texte = Range("A1")
' Cherche le dernier espace
Position = InStrRev(Texte, " ")
' Extraction des caractères après le dernier espace
Ville = Mid(Texte, Position + 1)
' Extraction des caractères avant le dernier espace
Avant = Left(Texte, Position - 1)
Avant = "(" & Avant & ")"
' Construction du nouveau Libellé
NouveauTexte = Ville & " " & Avant
MsgBox NouveauTexte
Mais attention car cela recherche le dernier espace dans la chaine de caractère, donc ca marche pour les villes sans espaces, mais pour "Port de La Baule" ca te renverra "Baule (Port de La)"
Salut,
sinon, à partir du moment où tu as mis tes parenthèses, tu peux t'inspirer du code ci-dessous
Split coupe le texte à chaque délimiteur ; ici, on met la parenthèse fermante comme délimiteur
Ensuite, on recompose le texte à l'envers
I.
sinon, à partir du moment où tu as mis tes parenthèses, tu peux t'inspirer du code ci-dessous
Split coupe le texte à chaque délimiteur ; ici, on met la parenthèse fermante comme délimiteur
Ensuite, on recompose le texte à l'envers
Sub Test() Dim LeTexte As String Dim Tableau LeTexte = "(Port de) Lorient " Tableau = Split(LeTexte, ")") MsgBox Tableau(1) & Tableau(0) & ")" End Sub
I.
Par contre, j'ai encore un p'tit problème d'argument ou de procédure incorrect au niveau de la ligne avant = Left(texte, Position - 1) et j'ai du mal à voir d'où vient le problème... peut être d'une mauvaise déclaration de la variable "texte" ?
quelle est la valeur de Texte quand tu as ce message d'erreur ?
est ce que ce n'est pas un mot simple (sans espace), par hasard ?
A suivre...