Discussion :

[Elstak]

Coucou,

voilà j'ai une feuille excel avec dans une colonne un nom et dans l'autre, sur la meme ligne, une valeur.

je dois faire la somme lorsque le nom est le meme.

Exemple


A 10
B 12
C 3
B 9
C 14


je dois avoir dans ma feuille finale :

A 10
B 21
C 17


or un nom peut apparaitre à n'importe quelle ligne.

pour le moment mon code regarde la premiere ligne de ma feuille source et si le nom n'est pas dans ma feuille cible alors il ajout une ligne (dans la feuille cible) avec ce nom et la valeur. Si le nom est deja present il ajoute la valeur à la valeur deja présente.

Le probleme est que comme il y a environ 80 noms différents, lorqu'il prend un nom de la feuille source il peut faire jusque 80 comparaisons... comme j'ai plus de 40000 lignes.... ca prend du temps (4 minutes environ) et le souci est que j'ai à répéter ca une dizaine de fois (par semaine).

Je voulais donc savoir s'il existait une autre methode plus rapide que la mienne

[illight]

Pourquoi ne pas faire une formule ? je crois que le "NB.SI" fait ce que tu demande

EDIT : ah nan ça te dit juste le nombre de cellules qui contiennent la meme valeur..mais tu dois pouvoir le concaténer avec une somme ou un truc comme ça..Vais chercher

[laloune]

je dois faire la somme lorsque le nom est le meme.

illight a raison, même si je pencherais plutot pour un somme.si:

somme.si(plage_qui_contient_les_critères;critère;plage_qui_contient_les_nombres_a_sommer)

Bon dev...
laloune

[Elstak]

Ok illight mais mon probleme n'est pas d'avoir un resultat mais d'ameliorer le temps d'execution.

Donc le NB.si peut convenir (j'irai verifier ) mais je ne sais pas si ca sera plus rapide.. enfin je testerai pour voir

sinon voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For i = 2 To NombreLignes
    j = 3
        Do While Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes) <> ""
            'Si la sclass a deja été rencontrée
            If Source.Worksheets("data").Cells(i, 4) = Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes) Then
                'on ajoute la valeur
                Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes + 1) _
                = Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes + 1) _
                + Source.Worksheets("data").Cells(i, 5)
                GoTo 1:
            Else
                j = j + 1
            End If
        Loop
        'si on arrive ici c'est que le sclass n'a pas été trouvé
        Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes) = Source.Worksheets("data").Cells(i, 4)
        Ceclasseur.Worksheets(Nomfeuille).Cells(j, NombreColonnes + 1) = Source.Worksheets("data").Cells(i, 5)
1:
    Next

nombredeligne est le nombre de lignes qu'il y a à comparer dans la feuille source.

nombrecolonnes est calculé juste pour savoir la place où vont etre copiées les valeurs (dans la feuille de Ceclasseur).

[illight]

je confirme que le NB.SOMME marche très bien suffit que dans ta macro tu fasse une formule après tu la tire
Dans ton autre feuille, tu peux mettre tous les noms, les trier puis supprimer les doublons, ensuite tu met ta formule et tu la tire (tout ça tu peux le faire en macro )

Et je pense qu'une formule sera toujours plus rapide qu'une macro avec des boucles

[Elstak]

mon code??

il est au dessus ouvre les yeux

[illight]

Ousk il l'a mis le code Elstak

Pour la formule c'est ça..
Donc d'abord ce que j'ai fait c'est que j'ai mis tes valeur de "nom" dans la feuille1 dans la première colonne, et les valeurs dans la 2e colonne, et ensuite dans la feuille 2 j'ai mis les 3 noms avec la formule donc adéquate en face donc voici la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME.SI(Feuil1!$A$1:$B$5;A1;Feuil1!$B:$B)

[Elstak]

jcomprend pas trop ton somme.si

d'ailleur je trouve rien à propos de ca dans l'aide excel 2003 !!

il faut savoir à l'avance les noms qu'il y aura? car moi je les ignore au debut... ca change d'une semaine à l'autre

[ouskel'n'or]

Ok pour le code, mon post a dû le croiser ou j'ai pas vu
Elstak, pourquoi ne pas utiliser Find ? Inconvénient : si le nom peut se rencontrer plusieurs fois...
Tu dis

Mais l'idée de la formule, si ça correspond à ce que tu veux, est bonne. Une formule donne un résultat instantané si tu peux la placer dans ta feuille dans laquelle tu souhaite placer le résultat. Mais pour ce que j'ai compris, la donnée "résultante" doit se trouver à la place de la donnée cherchée... Et là, ça marche pas. Faudrait ajouter une colonne
Tu dis

somme.si est une formule Excel, ce n'est pas une fonction VBA. Tu as la réponse dans mon post précédent

[Elstak]

Perso, d'apres mes souvenir des formules, j'utiliserai plutot une recherche verticale non?

si il trouve pas j'ajoute le nom en dessous sinon j'ajoute la valeur au niveau de la ligne qu'il me trouvera. enfin je ne suis toujours pas convaincu que ce sois plus rapide je pense qu'il faudrai modifier mon code mais je sais pas trop comment j'ai deja lu que travailler avec des "array" rendait plus rapide mais bon jvois pas trop si jpeux m'en servir

[ouskel'n'or]

Si le nom est deja present il ajoute la valeur à la valeur deja présente.

C'est qui "il" ?
Peux-tu nous montrer le code de tes boucles (car je pense que tu as deux boucles imbriquées...)