Saisie d'une série en masse

[Résolu]
Signaler
Messages postés
144
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
16 juin 2016
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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


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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
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.