Microsoft 365 Supprimer des espaces insécables dans plusieurs colonnes

patricktoulon à dit:

allez juste pour faire le kake
une petite fonction perso

Cliquez pour agrandir...

moanin n'a pas confirmé, mais je pense toujours qu'il est sur iPad et qu'il ne peut donc pas utiliser les macros VBA.
Mais attendons sa réponse à ce sujet.

---

Un fichier de 174 ko, tu peux le mettre en pièce jointe plutôt que de passer par un hébergeur externe. 😉

Pour info, il y a bien quelques 160, mais la plupart des espaces sont des 32.
Donc, perso, je pense qu'il faudrait commencer par normaliser tout ça, peut-être bien par exemple avec un truc du genre <Ctrl>+<H> et remplacer <Alt>+<0160> par <Espace>.

[edit]
Seulement trois "espace 160" trouvés dans la feuille "Ok Sans formule".
[/edit]

Merci 🙂
Effectivement je suis sur un Ipad.
Donc je ne peux faire le raccourci <Ctrl>+<H>
Ni <Alt>+<0160>
Comment faire ?

moanin à dit:

Effectivement je suis sur un Ipad.

Cliquez pour agrandir...

Merci 😉


En G82 de la feuille "Ok Sans formule" tu as un "espace 160" en fin de contenu.
En L26 aussi.
Ainsi qu'en H221 (un "espace 160" suivi d'un "espace 32" au milieu du contenu).

re
Ah ouais!!! déjà que sur MacBook c'est compliqué sur Ipad alors !!??
alors bidouiller une sacré formule
du genre par exemple
en A1 j'ai " aaa bbb cc dddd eee"
en b1 je met

=DROITE(A1;NBCAR(A1)-CHERCHE(GAUCHE(SUBSTITUE(A1;CAR(32);"");1);A1;1)+1)

Cliquez pour agrandir...

le principe
je substitue le 32
je prend le gauche 1 de la substitution
je cherche l'index le gauche1 de la substitution
et je prend le droite de l'entier- le l'index trouvé + 1
à essayer sinon on ajoute le 160 a la substitution provisoire
du genre ça

=DROITE(A1;NBCAR(A1)-CHERCHE(GAUCHE(SUBSTITUE(SUBSTITUE(A1;CAR(160);"");CAR(32);"");1);A1;1)+1)

Cliquez pour agrandir...

ou bien encore celle ci

=STXT(A1;CHERCHE(GAUCHE(SUBSTITUE(SUBSTITUE(A1;CAR(160);"");CAR(32);"");1);A1;1);9^9)

Cliquez pour agrandir...