Séparer chaine de caractere par des espaces

oui ca complique hachement mais
les séparations internes (ZO1 S572) commencent elles toujours par une lettre et la dernière (12000 par un chiffre) ?

Comme c'est complexe, sois précis, merci d'avance :-)

Oui toujours :)

OK c'est parti, 6000 lignes on passera peut-^tret par du VBA
sois patient !

Re,

comme j'étais pressé.... :-(

macro corrigée, excuses moi (la fonction est OK)

Sub modifier_ref()
derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For cptr = lig To derlig
  Cells(cptr, col) = espacer(Cells(cptr, col))
Next
End Sub

ci joint maquette
https://www.cjoint.com/?AEyq0UFxwvA

bonjour,

ce n'est pas ce que j'ai fait ? le nombre de "blocs-lettre" est indifférent....

je viens d'essayer en enlevant des blocs-lettre par ci par là et c'est OK

a moins que je n'ai pas vu un piège ???

En fait moi j'obtiens :

12345 Z12 S12 3456

Il faudrait 3 chiffres après le S

j'vas finir par devenir chèvre avec les histoires de +1 ou -1...

Function espacer(texto As String) As String
Dim reg As Object
Dim extraction As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "(\D)"
    Set extraction = reg.Execute(texto)
    For Each digit In extraction
        lettres = lettres & (digit.Value)
    Next digit
Start = 1
For cptr = 1 To Len(lettres)
     lettre = Mid(lettres, cptr, 1)
     pos = Application.Search(lettre, texto)
     espacer = espacer & " " & Mid(texto, Start, pos - Start)
     Start = pos
Next
espacer = espacer & " " & Mid(texto, pos, Len(texto) - 4 - pos) & " " & Right(texto, 5)
End Function

Okey... J'ai compris le problème...

Les références ne se termine pas toujours par 5 chiffres... c'est aléatoire.

Oui, mais là je ne peux rien pour toi
et pourtant lien N° 5, je précisais
valable si dernier bloc = 5 chiffres

Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup « non vous n'avez pas compris mon problème (rarement, je n'ai pas bien expliqué) il faut en plus que, etc.... »

bref j'ai perdu mon temps avec Toi :-(((
Ciao

Bonjour greg_in_motion,
Merci pour l'information.
Je m'arrêterai là car la solution est entre vos mains par l'intermédiaire de michel
_m.
Salutations.
Le Pingou

le pb m'ayant branché et sans refaire la macro

Const col As String * 1 = "A" 'colonne des ref  
Const lig As Byte = 5 'ligne de départ des ref  


Sub modifier_ref()  
derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row  
Application.ScreenUpdating = False  
For cptr = lig To derlig  
  Cells(cptr, col) = espacer(Cells(cptr, col))  
Next  
End Sub  

Function espacer(texto As String) As String  
Dim reg As Object  
Dim extraction As Object  
    Set reg = CreateObject("vbscript.regexp")  
    reg.Global = True  
    reg.Pattern = "(\D)"  
    Set extraction = reg.Execute(texto)  
    For Each digit In extraction  
        lettres = lettres & (digit.Value)  
    Next digit  
Start = 1  
For cptr = 1 To Len(lettres)  
     lettre = Mid(lettres, cptr, 1)  
     pos = Application.Search(lettre, texto)  
     debut = debut & " " & Mid(texto, Start, pos - Start)  
     nbre = nbre + 1 
     Start = pos 
Next 
debut = debut & " " & Mid(texto, pos, 4) 
espacer = debut & " " & Right(texto, Len(texto) + nbre + 1 - Len(debut)) 

Super ! Ca marche nikel !!! Merci beaucoup ! Et encore désolé pour mon manque de précision....

Svp, j'aurai une dernière question :

Maintenant que les références sont "claires", est-il possible d'utiliser l'inverse de la fonction concatener afin d'avoir le 1er bloc, dans une 1ère colonne, le deuxieme bloc (Z01) dans une deuxieme colonne, la 3ème bloc (S574) dans une troisième colonne etc... ??? Afin de pouvoir faire une liste déroulante pour chaque bloc ?

bonjour,

oui mais pas a vant lundi!....

si il n'y a pas de 2°bloc Zxx que fait on ?

bonjour

bin Vaucluse, très bon formuliste est en train d'essayer de t'aider ?

Salut michel

peut être très bon,(merci mais c'est trop!) mais je renonce, là, il y a trop de cas pour faire quelque chose de raisonnable sur >7000 lignes!
Je regrette qu'excel ne donne pas de formule pour compter le nombre de caractères spécifiques dans une texte (ici le nombre de blanc) car ensuite avec substitue, ce serait un jeu d'enfant.
Ce n'est pas la première fois que je souhaiterais ce genre de formule

. Si tu as quelque chose sur le sujet, ,je suis preneur.

Pépé a bien tenté, mais est ce bien une bonne solution que de traiter sur 10 colonnes environ?
Pour ma part, je ne crois pas.

Bien cordialement
ps: les cerises ne sont pas mures chez moi

les cerises ne sont pas mures chez moi

Voilà les conséquences d'avoir quitté le Vaucluse pour aller au nord de Montélimar, c.à.d. quasiment en Scandinavie... :-)

petite fonction personnalisée pour compter les espaces
Function compter_les_blancs(texto As Range) As Byte
If texto = "" Then Exit Function
tempo = Split(texto)
compter_les_blancs = UBound(tempo)
End Function

Voila une excellente réponse Michel, mais pour ma part:

_ j'ai au moins échappé aux derniers orages dans le Vaucluse

_ et plus grave, j'ai bien noté ta fonction personnalisée mais j'ose à peine demander comment on s'en sert?

Je le saurais, ça pourrait me servir assez souvent, mais là, je suis sec. ... et tant mieux si ça te fait rire :-)

Crdlmnt

tu l'installes dans un module (ca tu sais faire)

quand tu veux utiliser ce petit bijou :oD ( fait en vitesse donc...)

dans formules-insérer une fonction-fonction personnalisée

l'idéal serait de la transformer en macro complémentaire .XLA mais est ce que ca vaut le coup d'avoir cà dans les menus....ou de créer un classeur perso de macro, j'en doute