pour numéroter les bases de données qui seront crées
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub ListeModif1_Change()
Text1.Text = ListeModif1.Text
Text1.Refresh
Text2.Refresh
'Le compteur de ListeModif1 commence à 0, Array à 1
num = ListeModif1.ListIndex + 1
Text1.Text = BD(num)
Text2.Text = infosBD(num)
End Sub
quand j'éxécute sa me met indice en déhors de la plage
merci de m'aider