Saisie d'une série en masse [Résolu]

Messages postés
144
Date d'inscription
dimanche 24 avril 2011
Dernière intervention
16 juin 2016
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
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.
Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.