tab(i++)="string" en VBA

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:

---

1 2 3 4

Function Incr(IndexTabDeviceCfg As Long) IndexTabDeviceCfg = IndexTabDeviceCfg + 1 Incr = IndexTabDeviceCfg End Function

---

Dans ma tête cela devait marcher :

Code:

---

TbForDeviceCfg(Incr(IndexTabDeviceCfg)) = "# " & CurrentName

---

Mais l'incrémentation ne se passe pas.

Par contre si je fais cela :

Code:

---

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 !

Salut

Il faut que tu réalises une boucle, VB est bien plus verbeux que ça ;)

Par exemple

Code:

---

1 2 3

For i = 0 to 15 tab(i) = "...." Next

---

Mais tu as aussi les boucles Do Loop/Until/While :f1:

++
Qwaz

Function Incr(IndexTabDeviceCfg As Long)
// passage par valeur + fonction de type void en c++ : il n'y a pas de valeur de retour ni de modification de index???

il faudrait corriger par

Code:

---

1 2 3 4 5 6 7 8

Function Incr(byref IndexTabDeviceCfg As Long) ' passage par ref IndexTabDeviceCfg = IndexTabDeviceCfg + 1 End Function   'puis Incr(IndexTabDeviceCfg) TbForDeviceCfg(IndexTabDeviceCfg) = "# " & CurrentName

---

ou

Code:

---

1 2 3 4 5 6 7

Function Incr(IndexTabDeviceCfg As Long) as long ' type du retour de la fonction incr = = IndexTabDeviceCfg + 1 'valeur retourner End Function   'puis TbForDeviceCfg(incrIndexTabDeviceCfg) )= "# " & CurrentName

---

je commence a apprendre le c++, le plus dur est de ne pas mettre de ";" partout quand je reviens en vba ;)

et

Code:

---

1 2	TbForDeviceCfg(IndexTabDeviceCfg = Incr(IndexTabDeviceCfg)) = "# " & CurrentName

---

donne
- IndexTabDeviceCfg = Incr(IndexTabDeviceCfg) : vrai ou faux … 1/0
la chaine est affectee a tb|1 ou de 0]

Bonjour,

Sogedic si tu étais à coté de moi je te ferais un calin !

Déjà bien vu pour ma condition qui faisait que j'écrivais dans la ligne 1 de mon tableau parce que ma condition était à true...

Ensuite j'ai pas bien compris ça : (avec les deux égales)
incr = = IndexTabDeviceCfg

J'ai modifié un peu ta solution mais ça marche maintenant

Code:

---

1 2 3 4

Function Incr(ByRef IndexTabDeviceCfg As Long) As Long ' type du retour de la fonction Incr = IndexTabDeviceCfg + 1 'valeur retourner IndexTabDeviceCfg = Incr End Function

---

Code:

---

TbForDeviceCfg(Incr(IndexTabDeviceCfg)) = "# " & CurrentName

---

J'ai remis par Référence (mais d'ailleurs c'est pas par référence de base ?) parce que sinon ma variable IndexTabDeviceCfg était incrémenté mais juste dans ma ligne d'affectation du string dans le tableau. Comme ça j'incrémente la variable en général dans mon main.

En tout cas un grand merci à toi !

Salut

Du coup pour essayer d'avoir un câlin, je propose de carrément implémenter le inc (que je connais) de Delphi.

Code:

---

1 2 3 4

Function Incr(ByRef IndexTabDeviceCfg As Long, Optional Pas As Long = 1) As Long ' type du retour de la fonction Incr = IndexTabDeviceCfg + Pas 'valeur retourner IndexTabDeviceCfg = Incr End Function

---

Ça peut-être pratique comme façon de faire, du coup je le note, merci à vous deux.

++
Qwaz