Problème pour une mise en forme grâce à VB

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème pour une mise en forme grâce à VB

steff23mj

Bonjour à tous, je travaille sur Excel en ce moment et dans le but de me simplifier la vie, j'aurais besoin d'un coup de main de votre part, s'il vous plaît ?

En fait je récupère de ma base de données un tableau dans lequel j’ai une quantité de produits par référence (référence 116 quantité 2, référence 330 quantité 3…), et je voudrais pouvoir retranscrire ces données sous une autre forme qui serait la suivante : avoir dans un tableau 1 ligne par référence fabriquée. Par exemple, si au départ je sais que j’aurai 2 référence 116 à fabrique, je voudrais avoir dans mon tableau de sortir 2 lignes avec la référence 116, puis 3 lignes avec la référence 330, …

Comment pensez-vous que je dois procéder, s’il vous plaît ? Je vous laisse un imprim écran qui est très représentatif.

Merci encore de l’aide que vous pourrez m’apporter
A++

Publicité

otobox

Maison fondée en 2005

Tu n'aurais pas moyen d'extraire les infos correctement formatées de la BdD ? (il y a un regroupement à retirer dans la requête probablement).

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

otobox

Maison fondée en 2005

Si tu ne peux pas modifier ta requête, voici une solution que, je pense, tu pourras adapter facilement :
(adapter la partie 'Initialisation des variables en fonction de tes numéros de colonnes et lignes)

Code :

Sub steff()
Dim colDataRef As Integer 'N° colonne contenant les références
Dim colDataQty As Integer 'N° colonne contenant les quantités
Dim colDataOut As Integer 'N° colonne contenant les données de sortie
Dim ligDataIn As Integer 'N° ligne contenant la donnée d'entrée
Dim ligDataOut As Integer 'N° ligne contenant la donnée de sortie
Dim strRef As String 'Variable contenant la référence
Dim intNb As Integer 'Variable numérique entière contenant la quantité
'Initialisation des variables
colDataRef = 1
colDataQty = 2
colDataOut = 4
ligDataIn = 1
ligDataOut = 1
'Parcours ligne par ligne des colonnes contenant
'les données d'entrée. Sort de la boucle quand la cellule
'lue est vide
Do
strRef = Cells(ligDataIn, colDataRef)
If strRef = "" Then Exit Do 'sort de la boucle si cellule vide
intNb = Cells(ligDataIn, colDataQty)
'Boucle le nombre de fois la quantité pour inscrire
'la référence dans la colonne de sortie
'Ne boucle pas si le Nb=0
Do Until intNb = 0
'Ecrit la référence dans la colonne de sortie
Cells(ligDataOut, colDataOut) = strRef
'Passe à la ligne des données de sortie suivante
ligDataOut = ligDataOut + 1
'Décrémente la quantité
intNb = intNb - 1
Loop
'Passe à la ligne d'entrée suivante
ligDataIn = ligDataIn + 1
Loop
End Sub

(TIP : Double clic dans la fenêtre du code ci dessus pour faire disparaître les n° de ligne avant de faire ton copier-coller)

Message édité par otobox le 22-11-2008 à 11:20:24

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

steff23mj

Génial, je me suis servi de ton code et tout marche !! Merci beaucoup
à+++++

otobox

Maison fondée en 2005

Tant mieux, c'était fait pour ça

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

steff23mj

Merci encore

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème pour une mise en forme grâce à VB

Sujets relatifs
problème de positionnement avec float [RESOLU]	Problème java.util.HashMap$KeyIterator@157f0dc
Problème url rewriting	Problème connexion base de données
Problème très curieux sur une page web	comment scroller dans une pile de texte (alignée en bas)?
Problème avec Internet Explorer IE6 et IE7: Afficher Derouler - cacher	Problème lecture des noeuds dans xslt
Problème Requete	[Résolu] Problème pour lire et écrire des fichiers pgm en C++
Plus de sujets relatifs à : Problème pour une mise en forme grâce à VB

Page générée en 0.054 secondes