Bonjour,
Certaines de mes cellules contiennent des chaines de caractères sur le format 1, Truc, chouette | 2, Chose | 3, Bidule | 4, Machin
Je souhaiterais en VBA remplacer les virgules suivant des chiffres (et uniquement celles-ci) par un signe = pour obtenir à la place : 1= Truc, chouette | 2= Chose | 3= Bidule | 4= Machin.
J'ai essayé :
codage = Replace(Sheets(1).Range("A" & i).Value, ", ", "=")
Evidemment ça remplace toutes les virgules, y compris celle entre truc et chouette.
J'aimerais pouvoir faire un truc ressemblant à
codage = Replace(Sheets(1).Range("A" & i).Value, "#, ", "=")
mais qui marche, avec # codant pour un chiffre.
Je pourrais faire les 10 cas possibles mais je me dis qu'il doit y avoir moyen d'utiliser en VBA le caractère joker pour un nombre non ? Au moins pour trouver la position des virgules qui m'intéressent en laissant les autres de côtés.
J'ai cherché et ai trouvé la Microsoft vbscript regular expression. Mais avant de me lancer la dedans, je me demandais s'il n'existait pas de trucs plus simples...
Merci d'avance pour votre aide !
Bonne après-midi,
Partager