Suppression de caractères de droite

Question

Bonjour,

Soit les variables:      ACDEF.C.CO

                                  YHSFR:CNX

Je cherche une macro qui me permettrait de supprimer les caractères

à la droite du premier caractère non alphabétique à partir de la droite.

Donc, la variable    ACDEF.C.CO    deviendra  ACDEF.C  (j'enlève les caractères   .CO )

soit le premier point de droite et les caractères après ce point. (L'autre point n'est 

pas supprimé.)

l'autre variable     YHSFR:CNX   deviendra    YHSFR   (j'enlève les caractères   :CNX  )

 soit les points superposés et les caractères à leur droite.

À noter que s'il y a plus d'un caractère non alphabétique seul celui de droite

est supprimé.

Merci et bonne journée

Flac

Answer 1

Dans ce cas :

Sub test()

  Dim Var As String, I As Long

  Var = "FID230"

  For I = Len(Var) To 1 Step -1

    If (Mid(Var, I, 1) < "a" Or Mid(Var, I, 1) > "z") And _

      (Mid(Var, I, 1) < "A" Or Mid(Var, I, 1) > "Z") And _

      (Mid(Var, I, 1) < "0" Or Mid(Var, I, 1) > "9") Then

      Var = Left(Var, I - 1)

      Exit For

    End If

  Next I

  MsgBox Var

End Sub

Daniel

Answer 2

Boujour,

Merci, en plein ce que je voulais.

Bonne journée

Answer 3

Bonjour Daniel,

Merci pour la réponse, ça me convient mais j'aurais une contrainte supplémentaire.

Serait-il possible d'empêcher la suppression de chiffres dans le cas oû la chaine

ne contient pas de point ou de point superposé.

Je m'explique:

en roulant la macro,  la variable      "FID230"    devient      "FID23"

alors qu'il faudrait qu'elle conserve sa valeur de   "FID230"

Merci et bonne journée

Flac

Answer 4

Bonjour,

Teste (le résultat s'affiche dans une msgbox).

Sub test()

  Dim Var As String, I As Long

  Var = "YHSFR:CNX"

  For I = Len(Var) To 1 Step -1

    If (Mid(Var, I, 1) < "a" Or Mid(Var, I, 1) >= "z") And _

      (Mid(Var, I, 1) < "A" Or Mid(Var, I, 1) >= "Z") Then

      Var = Left(Var, I - 1)

      MsgBox Var

      Exit For

    End If

  Next I

End Sub

Cordialement.

Daniel