Microsoft 365 Ajouter un espace

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2022

• #2

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

VB:

=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.

 

Pièces jointes

• Maj.xlsx

  8.5 KB · Affichages: 5

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 18 Avril 2022

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2022

• #4

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

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 18 Avril 2022

• #5

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

(Feuille 2 sur ton fichier)

 

Pièces jointes

• Maj.xlsx

  15.5 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2022

• #6

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2022

• #7

Bonsoir à tous

Une autre formule ?

VB:

=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)

 

Pièces jointes

• moanin- split 2eme majuscule- v1.xlsx

  10.3 KB · Affichages: 2

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 19 Avril 2022

• #8

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 ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2022

• #9

moanin à dit:

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

Cliquez pour agrandir...

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

Sinon :

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2022

• #10

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

VB:

=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

Code:

=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 :

Code:

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

 

Pièces jointes

• Maj (1).xlsm

  18.6 KB · Affichages: 0

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 19 Avril 2022

• #11

Merci mapomme

Et les accolades ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2022

• #12

moanin à dit:

Et les accolades ?

Cliquez pour agrandir...

Relisez le message #9

edit: Bonjour @sylvanu

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2022

• #13

Re,
voir PJ avec premier espace supprimé :

VB:

 Maj = Trim(S)

 

Pièces jointes

• Maj (1).xlsm

  18.6 KB · Affichages: 3

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 19 Avril 2022

• #14

Merci Sylvanu

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

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 19 Avril 2022

• #15

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

 

Pièces jointes

• 6ABC5157-84E8-4ADF-B26F-D584720740EF.png

  862.1 KB · Affichages: 13

Vote positif 0 Vote négatif