Modification et Extraction chaine de caractéres

Bonjour à tous.

Je viens à nouveau demander de l'aide pour cet exemple réduit, l'original comporte plus 6000 lignes, pour lequel je n'arrive pas à trouver de solutions:

01 BALAN Rue des Ecoles Pl.de Longevent Proxi.Salle Poly. Commerces/200M EP-EU-K7-Pk Gr

01 CHATILLON-SUR-CHALARONNE Grande Place EP-EU-K7-WC Gr Pk/Proxi/Poste

01 ILLIAT-Les Rollets accès D66A EP-EU-K7-WC-Pk Gr

01 SAINT-ANDRE-SUR-VIEUX-JONC Imp.des Lys Dos/Stade EP-EU-K7-Pk Gr

03 BOURBON-L'ARCHAMBAULT D953 EP-EU-K7-220V Gr

1°) Je désire ajouter ( et ) à gauche et à droite du N° de département

2°) Extraire les NOM de lieux (en gras), qui comme le montre les exemples comportent des lettres majuscules, minuscules, signes et apostrophe.

Les deux solutions peuvent être indépendante l'une de l'autre, soit en fonctions et ou VBA.

J'ai testé bon nombres de fonctions et macros qui ne me donnent rien et me font tourner en bourrique, en espérant avoir une solution, je vous remercie par avance de l'attention que vous voudrez bien apporter à mon problème.

Cordialement.

Alain 06

Bonsoir,

Une proposition VBA sur base de la fonction 'Split'.

A te relire.

Bonjour,

et par formule :

="(" & GAUCHE(A2;2) & ")" & STXT(A2;3;CHERCHE(" ";A2;4)-3)

eric

edit : Il y a un pb si ta commune contient un espace, il faudra les remplacer par un autre caractère (espace insécable par exemple)

Bonsoir et merci pour vos réponses

Pour Eriic ta fonction coupe le N° du département en deux (0)1

Pour Jean-Eric je teste demain, j'ai XP et Office 2003, il faut que je change d'ordi.

Encore grand merci.

Cordialement

Alain 06

Pour Eriic ta fonction coupe le N° du département en deux (0)1

Ah bon ?

Et bien enlève l'espace qui est devant et que tu n'as pas signalé, ou modifie la formule en conséquence, ou fourni la chaine exacte.

eric

Bonjour et merci.

Effectivement je n'ai pas encore eu le temps de décortiquer la fonction et la journée est des plus chargée, je le fais dés que possible.

Encore merci, un bon Dimanche, Fête des Mères et votation.

Cordialement.

Alain 06

Bonjour Jean-Eric

Merci encore pour ta participation, c'est exactement le résultat que je désirais.

Je désire savoir:

comment inclure cette macro dans une feuille visual basic, car sur la feuille Excel, va y avoir beaucoup trop de monde

comment modifier la macro pour travailler à partir de la colonne C avec récupération des résultats en H.

comment déplacer le bouton et éventuellement le modifier.

J'ai essayé en changent quelques valeurs mais je me heurte à des messages d'erreurs, plutôt qu'une prise de tête, je préfère te redemander des renseignements.

Encore un grand merci.

Cordialement.

Bonjour à tous.

Le sujet reste d’actualité, car non résolut.

Cordialement.

Bonjour,

Tu as tout me semble-t-il dans mon fichier joint précédemment.

J'ai seulement omis de te dire de faire ALT F11 pour accéder à VBA et au module de la feuille 1.

Après c'est du copier-coller

Tu peux aussi envoyer un nouveau fichier représentatif.

Sinon, pour les nouvelles questions, tu essaies :

Option Explicit
Private Sub cmdVille_Click()
Dim lastRow As Long, i As Long

    Application.ScreenUpdating = False
    Columns(8).Clear
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    For i = 1 To lastRow
        Cells(i, 8) = Split(Cells(i, 1))(1)
    Next

End Sub