Processing automatique grace au VBA

Bonjour la famille j'ai besoin de votre aide SVP et très urgent
Dans trois combobox en cascade je renseigne : le nom de la region en premier puis le nom du pays et ensuite le nom de la marque.
J’ importe des DATA dans les worksheets : Direct – Indirect –Supply
Et On a 6 autres feuilles ( Regions ) nommées comme suit :
• P_NA_Retail
• P_NA_HOD
• P_IT
• P_FRBE
• P_EUROPE
• P_AOA_Retail
• P_AOA_HOD
• P_Latam_Retail
le But est de concevoir une macro qui permet de calculer des sommes à partir des data importées ( pour chaque type de flux : direct - indirect - supply ) en filtrant deux critéres : type de material et type de transport. pour chaque marque choisie dans un pays dans une région.
Sachant que les chaque feuille = region
une feuille peut contenir plusieurs pays et sous chque pays il y'a plusieurs marques
J'esper étre claire dans ma question
Veuillez trouver en PJ Screen d'une feuille de calcul

SAlut,

et a quel niveau souhaites-tu avoir de l'aide ?
Quelles sont tes avancees actuelles ? as-tu un bout de code deja en place ?

:cristal:

Alors mon problème , c'est qu'après le choix de la region / pays / Marque et l'importation des fichier Direct - Indirect - Supply
j'ai besoin de calculer les différents Somme ( Comme marqué sur l'image ) par type de transport et Material type ( type de transport et material type ce sont des colonnes,parmi d'autres, dans chaque fichier importé ( Direct - Indirect - Supply )
Donc au début il faudra identifier le tableau de calcul à partir du choix de la region/pays/marque et puis commencer le calcul

Je suis vraiment debutant dans VBA et du coup j'ai réalisé ce petit code commme première partie mais je suis bloqué par la suite :

Sheets("Combobox1.value").select ' séléctionner la feuille région

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim i as long, m as long m = 0 for i=1 to 200 if combobox1.value = cells(2,i).value m = m +1 end if   Dim j as long , n as long n = 0 for j = 1 to 1000 if combobox2.value = cells(j,m).value cells(j,m).select end if Dim l as long , k as long k = 0 for j = 1 to 1000 if combobox2.value = cells(l,n).value cells(l,n).select end if

---

Salut,

les boucles For necessitent d'etre "fermees" avec un Next i

http://silkyroad.developpez.com/vba/boucles/
http://silkyroad.developpez.com/vba/boucles/#LIII

de plus la syntaxe du If est la suivante
If condition Then
http://laurent-ott.developpez.com/tu...a-tome-1/#LIII

Code:

---

1 2 3 4 5

for i=1 to 200 if combobox1.value = cells(2,i).value Then m = m +1 end if Next i

---

D'accord merci , mais est ce que vous pouvez me donner une piste ou idée pour résoudre ma problématique , parcque mon code en tout cas ne suffit pas

Bonjour à tous,

Je veux bien te donner un coup de main, mais une question parmi d'autres :
C'est un pack de 12 ou de 24, en plastique ou en verre, ... ?

Bonjour,

Ca ne serait pas plus simple que tu mettes tes données sous une forme de BDD correcte ?
http://www.xlerateur.com/divers/2010...e-donnees-612/
Ensuite avec des TCD tu sors toutes les analyses que tu veux, et tu pourras même compléter avec des segments pour ne prendre en compte que ce que tu veux voir.
eric

Bonjour Eric
je ne peux pas les mettre sous forme d'une BD car l'objectif aprè ce calcul est de faire une BDD correcte avec tous les KPIs qu'on va faire ressortirde ce calcul.
As-tu une idée comment je pourrai faire ?
J'ai vraiment besoin de votre aide parcque c'est un projet de stage et je de dois rendre les livrables la semaine prochaine
Merci beaucoup

Citation:

---

je ne peux pas les mettre sous forme d'une BD car l'objectif aprè ce calcul est de faire une BDD correcte

---

Heuuu, possible que ça ne soit pas possible mais là ce n'est pas une justification valide, il n'y a pas de lien.
Enfin, c'est toi qui voit

Bonjour
J'ai dit que c pas possible en pensant au temps nécessaire pour la réaliser, Vu que j'ai pas beaucoup de temps je veux juste dépanner par ce j'ai