Discussion :

[bassiste]

slt est-ce qu'il est possible sans utiliser de bdd d'insérer dans un tableau des valeurs à partir d'un textbox?

Code :

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

1
2
3
 
Public TabNombres(1 To nb_nbre) As Integer
TabNombres(5) = nouveau_nbre.Text

Merci

[ucfoutu]

Bonsoir,

Bien évidemment !

Encore faut-il que :
- tu saisisses dans ta textbox nouveau_nbre des valeurs numériques du type (integer) de ton tableau
-tu alimentes ton tableau par la valeur numérique saisie (pas la chaîne de caractères)

Code :

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

1
2
3
4
5
6
Private TabNombres(1 To 10) As Integer
 
Private Sub Command1_Click()
  TabNombres(5) = Val(nouveau_nbre.Text)
   MsgBox TabNombres(5)
End Sub

Mais tu as peut-être mal exprimé ce que tu veux ...
Si ton tableau doit s'allonger à chaque saisie, tu fais la même chose, mais en utilisant Redim Preserve et en te référant au Ubound de ton tableau pour rajouter à sa fin...
Lis ce que te dit ton aide en ligne sur ces deux mots en gras.

[bassiste]

je viens d'essayer ce code, il marche mais ne fais pas ce que je demande, en faite je veux qu'à chaque exécution s'affichent les nombres que j'avais inserer auparavant mais j'ai des zéros à la place

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form_Load()
'On fait appel à la procédure pour charger la liste des nombres
 
Call Charger_nombres
 
Dim i As Integer
 
For i = 1 To UBound(TabNombres)
    lst_nombres.AddItem (TabNombres(i))
Next i
 
End Sub

La listbox reçoit toutes les valeurs numériques, les msgbox me les renvoient aussi mais quand j'arrete le script tout disparait et j'ai encore des zéros à la place.

[ucfoutu]

La listbox reçoit toutes les valeurs numériques, les msgbox me les renvoient aussi mais quand j'arrete le script tout disparait et j'ai encore des zéros à la place.

Que veux-tu dire par "quand j'arrête le script" ? Que tu quittes l'application ?
Si oui, c'est tout-à-fait normal que tu ne retrouves pas les valeurs saisies lors d'une session antérieure de ton appli...
Si tu veux les retrouver, il te faut les stocker en dur sur ton disque (fichier texte, fichier Ini ou base de registre), et les relire et les charger à l'ouverture de ton application.
En d'autres termes : VB ne garde pas les valeurs des variables calculées ou définies dynamiquement.

[bassiste]

oui je parlais de l'arrêt de l'application, donc on ne peut pas
merci

[ucfoutu]

Tu le peux !
Mais en faisant comme je te l'ai précisé.
Ouvre ton aide en ligne sur le mot Open, dèjà ...
Celà commencera à t'apprendre comment ouvrir un fichier dynamiquement, y écrire, y lire... (depuis ton appli VB).
Ce n'est pas la seule solution de conservation de tes valeurs sur ton disque, mais c'est celle que tu pourras le plus facilement adopter.