Calcul simple sous excel avec vba

sonexopteor Messages postés 10 Date d'inscription jeudi 26 août 2004 Statut Membre Dernière intervention 8 septembre 2004 - 26 août 2004 à 09:50
bizbizu Messages postés 13 Date d'inscription jeudi 6 novembre 2003 Statut Membre Dernière intervention 26 mai 2005 - 27 août 2004 à 09:55
bonjour,

Je suis total debutant en programmation, j'ai une question sous vba dans excel.
J'ai une feuille excel avec dans la premiere colonne des dates (du 1er janvier au 31 decembre, et dans la deuxieme colonne pour chaque date un chiffre correspondant.
J'ai créé deux list box avec les date de la premiere colonne, et je souhaiterais pouvoir calculer la somme des chiffres entre les deux dates slectionnées par l'utilisateur.
C'est à dire, soit une fois les deux dates selectionnées le calcul s'affiche dans une troisieme case, soit en appuyant sur un bouton le calcul se fait.

Merci

1 réponse

bizbizu Messages postés 13 Date d'inscription jeudi 6 novembre 2003 Statut Membre Dernière intervention 26 mai 2005
27 août 2004 à 09:55
C une simple question de programmation

Effectue une recherche de la date la plus anterieure sur ta liste de date (si possible met des noms a tes plages comme listeDate (pour la liste des dates) et listVal (pour la liste des valeurs)

'init de i et j
i=1
j=1

'repere la ligne de ta date la + petite
While listbox1<>Range("listeDate").Cells(i)
i=i+1
Wend
'repere la ligne de l'autre date
While listbox2<>Range("listeDate").Cells(j)
j=j+1
Wend

'fait la somme
somme=0
For i=i to j
somme=somme+Range("listVal").Cells(i)
Next i


Et tu affiches ta somme a la fin :)

Bon courage, yaura peut etre quelques modifs a faire pour adapter a ton prog mais ca doit marcher ainsi ... n'oublie po de bien determiner quelle listbox possede la date inferieure ;)
0
Rejoignez-nous