Microsoft 365 Rechercher Majuscule dans cellule

Panach · 21 Octobre 2022

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 · 21 Octobre 2022

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

fredl · 21 Octobre 2022

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 · 21 Octobre 2022

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

Panach · 21 Octobre 2022

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

Hasco · 21 Octobre 2022

Bonjour le fil

Dans le fichier joint 3 propositions

Microsoft 365 Rechercher Majuscule dans cellule

Panach

XLDnaute Nouveau

fredl

fredl

XLDnaute Impliqué

Pièces jointes

dysorthographie

XLDnaute Accro

Panach

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Pièces jointes

Discussions similaires