Microsoft 365 Supprimer des espaces insécables dans plusieurs colonnes

[moanin]

Bonsoir à tous



Comment supprimer des espaces insécables de mots qui sont dans plusieurs colonnes ?

Ex :

=SUPPRESPACE(G2;I2)

J'ai une erreur : "trop d'arguments".

Merci.

 

[TooFatBoy]

N'est-ce pas plutôt ?

=SUBSITUE(G2;CAR(160);"") et =SUBSTITUE(G2:I2;CAR(160);"")

Toutafé pour =SUBSITUE(G2;CAR(160);"")

En revanche pour =SUBSTITUE(G2:I2;CAR(160);""), je doute que le SUBSTITUE fonctionne sur plusieurs cellules à la fois.

 

[patricktoulon]

re
bonjour

En revanche pour =SUBSTITUE(G2:I2;CAR(160);""), je doute que le SUBSTITUE fonctionne sur plusieurs cellules à la fois.

si en matriciel

 

[R@chid]

Bonjour @ tous,
Le questionneur a demandé d'ajouter la fonction à des formules que je lui ai tissées dans une autre discussion.
=TRIER(UNIQUE(SUPPRESPACE(DANSCOL(CHOISIRCOLS(E2:Y275;SEQUENCE(10)*2+1);1;1))))
=LET(Plg;E2:Y275;Reals;DANSCOL(CHOISIRCOLS(Plg;SEQUENCE(10)*2+1);;1);Films;DANSCOL(CHOISIRCOLS(Plg;SEQUENCE(10)*2);;1);ChefOp;DANSCOL(SI(E1:N1=E1:N1;E2:E275;"");;1);FILTRE(ASSEMB.H(Films;ChefOp);(SUPPRESPACE(Reals)=$AE$1)))

 

[TooFatBoy]

si en matriciel

J'avais bien sûr essayé chez moi et ça ne fonctionnait bien sûr pas.
Je viens de réessayer et ça ne fonctionne toujours pas.

Pour info, je suis sous Excel 2016 32 bits.

 

[patricktoulon]

re
@TooFatBoy: ouais si tu veux
tiens j'essaie avec l'espace normal
ben change d'excel alors
on voit bien que je valide en matriciel non ?

 

[TooFatBoy]

ben change d'excel alors

Je crois que ce n'est pas mon Excel qu'il faut changer, mais plutôt mon cerveau : je viens de réessayer et là ça fonctionne !

J'pige pô quoi j'ai foutu...

 

[patricktoulon]

demo

 

[patricktoulon]

tu sais ce qu'on dit

l'erreur c'est toujours entre l'ecran et la chaise

 

[TooFatBoy]

Oui, je sais que c'est toujours l'ICC qui merdoie...

Avant c'était moi qui pestais après les ICC qui me dérangeaient pour des pannes imaginaires.
Maintenant c'est moi qui merdoie aussi...

 

[moanin]

Merci Gégé

Mais même problème !

 

[patricktoulon]

re

on peut avoir cette feuille SVP?

 

[TooFatBoy]

on peut avoir cette feuille SVP?

patricktoulon a raison : même si, logiquement ça devrait être des 160, si ça ne marche pas c'est peut-être que ça n'en sont pas...

 

[patricktoulon]

re
allez juste pour faire le kake
une petite fonction perso

Function ChangeAllCellpropertiesInRange(ByRef RnG As Range, prop As String)
    Dim R As Variant, Addr

    With RnG
        Addr = "'" & .Parent.Name & "'!" & .Address
        Select Case UCase(prop)


            'formule non matricielles
        Case "LOWER", "UPPER", "PROPER", "APPTRIM":
            prop = Replace(UCase(prop), "APPTRIM", "TRIM")
            R = Evaluate("IF(ISTEXT(" & Addr & ")," & UCase(prop) & "(" & Addr & "),REPT(" & Addr & ",1))")


            'formules matricielle
        Case "LTRIM": R = Evaluate("IF(ISTEXT(" & Addr & "),MID(" & Addr & ",FIND(MID(TRIM(" & Addr & "),1,2)," & Addr & ",1),LEN(" & Addr & ")),REPT(" & Addr & ",1))")

            'ancienne formule RTRIM qui fonctionne
            'Case "RTRIM": R = Evaluate("IF(ISTEXT(" & Addr & "),LEFT(" & Addr & ",FIND(""^^"",SUBSTITUTE(" & Addr & ",RIGHT(TRIM(" & Addr & "),1),""^^"",LEN(" & Addr & ")-LEN(SUBSTITUTE(" & Addr & ",RIGHT(TRIM(" & Addr & "),1),""""))))),REPT(" & .Address & ",1))")
            'nouvelle formule
        Case "RTRIM": R = Evaluate("IF(ISTEXT(" & Addr & "),LEFT(" & Addr & ",FIND(""§"",SUBSTITUTE(" & Addr & ",RIGHT(TRIM(" & Addr & "),1),""§"",LEN(" & Addr & ")-LEN(SUBSTITUTE(" & Addr & ",RIGHT(TRIM(" & Addr & "),1),""""))),1))," & Addr & ")")

        Case "TRIM": .Value = Evaluate("IF(ISTEXT(" & Addr & "),MID(" & Addr & ",FIND(MID(TRIM(" & Addr & "),1,2)," & Addr & ",1),LEN(" & Addr & ")),REPT(" & Addr & ",1))")
            R = Evaluate("IF(ISTEXT(" & Addr & "),MID(" & Addr & ",1,FIND(TRIM(RIGHT(SUBSTITUTE(TRIM(" & Addr & "), "" "", REPT("" "", 100)), 100))," & Addr & ",1)+LEN(TRIM(RIGHT(SUBSTITUTE(TRIM(" & Addr & "), "" "", REPT("" "", 100)), 100)))-1),REPT(" & Addr & ",1))")

        End Select
    End With

    ChangeAllCellpropertiesInRange = R
End Function

 

[patricktoulon]

re
sinon j'ai sa petite soeur aussi qui fonctionne en matriciel

Function TrimLeftAllCellsInRange(ByRef RnG As Range)
'supprime les espace devant le premier caracteres equivalent de "Ltrim" in one shoot
    With RnG
    TrimLeftAllCellsInRange = Evaluate("IF(ISTEXT(" & .Address & "),MID(" & .Address & ",FIND(MID(TRIM(" & .Address & "),1,2)," & .Address & ",1),LEN(" & .Address & ")),REPT(" & .Address & ",1))")
End With
End Function

puré c'est vieux ces fonctions ca rajeuni pas

 

[moanin]

Hello

Comme demandé, voici mon fichier :

https://we.tl/t-TXdTYNwGQd?utm_camp...urce=sendgrid&utm_medium=email&trk=TRN_TDL_05