Salut nullos
voilà un petit exemple de code qui te permet de séparer tes chaines de caractères sans problème quelque soit le nombre d'élément.
Code :
- Sub SeparerChaine()
- Range("B1" ).Value = "D1/D5/G6/F4"
- Dim MonSplit, i As Integer
- MonSplit = Split(Range("B1" ).Value, Chr(47))
- For i = LBound(MonSplit) To UBound(MonSplit)
- Range("A" & i + 2).Value = MonSplit(i)
- Next i
- End Sub
|
Regardes ce que ça te donnes. Je pense que tu devrais réussir à l'adapter dans ton code.
Pour ta recherche des éléments et les remplacement pas par la valeur en toutes lettres. une boucle sur ta base devrait te permettre d'y arriver. Si tu as besoin d'aide la dessus, il faudra que tu sois plus clair sur comment sont stockées tes données (exemple : colonne A : D1, D5... / Colonne B les valeurs correspondantes)
@+
---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)