Bonjour,
première erreur constatée : vous dimensionnez Dim tab1()
et dans la suite du code vous faites appel à tab() et tab1() n'est pas égal à tab() !!!
Dim tab1()
c'est bon, vous ne connaissez pas la taille de votre tableau donc on ne le dimensionne pas
si vous connaissez sa dimension (par exemple 10 variables) alors :
Dim tab1(9)
en effet le premier index d'un tableau est le "0" donc pour 10 "cases" 10 index on a bien :
0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 !
Ceci peut être modifier avec l'instruction :
Base 1
en début de code qui indique à VBA que le premier index des tableaux est "1" ce qui a pour conséquence pour un tableau de taille connu de dix variables de le déclaré par
Dim tab1(10)
Donc dans votre code tab1() est bon
avant vous avez :
Dim nbitem As Integer
nbitem = ListBox2.ListCount
nbitem correspondra à la taille de votre tableau donc l'idéal serait d'écrire ceci :
Dim nbitem As Integer
nbitem = ListBox2.ListCount
Dim tab1(nbitem)
For i = 0 to nbitem-1
tab1(i)=ListBox2.List(i)' ici il n'y a que i et non pas (0,i) car votre tableau n'a qu'une dimension !
Next i
aller bon courage vous êtes sur la bonne voie
j'ai coutume de dire :
c'est en forgeant qu'on devient forgeron et
c'est en sciant que Léonard de Vinci
(d'autres rajoutent quelque fois)
c'est en déconnant que l'on devient c..
@ bientôt
LouReeD