Pb pour enlever la fin d'un mot s'il est trop grandRésolu

Question

Coucou tout le monde!!

Voila, g un petit pb de chaine.
Dans mon prog je compte le nombre de lettres dont se compose un mot, et si ce nombre est plus grand que 30, alors il faut que j'enl&#232;ve les derni&#232;res lettres pour qu'il soit egale &#224; 30.
Savez vous comment je pourrais faire pour enlever les lettres en trop? Il ya t il des fonctions? ou d'autres solutions?

Merci bcp bcp d'avance.

BIz

espadon2 · Accepted Answer

Alors tout d' abord salut ndsaerith

Voila une fonction qui renvoie ton mot tronquer si sa longeur est superieur &#224; 30,sinon elle te renvoie le mot tel quel :
--------------------------------------------------------------------------------------
   Function TronqueChaine(aChaine As String)
   Dim myChaine As String


   If Len(aChaine) > 30 Then
       ' prend les 30 premiers caracteres de la chaine
       myChaine = Mid(aChaine, 1, 30)
   Else
       myChaine = aChaine
   End If

   ' retourne du mot tronquer ou pas


   TronqueChaine = myChaine
   End Function
--------------------------------------------------------------------
il ne te reste plus qu' a l'appeller cette fonction :
exp:

dim mot as string
' un mot de 40 caracteres
mot = "0123456789012345678901234567890123456789"

mot =TronqueChaine(mot)
' maintenant le mot est tronquer
MsgBox mot
' affiche "012345678901234567890123456789" c a d un mot de 30 ' caracteres...

en esp&#233;rant repondre a ta question .... bonne journ&#233;e et bon programmation
  SALUT 

espadon

mrdep1978 · Answer

Est-ce que &#231;a &#231;a suffit, ou y a une subtilit&#233; que j'ai pas pig&#233;e ?

Dim ls_MonMot as String
ls_MonMot = "12345678901234567890123456789012345678901234567890"
debug.print Left(ls_MonMot, 30)

ndsaerith · Answer

Heu ben &#231;a marche pas, en fait si je teste avec un si len(monmot)>30 et que je met le code debug.print dedan, il rentre m&#234;me pas dans la boucle, dc g enkev&#233; le si au cas ou peut etre &#231;a suffi de mettre le dbug.print, mais il passe dessus comme si il n'existait pas. G toutjours la m&#234;me erreur.
En fait je veut renommer des feuilles escel, mais le pb c que si le nom d&#233;passe 31 caract&#232;res, &#231;a bug l'appli en mettant un message qui dit que le nom est trop long.
C'est pour &#231;a que je veux le v&#233;rifier et le couper s'il est trop grand.
Alors, voyez vous ce qui ne va pas?

BIz

ndsaerith · Answer

En fait g pas r&#233;fl&#233;chi en effet il faut bien que mon mot une fois tronqu&#233; aille dans une var, car en fait &#224; l'instant, je reprend monmot, et dc c celui que je prend comme ref pour le tronquer mais c pas le mot final, je pense que c pour &#231;a que &#231;a marche pas.
Je vais essayer.

Merci.

BIz

espadon2 · Answer

debug.print sert a affichier qqchose dans la console d 'execution pas a faire qqchose , c'est juste utile pour debugger une appli, pour tracer tes variables

espadon

ndsaerith · Answer

Oki &#231;a marche nikel :-) :-) :-)

Je vous remercie bcp bcp

BIz

Pb pour enlever la fin d'un mot s'il est trop grand

6 réponses

Discussions similaires