Discussion :

[jajoju]

Bonjour

Quelle est la fonction qui retranchent des caractères à un mot ?

Par exemple si je veux retrancher les caractères "TION" du mot "AVIATION"

Quand j'utilise Right("AVIATION",4), le résultat obtenu sera "AVIA" et non pas "TION"

Par contre je ne peux pas utiliser Left() parce que c'est toujours les 4 derniers caractères

de plusieurs mots de différentes longueurs que je veux retrancher.

ex.: Aviation, locomotion, variation, motion, notion, punition, action, etc...

Merci

[ClaudeLELOUP]

Bonjour,

Voici une fonction qui devrait le faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function AntiTion(LeMot As String) As String
  If LeMot Like "*tion" Then
      AntiTion = Left(LeMot, Len(LeMot) - 4)
  End If
 
End Function

[jajoju]

Bonjour,

Cette liste de mots "Lemot" apparaissent dans une zone de texte de mon formulaire.

Cette zone de texte est reliée à une requête.

C'est donc dans la requête que tout se passe.

Comment faire pour insérer votre fonction VBA dans la requête sous une autre forme ??

Peut-être qu'il n'est pas possible de faire apparaître des mots "tronqués" dans une zone de texte.

Merci

[ClaudeLELOUP]

Dans un module, tu colles ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit
 
Public Function AntiTion(LeMot As String) As String
  If LeMot Like "*tion" Then
      AntiTion = Left(LeMot, Len(LeMot) - 4)
  End If
End Function

Voici un exemple :

La requête :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT LaTable.UnMot, AntiTion([UnMot]) AS LeMotTronqué
FROM LaTable;

[jajoju]

Merci !