creation, incrementation et appel d'une variable

Version imprimable

20/08/2007, 13h31
Tifendro

creation, incrementation et appel d'une variable

bonjour,

Je dispose de 10 feuilles dans un classeur Excel.

sur chaque feuille la colonne A est un numéro de série (0x xxx xx)
et la colonne B une valeur.

je souhaiterais faire la somme de ces valeurs suivant le numéro de série.
Les resultats sont affichés dans un tableau de la feuille "00"

En gros c'est une sorte de SOMME.SI étendu à plusieurs feuilles.

Comme mon nombre de feuilles est variable , je pense passer par du VBA pour effectuer cela.

Mon idée:
Scanner ligne par ligne les feuilles. Je pense creer une variable par numéro de série rencontré.
Des qu'un numéro de serie est rencontré il additionne la valeur en B avec la valeur de la variable du mm nom que la colonne A.

Je me demandais donc si on resonnement etait bon ? et enfin comment faire parce que je bloque.

Je sais parcourir les différentes feuilles et les colonnes A et B mais je ne sais pas comment creer mes variables, les incrémenter avec la valeur en B et enfin les faire s'afficher dans mon tableau de la feuille "00".

Merci par avance pour la récieuse aide que vous allez peut etre pouvoir m'offrir.
20/08/2007, 13h44
ouskel'n'or

Pas compris :(
Tu as "0x xxx xx" dans une colonne et une valeur dans la suivante de la même ligne
Que veux-tu faire ?

Citation:

"0x xxx xx" + Valeur => 01 245 10 + 12 = 01 245 22

ou

Citation:

"0x xxx xx" & Valeur => => "01 245 10" & "12" = "01 245 1012"

Quelque soit la manière, pourquoi créer un tableau ?
Tu peux placer directement le résultat dans ta feuille "00"
Comment veux-tu placer le résultat, par ligne ou par colonne ?
20/08/2007, 13h59
Tifendro

désolé je me suis peut etre mal exprimé :

exemple :
sur la feuille 01

___ A ___ | __ B __
01 666 54 | 16
01 666 53 | 8

sur la feuille 02

___ A ___ | __ B __
01 666 54 | 9
01 666 55 | 8

je voudrais pouvoir avoir sur la feuille 00

___ A ___ | __ B __
01 666 54 | 27
01 666 53 | 8
01 666 55 | 8
20/08/2007, 14h14
ouskel'n'or

Citation:

Envoyé par Tifendro

je voudrais pouvoir avoir sur la feuille 00

___ A ___ | __ B __
01 666 54 | 27 'Tu veux dire 25 ?
01 666 53 | 8
01 666 55 | 8

A+

Salut, bon, j'ai fait un truc, c'est un peu du bidouillage, je sais pas si ça t'iras mais bon ça te fera au moins une piste si tu veux pas prendre ça tel quel...

En gros, je stocke les differentes references de toutes tes feuilles sur une feuille "infos", puis je fais le cumul de chacune de ces references sur la même feuille "infos", mais bon y a sûrement moyen de faire mieux mais ça marche :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Sub sommeref()
 
Dim ref As String
 
i = 1
j = 1
 
'RECUPERE LES DIFFERENTES REFERENCES ET LES STOCKE SUR UNE FEUILLE
 
For ind = 1 To Workbooks("Mon Fichier.xls").Sheets.Count
 
    i = 1
 
    Do While Sheets(ind).Range("A" & i) <> ""
 
        trouv = 0
        j = 1
 
        Do While Sheets("infos").Range("B" & j) <> ""
 
            If Sheets(ind).Range("A" & i) = Sheets("infos").Range("B" & j) Then
 
                trouv = 1
 
            End If
 
            j = j + 1
 
        Loop
 
        If trouv = 0 Then
 
            Sheets("infos").Range("B" & j) = Sheets(ind).Range("A" & i)
 
        End If
 
        i = i + 1
 
    Loop
 
Next ind
 
'PARCOURE LES DIFFERENTES REFERENCES PRECEDEMMENT TROUVEES ET FAIT LE CUMUL SUR CHAQUE REFERENCE POUR TOUTES LES FEUILLES
 
i = 1
j = 1
 
Do While Sheets("infos").Range("B" & j) <> ""
 
    ref = Sheets("infos").Range("B" & j)
    cum = 0
 
    For ind = 1 To Workbooks("Mon Fichier.xls").Sheets.Count
 
        i = 1
 
        Do While Sheets(ind).Range("A" & i) <> ""
 
            If ref = Sheets(ind).Range("A" & i) Then
 
                cum = cum + Sheets(ind).Range("B" & i)
 
            End If
 
            i = i + 1
 
        Loop
 
    Next ind
 
    Sheets("infos").Range("C" & j) = cum
    j = j + 1
 
Loop
 
End Sub

20/08/2007, 15h29
Tifendro

je regarde tout ca et je reviens vers toi.

Merci par avance pour ce que tu as fait.
20/08/2007, 15h54
Tifendro

Ca marche au poil !!!
j'ai rien eu a modifier !!!!!
Vraiment tres beau boulot et merci pour ton aide si précieuse !!!

:mouarf1:

Bravo encore .

Merci
Tifendro
20/08/2007, 18h58
ouskel'n'or

Résolu ? Alors un petit clic sur :resolu: ;)
21/08/2007, 09h47
random

c'est quand même dommage de ne pas utiliser les outils intégrés d'excel

données
consolider
étiquettes colonnes de gauche