Sujet Précédent Sujet Suivant

Modifier une fonction d’inversion

Fermé
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 2024 - 1 août 2019 à 11:02
DjiDji59430 Messages postés 4028 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 18 avril 2024 - 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:

3 réponses

Réponse 1 / 3
DjiDji59430 Messages postés 4028 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 18 avril 2024 644
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
0
Réponse 2 / 3
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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
0
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 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
0
Réponse 3 / 3
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 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
0
DjiDji59430 Messages postés 4028 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 18 avril 2024 644
1 août 2019 à 17:39
Essaye en faisant précéder ta formule par supprespace(ta formule)

Crdlmt
0
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 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…
0
DjiDji59430 Messages postés 4028 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 18 avril 2024 644
2 août 2019 à 16:19
=SUPPRESPACE(DROITE(A1;1)&STXT(A1;NBCAR(A1)-1………)
0

Discussions similaires

Touches majuscule et minuscule inversées sur mon clavier
popoloko -
person -

27 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
Excel:récupérer le contenu d'une cellule en fonction d'une autre
tinky31 -
leplot -

1 réponse