Microsoft 365 Ajouter un espace

[moanin]

Bonsoir à tous

Est-il possible avec une formule de séparer les mots avec un espace à l'endroit où il y a une seconde majuscule ?

Exemple :

ChickasawsChicachas

>Chickasaws Chicachas

(Le C majuscule aprés ws)

DunnezaTsattine

>Dunneza Tsattine

(Le T majuscule aprés za)

Merci

 

[sylvanu]

Bonsoir Moanin,
En attendant une formule plus "futé", voici celle ci :

=STXT(A1;1;MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)))))&" "&
STXT(A1;1+MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100))));100)

A valider par Maj+Ctrl+Entrée car formule matricielle.

 

[moanin]

Merci mais je n'ai pas accès aux formules matricielles

 

[sylvanu]

Re,
Ma PJ marche t-elle ?
De mémoire, à vérifier, Office 365 est directement en matriciel, donc le Maj+Ctrl+Entrée est inutile, il suffit de valider par "entrée". A tester.
Cela semble confirmé :

Créer une formule matricielle - Support Microsoft

Découvrez comment créer des formules matricielles, souvent appelées formules Ctrl Maj Entrée, pour effectuer des calculs qui génèrent des résultats uniques ou multiples.

support.microsoft.com

 

[moanin]

Oui, elle fonctionne parfaitement mais quand je veux la copier sur mon tableau principal ça ne marche pas…

(Feuille 2 sur ton fichier)

 

[sylvanu]

Re,
Vous n'auriez pas un petit fichier test représentatif ?
Sinon il suffit de changer tous les "A1" par la cellule qui contient la chaine à traiter. ( il y en a 6 )
Normalement c'est suffisant.

 

[mapomme]

Bonsoir à tous

Une autre formule ?

=GAUCHE(A1;1+EQUIV(1;SI(CODE(STXT(A1;1+LIGNE(INDIRECT("2:"&NBCAR(A1)-1));1))<90;1;"");0)) & " " & STXT(A1;2+EQUIV(1;SI(CODE(STXT(A1;1+LIGNE(INDIRECT("2:"&NBCAR(A1)-1));1))<90;1;"");0);99)

 

[moanin]

Si ça fonctionne en copiant la formule il fallait juste mettre = devant qui n'y était pas…
Maintenant : comment fait-on quand on veut créer une cellule matricielle ?
Il doit y avoir devant et derrière un signe spécial, non ?
Des accolades ?

 

[mapomme]

Merci mais je n'ai pas accès aux formules matricielles

Avec microsoft 365, vous avez accès aux formules matricielles (et qui plus est avec une validation normale).

Sinon :

 

[sylvanu]

[edit] Bonsoir Mapomme.
Dans votre PJ feuil2 il manque la moitié de la formule, vous avez :

=STXT(A1;1+MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100))));100)

au lieu de

=STXT(A1;1;MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)))))&" "&
STXT(A1;1+MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100)));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));STXT(A1;2;100))));100)

Par contre il ne détecte que la seconde majuscule. Comme l'ex donné en post #1.
Il faut traiter toutes les majuscules ? Si oui, alors je ne connais que le VBA, voir PJ avec la fonction perso :

Function Maj(C$)
    Dim i%, S$
    For i = 1 To Len(C)
        If Asc(Mid(C, i, 1)) >= 65 And Asc(Mid(C, i, 1)) <= 90 Then
            S = S & " " & Mid(C, i, 1)
        Else
            S = S & Mid(C, i, 1)
        End If
    Next i
    Maj = S
End Function

 

[moanin]

Merci mapomme

Et les accolades ?

 

[mapomme]

Et les accolades ?

Relisez le message #9

edit: Bonjour @sylvanu

 

[sylvanu]

Re,
voir PJ avec premier espace supprimé :

 Maj = Trim(S)

 

[moanin]

Merci Sylvanu

Exact pour la formule coupée.
Oui, ce serait bien aussi pour toutes les majuscules.
Mais VBA non, malheureusement…

 

[moanin]

Pareil : pas possible de lire la feuille avec macro : un message me dit "impossible avec cette version d'Excel"