[Excel]VBA Like

Résolu
Foreverson Messages postés 244 Statut Membre -  
Foreverson Messages postés 244 Statut Membre -
Bonjour,
j'ai besoin de travailler avec des expressions régulières sur Excel, il faut je crois passer par like mais je n'y connais pas grand chose...

Voici mon problème : j'ai une chaîne de caractères, et je voudrais supprimer tout ce qui se trouve à gauche du premier "." trouvé (en partant de la droite).

ex : "abcdef.ghijk.lmno" doit donner "lmno"

Merci de bien vouloir m'aider

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    es - tu obligé de passer par des regex ?
    cela se fait facilement en vba avec une fonction split...
    (+ dur par formule)

    like n'est pas lié au regex

    tu dis...
    0
    1. Foreverson Messages postés 244 Statut Membre 27
       
      Non non je ne suis pas obligé, toute solution est bonne à prendre.

      J'ai très peu de connaissances en VBA, passer par les regex était simplement une hypothèse.
      0
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Re, 

      Fonction personnalisée valable quelque soit le nombre de points >0: utilisation par insertion-fonction- fonction personnalisée

Function extraire_der(cellule As Range) As String
'----extrait le groupe après le dernier point d'un texte dans une cellule

'teste si il ya un point dand le texte
On Error GoTo erreur
Point = cellule.Find(".")

'extrait le groupe
tablo = Split(cellule, ".")
extraire_der = tablo(UBound(tablo))

erreur:
End Function


      ci joint maquette:
      http://www.cijoint.fr/cjlink.php?file=cj201006/cijwoSOSxe.xls


      cordialement
      Michel
      0
  2. Foreverson Messages postés 244 Statut Membre 27
     
    Merci de ton aide, je vais essayer ça.

    Je passe le sujet en résolu pour le moment.
    0