[VBA macro] Comment remplacer un caractère à une position donnée

Salutations,

Je viens de passer dix-huit heures pour essayer de faire en sorte que ce qu'en C serait fait les deux doigts dans le nez...

Code:

---

for(int position=0;position<4;position++) Signature[position]=codegroupe[position]

---

Le soucis c'est qu'apparemment en VBA ça ne marche pas du tout ce genre de truc

Code:

---

1 2 3 4 5 6 7

Test.getCellByPosition(3,19).String=CodeGroupes(0) Test.getCellByPosition(3,20).String=CodeGroupes(1) Test.getCellByPosition(3,21).String=CodeGroupes(2) Test.getCellByPosition(3,22).String=CodeGroupes(3) Test.getCellByPosition(3,23).String=CodeGroupes(4) Test.getCellByPosition(3,24).String=CodeGroupes(5)

---

Le but du jeu c'est de mettre CodeGroupe(0 à 3) dans Signature pour constituer une signature comme "DAFC" par exemple...

Code:

---

1 2 3

Dim CodeGroupes(5) AS String Dim Signature AS String

---

J'ai essayé avec Integer, Byte, Char (ça ne marche pas du tout)... rien à faire la chaîne Signature reste vide...

J'ai beau chercher sur le net, apparemment il n'y a rien de simple en VBA pour remplacer un caractère d'une String...
en tous cas toutes les solutions proposées déclenchent des exceptions ou des erreurs ou ne remplissent pas ce que j'attends -> simplement remplacer un caractère de la chaîne Signature à une position donnée (0 à 3)

Ca va j'ai trouvé... pas simple du tout...

Code:

---

1 2 3 4 5

Signature="ZZZZ" FOR Position = 0 TO 4 Signature=Replace(Signature,"Z",CodeGroupes(Position),count:=1) Next Position MsgBox Signature

---

J'avais fait comme ça et ça foirait bien proprement:

Code:

---

1 2 3 4 5 6

Signature="ZZZZ" FOR Position = 0 TO 4 Signature=Replace(Signature,"Z",CodeGroupes(Position),1) Next Position MsgBox Signature

---