EXCEL-recup d'une somme de valeur d'1 tableau en fonction d'un 2eme [Résolu]

Signaler
Messages postés
87
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
17 décembre 2008
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Salut a tous
Je suis completement novice en VB.
En faite je dois faire ca pour la secretaire.
Un bon stagiaire est un stagiaire exploite .... LOL

bon voila mon probleme :

dans EXCEL j'ai 2 tableau de 12 lignes (represente 12mois)
dans le 1er je suis sur d'avoir les 12 lignes mais pas dans le 2eme.

Donc je voudrais recup la somme de mes valeurs en fonction du nombre de ligne du 2eme tableau
( si 10 lignes dans le 2eme : faire la somme des 10 lignes du 1er)

Probleme tres con mais difficile a expliquer...

Merci pour votre aide

Atomik29

1 réponse

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

Voici un début de code :

dim xApp as object
dim wBook as object
dim wSheet as object
dim DerLigne as integer

'créer les objets excel + classeur
Set xApp = CreateObject("Excel.Application")
Set wBook = xApp.Workbooks.Open("c:\tonfichier.xls")
Set wSheet = wBook.WorkSheets("Nom de la feuille avec 1er tableau")
Set wSheet2 = wBook.WorkSheets("Nom de la feuille avec 2nd tableau")

wSheet2.Select
DerLigne = Range("A1").End(xlDown).Row 'ca cherche la derniere ligne utilisée

wSheet.Select
Dim SommeX As Long, i As Integer
SommeX = 0
For i = 1 To DerLigne
SommeX = SommeX + Cells(i, 2).Value
Next i
' a partir d'ici, SommeX a fait la somme de la plage voulue

'Pour fermer
wBook .Close False
xApp.Quit

Voilà,

++
Mortalino