Extraire les numéros des lignes de texte

D

Denis132

XLDnaute Impliqué

• 21 Août 2017

• #2

Bonjour Centurion,

Un petit fichier avec seulement quelques exemples serait très utile.

@+

Denis

 

Vote positif 0 Vote négatif

kan3pz

XLDnaute Occasionnel

• 22 Août 2017

• #3

Bonjour à tous,
ci-joint un test, à voir si cela convient avec tes données... difficile de prévoir tous les cas sans fichier exemple comme l'a fait remarqué Denis 132.

A+

 

Pièces jointes

• Conversion centurion.xlsx

  11.2 KB · Affichages: 46

Vote positif 0 Vote négatif

centurion

XLDnaute Junior

• 23 Août 2017

• #4

Bonjour Kan3pz,

C'est presque ce que je voulais.
J'ai téléversé un fichier, pour que vous puissiez mieux comprendre.
En resumé : j'ai un index avec tout sur une colonne et je voudrais des colonnes séparées.

Avec mes remercîments
Cordialement
Centurion

 

Pièces jointes

• INDEX.xlsx

  10.2 KB · Affichages: 47

Dernière édition: 23 Août 2017

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 23 Août 2017

• #5

Bonsoir,

C'est assez coriace de trouver des réponses à cette demande.

Bon, en cherchant, parce que c'est intéressant à conserver, un fichier qui doit correspondre mais :
- la macro traite les "-" comme des lettres donc les derniers caractères doivent faire l'objet d'un traitement particuliers pour aller rechercher le dernier espace.

Avant d'appuyer sur le rectangle, prévoir de sélectionner la zone svp sinon il y aura un message d'erreur (fonctionne avec une SELECTION).

Il y aura donc un peu de manip" à faire, mais ce n'est franchement plus long !
(à moins de substituer le caractère "-" par " " avant le lancement de la macro).

Bonne soirée
thierry

 

Pièces jointes

• index.xls

  42 KB · Affichages: 40

Dernière édition: 23 Août 2017

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 23 Août 2017

• #6

Bonjour,

sélectionner la plage à traiter et clic bouton.
J'ai fait comme ça pour ne pas écraser d'éventuelles retouches manuelles, mais on peut changer pour traiter toute la colonne directement.
eric

 

Pièces jointes

• INDEX.xlsm

  19.1 KB · Affichages: 32

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Août 2017

• #7

Bonsoir centurion, zebanx, eriiiic, [edit] kan3pz,

Cette fonction VBA (matricielle) est relativement simple :

Code:

Function Eclater(t$)
Dim i%, s
t = Application.Trim(t) 'SUPPRESPACE
For i = 1 To Len(t)
  If Mid(t, i, 2) Like " #" Then t = Left(t, i - 1) & Chr(1) & Mid(t, i + 1)
  If Mid(t, i, 2) Like "# " Then t = Left(t, i) & Chr(1) & Mid(t, i + 2)
Next
If t = "" Then s = "" Else s = Split(t, Chr(1)): t = s(1): s(1) = s(2): s(2) = t
Eclater = s 'vecteur ligne
End Function

A entrer sur la plage C2:F2 et à valider matriciellement par Ctrl+Maj+Entrée.

Fichier joint.

Bonne fin de soirée.

 

Pièces jointes

• Eclater(1).xlsm

  16.9 KB · Affichages: 39

Dernière édition: 23 Août 2017

Vote positif 0 Vote négatif