boucle

Question

Bonjour a tous,

j'ai une macro qui calcul le cout de stockage sur plateforme :

Function coutstockage() As Currency
Dim cout As Currency
Dim nbpal As Integer
Dim cmm As Integer

nbpal = Cells(8, 2)
cmm = Cells(10, 2)
cout = Cells(11, 2)


Dim nbmois As Integer
nbmois = (nbpal / cmm)


Dim t As Integer
t = 0
Do While t <> nbmois
coutstockage = coutstockage + (cout * (nbpal - (t * cmm)))


t = t + 1
Loop
End Function


Ici le stockage se calcule par palette, le but de cette macro serait au pr&#233;alable de tester une cellule pour voir si le stockage se calcul a la palette ou au cartondu type si C13 palette alors on lance la macro ci dessus, et si C13 carton, on lance une macro similaire, seule les param&#232;tres
nbpal = Cells(8, 2)
cmm = Cells(10, 2)
cout = Cells(11, 2)
change, pour les calculs on prendra en compte d'autre cellule.

Comment prendre tout ceci en compte?
peut on avoir dans une macro if et do while?

Comment faire svp!!

Merci bcp

aurel

cs_Jack · Answer

Salut
Bah tu am&#233;liore le param&#233;trage de ta Function :
Function coutstockage(ByVal TypeEmballage As String) As Currency
et au lancement, tu fais :
Cout = CoutStockage(Cells(3,13))   ' C13 doit s'&#233;crire 3,13 mais pas s&#251;r, pas habitu&#233; au VBA
et dans ta function, tu ajoutes ces tests :
Select Case LCase(TypeEmballage)   ' LCase pour convertir en minuscules
   Case "carton"   ' en minuscules
      nbpal = Cells(8, 2)      ' tu mets les cellules correspondant aux param&#232;tres "carton"
      cmm = Cells(10, 2)
      cout = Cells(11, 2)
   Case "pallette"   ' en minuscules
      nbpal = Cells(8, 2)      ' tu mets les cellules correspondant aux param&#232;tres "palette"
      cmm = Cells(10, 2)
      cout = Cells(11, 2)
End Select
Le reste ne changeant pas, d'apr&#232;s ce que disais

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

chahir_s1 · Answer

salut a tous 
j'ai l'honneur de partager avec vous mon idée 
mon projet est la gestion d'accée via le réseaux wifi et sécurité de réseaux wifi
s'il vous plait aider mos 
merci

Boucle

2 réponses

Discussions similaires