Discussion :

[zinebs]

Bonjour,

Je suis une novice en macro et j'ai besoin d'un petit coup de pouce pour commencer...
Le but de ma macro est de mettre sous un format intelligible une bdd pour eviter de passer trop de temps a faire des pivots & co.

Organiser les donnees par reference et pour chaque reference, donner le split par region puis pays.

Actuellement les donnees sont sous cette forme la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Reference - Reg - Ss Zep - Qte janv - Fev - Mar etc... 
 
F43......- AM  - Mexique- 10 - 13 - 12 etc 
F43......- AM  - Bresil - 2 - 3 - 4

Et je cherche a les mettre sous cette forme la

Cell fusionnee sur 3 lignes Reference Region
AM- Europ - Asie
Mexique, Bresil/ Fr, Italie/Chine...-

Pouvez vous me donner des pistes pour un gain de temps optimal?
Je vous remercie par avance,

Zeineb

[zazaraignée]

Montre nous le code que tu as fait et qui te pose problème.

Et surtout, explique un peu mieux. Je ne suis pas certaine d'avoir compris quelque chose... Tu n'as pas spécifié quel type de base de données, ni si tu les importes vers ton fichier Excel ou si tu les exporte depuis Excel vers la base de données.

De plus, je n'ai pas compris l'organisation de tes données. Ni ce que viennent faire les cellules fusionnées qui ne sont pas recommandées quand on veut importer ou exporter des données.

[zinebs]

Le probleme que j'ai est que je n'arrive pas a exprimer dans le language VBA mes conditions

La bdd est organisee de la maniere suivante:
on part d'une reference et on deroule la quantite commandee par region (en ligne) et ensuite par sous region (toujours en ligne). Les quantites commandes sont en colonne.
Exemple
ref F400
pour Europe France
pour Europe Italie
pour Europe Belgique
Pour AMER Mexique
Pour AMER USA

Ce que je cherche a obtenir, plutot que de faire plusieurs tableaux croises dynamiques, c'est de faire un tableau recap simplifie avec les regions/ss zep en colonne et les references en lignes.
En fonction de la reference,de la region et de la sous zep; attribuer la quantite precisee dans la bdd.
Cela ressemble a ca :

reference region
----------------------AMER
------------------USA/MEXIQUE
F400-------------2 /5

Et ainsi de suite...

Voila ce que j'ai fait jusqu'a present mais il semblerait que je sois loin du compte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sheets("FM Run").Select
    Range("B2:AD837").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A4").Select
Sheets("FM Report").Select
Dim REFERENCE As Variant
For Each Rw In Selection.Rows
 
 If Rw.Cells("C")= "" Then go to "REGI". Select cell.
 If "REGI"= (AMER"Or"EURO"Or"TRAV"Or"ASIE") Then select SS ZEP
 import destination:=Worksheets("FM Run").
 Cells(Ligne, 6).EntireRow
 Rw.Import Destination:=Worksheets("FM Run").Cells(Ligne, 1).EntireRow
 
 
 "D rows"Value =
 
 
 
    Cells.EntireRow.AutoFit
    Range("A4:AL837").Select
    Selection.Sort Key1:=Range("M2"), Order1:=xlDescending, Key2:=Range("C2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("A1").Select
End Sub

Merci par avance pour votre aide,
Zeineb

[oshab]

Bonsoir,

Peux tu mettre un fichier en ligne pour exemple, stp ?

[zinebs]

Bonsoir,

Merci de votre aide.
Vous trouverez ci joint mon fichier de travail.
la sheet FM Run est la bdd brute et la sheet FM Report est le format recherche.

Zeineb

[oshab]

Bonjour,

je viens de récupérer ton fichier et je ne te cache pas que j'ai eu un peu de mal à comprendre ce que tu voulais.

Après avoir étudier tes besoins et ta macro (qui ne ne fonctionne pas) je pense que cela est tt à fait faisable.

Je te mettrais un fichier en ligne lorsque j'aurais fini.

@+

[zinebs]

Bonjour,

Est-il possible de me m'expliquer la logique a suivre pour ecrire la bonne macro.

ci joint le lien pour jeter un coup d'oeil a mon chef d'oeuvre qui ne fonctionne pas et qui est incomplet.

http://www.cijoint.fr/cij35213625931426.zip

Merci
Zinebs