Discussion :

[hurukan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[hurukan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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