Bonjour,

Tout est dit dans le titre, j'aimerai faire tab(i++)="une chaine de caractère"

J'ai un tableau (ou je veux mettre plusieurs string) et j'avance dans ce tableau via une variable Index.
J'ai déjà été dessus quand j'ai appris que ++ ne fonctionne pas en vba...
Donc j'ai utilisé cette fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Function Incr(IndexTabDeviceCfg As Long)
     IndexTabDeviceCfg = IndexTabDeviceCfg + 1
     Incr = IndexTabDeviceCfg
End Function
Dans ma tête cela devait marcher :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
TbForDeviceCfg(Incr(IndexTabDeviceCfg)) = "# " & CurrentName
Mais l'incrémentation ne se passe pas.

Par contre si je fais cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
TbForDeviceCfg(IndexTabDeviceCfg = Incr(IndexTabDeviceCfg)) = "# " & CurrentName
Cette fois l'incrémentation se passe bien mais malheureusement le string n'est pas mis dans le tableau...


Est ce que vous auriez une solution ou une idée de comment faire ?

Je vous remercie d'avance !