no save
Assistance
Achat
News

Forum | programmation
EXCEL MACRO CALCUL
croy, le mer. 28 mai 2008 à 22:13:15
Voici une ébauche de macro de calcul :
sub temp
set laS = sheets("base")
numLgn = 3
totalCol4 = 0
do ' boucle sur les lignes de données
laRégion = laS.cells(numLgn,1) ' extraction de la région
if( laRégion = '' ) then exit do ' si elle est vide ==> fin des données atteinte
'
if( laRégion = 'IdF' ) then ' c'est la région que l'on veut traiter
totalCol4 = totalCol4 + laS.cells(numLgn,4) ' cumul
endif
'
numLgn=numLgn+1 ' passage à la ligne de données suivante
loop
msgbox "total col 4 ' & totalCol4 ' affichage du résultat
end sub


Cette ébauche :
- n'est pas liée à ta userform : je te conseille de bien mettre au point ta macro de calcul en mettant dedans en dur les paramètres (ici "IdF") qui seront ensuite extraits de la UserForm
- est certainement incomplète (par exemple le cumul par département) mais je ne vais pas tout faire pour toi
- est formatté et commentée ce que je te recommande car ce n'est pas du temps perdu
Précédentephemere18
mai 08
ephemere18
mai 08
Suivant
REPONSES
croy
mai 08
ephemere18
mai 08
croy
mai 08
ephemere18
mai 08
croy
mai 08
Version Web
Réalisé par RedShift
no save