Microsoft 365 Rechercher Majuscule dans cellule

Panach

XLDnaute Nouveau
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
 

dysorthographie

XLDnaute Accro
bonjour,
pareil pour moi!
Code:
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
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour le fil

Dans le fichier joint 3 propositions
1666370850813.png
 

Pièces jointes

  • Histoire de chameaux.xlsm
    34.5 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
311 078
Messages
2 076 845
Membres
241 953
dernier inscrit
dave15