Microsoft 365 Rechercher Majuscule dans cellule

[Panach]

Bonjour,

Après plusieurs jours de recherche et sans réponse fonctionnelle, je me tourne vers vous pour avoir de l'aide.
Je vous explique, ce n'est pas compliqué.

J'ai une colonne A contenant des noms de villes.
Ces noms de villes sont écris sans espace mais contenant des Majuscule à chaque début de mot.
Exemple :
A1 = LeMans
A2 = ChambrayLesTours

Je voudrais réécrire ces villes avec des espaces.
B1 = Le Mans
B2 = Chambray Les Tours

Je suis donc parti sur cette piste : rechercher une formule qui récupère le n° du caractère en Majuscule pour y concaténer un espace avant cette Majuscule.
Mais je n'ai rien trouvé.

Si quelqu'un a une idée de génie, je suis preneur!

Merci à vous,
Cdt, Panach

 

[fredl]

Bonjour,
pas de formule pour moi, mais quelques lignes de code vba (cliquer sur le bouton)
Dis moi si cela te convient.
cordialement
Frédéric

 

[dysorthographie]

bonjour,
pareil pour moi!

Sub txt()
Debug.Print InsertCar("AbcDefGHij", " ")
End Sub
Function InsertCar(Texte As String, Car As String) As String
InsertCar = Texte
    Dim c As Object
With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[A-Z]"
        For Each c In .Execute(InsertCar)
        InsertCar = Trim(Replace(InsertCar, c, Car & c, compare:=vbTextCompare))
  Next
End With
End Function

 

[Panach]

Merci pour ses réponses. Ca fonctionne !
On peut dire que vous êtes efficace !

 

[Hasco]

Bonjour le fil

Dans le fichier joint 3 propositions