Saisie d'une série en masse

Résolu
galaxy2009 Messages postés 144 Date d'inscription dimanche 24 avril 2011 Statut Membre Dernière intervention 16 juin 2016 - 5 avril 2013 à 17:14
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 5 avril 2013 à 19:22
Bonjour,
voilà mon probléme, je veux saisir d'un seul coup une série de numéro concernant un seul produit, je m'explique :
j'ai une série de 500 pièces d'un produit codifié comme suit :
80A 2001
80A 2002
ainsi de suite juqu'au .....
80A 2500
alors comment faire pour entrer cette série sans la saisir une par une.
aussi, je veux quand que je cherche un code il s'affiche comme il est.

merci de m'aider......


galaxy2009

2 réponses

Utilisateur anonyme
5 avril 2013 à 17:35
Bonjour,

Non testé (VB indisponible à cause de l'installation de VB 2012 Update 2)

Const Base as integer = 2000
Const AuBout as integer = 500
Sub 2500Numéros()
   dim AGgauche as string = "80A "
   dim ADroite as string = String.empty
   dim Nombre as integer = 0
   Dim Numéro as string = string.empty
   for i as integer = 1 to AuBout 
        Nombre = nombre + i
        ADroite = (Base +Nombre ).tostring
        Numéro = string.concat(AGauche,ADroite)
        Nombre +=1
   next
end sub
3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 236
5 avril 2013 à 19:22
Bonjour,
Cela me rappelle quelque-chose (lorsque j'étais en activité )
Etrange de chez étrange, mais nous avions également des paquets de 500 (je ne dis pas de quoi, bien que les codes/numéros ressemblaient curieusement aux tiens, à une lettre manquante près ).
Nous avions mis en place le système suivant :
Les paquets (les séries, par paquet, donc) étaient enregistrées en stock en format string (ex "80A 2001 - 80A 2500").
On ne les "développait" par N°s (par une boucle) que lorsque mises en service (et on sortait alors la série du stock des séries).
Et on ne pouvait mettre en service une série tant qu'une série en cours n'était pas complètement épuisée.
Facile à mettre en oeuvre.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
0