Salutations.

Je me suis planté souvent avec le nombre de datas à charger dans une table : trop ou pas assez ! Alors, je te propose un petit programme pour éviter ce genre de désagrément.
Par mesure de simplification, je n'ai traité que des données alphanumériques. Un petit aménagement permettrait de traiter tous les types de données (tables différentes et points de restauration multiples avec Départs différents.

DEFSTR A-Z ' ***** NBDATA.BAS
ON ERROR GOTO GS99.ERREUR
Nb.Data% = 3000
A01.DEPART:
' * DYNAMIC
REDIM Vd(Nb.Data%) AS STRING * 10
Etape% = 1
FOR I% = 1 TO Nb.Data%: READ Vd(I%): NEXT I%
Etape% = 0
LOCATE 10, 10: COLOR 11: PRINT USING "Nombre de données : ####"; Nb.Data%
LOCATE 12, 10: PRINT USING "La dernière est : &"; Vd(Nb.Data%)
END
A99.RESTAURATION.DATAS:
DATA "1","2","3","4","5","6","7","8","9","10","11","12","13","a","z","e","r","t"
DATA "y", "u", "i", "o", "p", "q", "r", "s", "t","u","i","o","p","q","s","d"
GS99.ERREUR:
IF Etape% = 1 AND ERR = 4 THEN
RESTORE A99.RESTAURATION.DATAS
Nb.Data% = I% - 1: RESUME A01.DEPART
END IF

Dernièrement, je demandais à diemaker form de rectifier le DIM en fonction du nombre de datas. Avec le principe ci-dessus, cela se fera automatiquement et Billy s'en chargera.
Il te faut tester ce programme en ajoutant des données (entre ") ou en en retranchant.
Attention : il est interdit de mettre en fin de ligne DATA une remarque (' ligne 1, par exemple).

: D Salutations.