Caractère joker en VBA

Version imprimable

05/03/2018, 14h25
laurent_42

Caractère joker en VBA

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é :

Code:

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 à

Code:

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,
05/03/2018, 15h02
kiki29

Salut, de la lecture

Traitement sur les cellules sélectionnées :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
Dim C As Range, i As Long
 
For Each C In Selection
    i = InStr(C.Value, ",")
    If i > 0 Then
        If Mid(C.Value, i - 1, 1) >= "0" And Mid(C.Value, i - 1, 1) <= 9 Then
            C.Value = Replace(C.Value, ", ", "=", 1, 1)
        End If
    End If
Next C
 
End Sub

05/03/2018, 15h47
laurent_42

Merci beaucoup pour vos 2 réponses.

Pour kiki29, j'avais pensé au LIKE mais je n'étais pas allé plus loin puisque si j'ai bien compris le like recherche "une chaine débutant par ...", non ? Or j'ai des suites chiffre+virgule à plusieurs endroits dans la chaine. Donc j'avais abandonné. Ceci dit, j'aurais pu scinder ma chaine dans un tableau selon le pipe. Et là chaque sous chaine aurait commencé par un chiffre+virgule. Y avait de l'idée ! :-)

Pour laurent_ott, j'aime bien, c'est élégant. Je suis parti de ton idée pour résoudre ma difficulté. Comme quoi, je n'ai pas poussé assez loin ma réflexion sur la construction de la chaine et je n'ai pas pensé à regarder si le caractère avant est un chiffre. Arg !

Merci en tous les cas de votre réactivité !

Bonne fin de journée,