Discussion :

[Hanada]

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

[Jean-Philippe André]

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 ?

[Hanada]

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 :

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
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

[Jean-Philippe André]

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 :

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

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

[Hanada]

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

[HopPopPop]

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, ... ?