Modifier une fonction d’inversion

Fermé

ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 2024 - 1 août 2019 à 11:02
DjiDji59430 Messages postés 4234 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 5 mai 2025 - 2 août 2019 à 16:19

Bonjour à tous ;)

j'ai la formule suivante qui inverse les mots qui ont un maximum de 6 lettres :

=DROITE(A1;1)&STXT(A1;NBCAR(A1)-1;1)&SI(NBCAR(A1)>2;STXT(A1;NBCAR(A1)-2;1);"")&SI(NBCAR(A1)>3;STXT(A1;NBCAR(A1)-3;1);"")&SI(NBCAR(A1)>4;STXT(A1;NBCAR(A1)-4;1);"")&SI(NBCAR(A1)>5;STXT(A1;NBCAR(A1)-5;1);"")&SI(NBCAR(A1)>6;STXT(A1;NBCAR(A1)-6;1);"")

Quelqu'un pourrait me le modifier pour qu'elle puisse fonctionner avec 11 lettres ?

Merci

Configuration: Windows Seven sur PC et Mac osX 10.4.10 Ipad 2
Camino

A voir également:

Modifier une fonction d’inversion
Modifier dns - Guide
Fonction si et - Guide
Modifier liste déroulante excel - Guide
Modifier une story facebook - Guide
Comment modifier un pdf - Guide

3 réponses

Réponse 1 / 3

DjiDji59430 Messages postés 4234 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 5 mai 2025 698
1 août 2019 à 11:16

Bonjour à tous,

=DROITE(A1;1)&STXT(A1;NBCAR(A1)-1;1)&SI(NBCAR(A1)>2;STXT(A1;NBCAR(A1)-2;1);"")&SI(NBCAR(A1)>3;STXT(A1;NBCAR(A1)-3;1);"")&SI(NBCAR(A1)>4;STXT(A1;NBCAR(A1)-4;1);"")&SI(NBCAR(A1)>5;STXT(A1;NBCAR(A1)-5;1);"")&SI(NBCAR(A1)>6;STXT(A1;NBCAR(A1)-6;1);"")&SI(NBCAR(A1)>7;STXT(A1;NBCAR(A1)-n;1);"")& etc ....
Tu ajoutes jusqu’à 11
&SI(NBCAR(A1)>n;STXT(A1;NBCAR(A1)-n;1);""), n allant de 7 a 11

Crdlmt

Réponse 2 / 3

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
1 août 2019 à 11:35

Bonjour à tous les deux

Comme elle est un peu lourde, tu pourrais tenter une fonction personnalisée (macro) nettement plus lisible
Elle s'utilise comme une fonction excel
Alt-F11 pour accéder au code (dans Module 1)
Il te faudra enregistrer le fichier avec le type .xlsm (Fichier/enregistre sous/ Type etc ...)

Option Explicit

Public Function InverseMot(m As String, lm As Byte) As String
If Len(m) <= lm Then
  InverseMot = StrReverse(m)
Else
  InverseMot = m
End If
End Function

https://mon-partage.fr/f/yBOHBNAY/

Cdlmnt

ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 2024 4
1 août 2019 à 17:01

Merci ccm88 ;)
Je n’ai pas accès aux macros (je suis sur un Ipad).

Merci Djidji ;)

Ca marche super mais j’ai un problème de tri.
Quand je trie, certains mots à l’envers ne sont pas au bonne endroit.
Il semble que ces mots ont un espace devant.
Comment fait-on pour supprimer un espace devant une formule ?

ecipsoH
edairéM
ediclA
egèhplE
enègolihP
enèhtsoS
epicnirP
epraciloP
eriognirG
nilusrU
nimixaM
nohtagA
rodilihP
boJ
cinordnA
cirbA
cirfluV
civoduL
cueirB
deirfgeiS
dlabihcrA

Réponse 3 / 3

ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 2024 4
Modifié le 1 août 2019 à 17:12

3
ptéranodon 2 - 1 août 2019 à 17:01
Merci ccm88 ;)
Je n’ai pas accès aux macros (je suis sur un Ipad).

Merci Djidji ;)

Ca marche super mais j’ai un problème de tri.
Quand je trie, certains mots à l’envers ne sont pas au bonne endroit.
Par exemple les "n" arrivent trop tôt dans le tri et le "b" trop tard.
Il semble que ces mots ont un espace devant.
Comment fait-on pour supprimer un espace devant une formule ?

ecipsoH
edairéM
ediclA
egèhplE
enègolihP
enèhtsoS
epicnirP
epraciloP
eriognirG
nilusrU
nimixaM
nohtagA
rodilihP
boJ
cinordnA
cirbA
cirfluV
civoduL
cueirB
deirfgeiS
dlabihcrA

DjiDji59430 Messages postés 4234 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 5 mai 2025 698
1 août 2019 à 17:39

Essaye en faisant précéder ta formule par supprespace(ta formule)

Crdlmt

ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 2024 4
Modifié le 1 août 2019 à 18:12

Comme ça ?

SUPPRESPACE(=DROITE(A1;1)&STXT(A1;NBCAR(A1)-1………)

Si oui quand je fais cela j’ai une alerte qui me dit de mettre une apostrophe devant = au tout début.
(‘=)
Mais ça ne fonctionne pas…

DjiDji59430 Messages postés 4234 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 5 mai 2025 698
2 août 2019 à 16:19

=SUPPRESPACE(DROITE(A1;1)&STXT(A1;NBCAR(A1)-1………)

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...