[VBA-E]Comparer 2 séries différentes

Version imprimable

23/05/2006, 11h58
Elstak

[VBA-E]Comparer 2 séries différentes

coucou,

vraiment les titres et moi ca fait 2 alors je vais bien m'expliquer en dessous :roll:

j'ai sur une feuille Excel 2 colonnes, exemple :

colonne1 | colonne2
200 | P1
120 | P1
345 | P6

et jai sur une autre feuille à quoi correspondent les P1...

colonne1 | colonne2

P1 | 100
P2 | 150
P3 | 180

et je voudrais trouver les lignes de la feuille 1 pour lesquelles la colonne 1 depasse la valeur maximale autorisée (ces valeurs sont celles de la feuille 2).

Exemple on a à la ligne 1, 200 et P1 or on voit que le maximum autorisé par P1 est 100 (dans la feuille 2)

J'ai pas trop d'idée sur la méthode :?

peut etre que je devrai creer un tableau 2 dimensions, je met ligne 1 les valeurs de la feuille 2 colonne 1 (P1, P2, P3...) puis dans la ligne 2 les valeurs maximales (feuille 2 colonne 2) et à chaque ligne de ma feuille 1 je cherche dans mon tableau la valeur qui correspond au code (P1,P2..) de la ligne et je recupere la valeur maximale associée.

Pour ceux qui comprennent le paragraphe au dessus du 1er coup bravo !! :lol:

plus serieusement je suis preneur de toutes les idées qui répondent à mes besoins.
23/05/2006, 12h01
illight

Tu veux obligatoirement le faire par macro ?
Car avec des formules ça serai plus simple, en utilisant une rechercheV je pense :D
23/05/2006, 12h48
illight

Bah personnellement c'est ce que j'ai fait a mon boulot ou j'avais un truc un peu du meme genre :

Code:

=SI(RECHERCHEV(B2;Feuil2!$A$1:$B$4;2;0) < Feuil2!B1;"2";"rien")

En faisant un Si :)

Sachant que dans la première feuille j'ai mis tes premières valeurs comme tu les as mises, et dans la feuille2 j'ai juste pa smis les titres :D

Après faut retrouver le numéro de la ligne mais je pense pas que ça soit trop difficile :koi:

EDIT : meme pas dans te recherche tu met un ou 0 dans le SI pour voir lesquelles sont bonne sou non et suivant le résultat que tu auras avec ce Si, bah tu verra le nombre d elignes :) APrès ça dépend ce que tu veux faire de ces données :D

J'espère que j'ai été clair dans ce que j'ai dit au fait :oops:
23/05/2006, 13h16
Elstak

Merci pour ta solution illight mais je pense que c'est pas adapté à ce que je veux faire :?

ce serait trop compliqué avec un SI et une RECHERCHEV car en realité (là javai simplifié) je voudrai ne copier que certaines colonnes des lignes qui sont acceptées (condition remplie) car il y a une quinzaine de colonne dans ma feuille 1.

Alors pour l'instant je reste sur mon tableau, enfin je vais essayer de faire un ptit truc :? on verra ce que ca donne :mouarf:

je reste toujours dispo à d'autre idée :D
23/05/2006, 14h12
illight

Bah justement si la condition est remplie et que la formule que je t'ai donnée est égale à 1, tu prend les colonnes (ou lignes j'ai pas trop compris :aie: ) qui t'intéresse et tu les copie dans une autre feuille :) ta rechercheV tu peux l'élargir a plein de trucs :mrgreen:

Yop me revoici,

en fait je m'en tire bien avec mon tableau et jai le resultat rapidement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    'on regarde les temps depassés
    For i = 2 To NbLignesFeuil1
        ValeurTemp = Sheets("feuil1").Cells(i, 12)
        'on cherche la priority dans le tableau rempli et on remplace par le temps correspondant
        For j = 1 To NbLignesFeuil2
            If (ValeurTemp = Donnees(j, 1)) Then
                ValeurTemp = Donnees(j, 2)
                Exit For
            End If
        Next
        'on regarde si la valeur est supérieure à la durée totale (colonne D)
        If (ValeurTemp < Sheets("feuil1").Cells(i, 4)) Then
            Sheets(NomFeuille).Cells(NumLigneCopiee, 1) = Sheets("feuil1").Cells(i, 1)
            Sheets(NomFeuille).Cells(NumLigneCopiee, 2) = Sheets("feuil1").Cells(i, 2)
            Sheets(NomFeuille).Cells(NumLigneCopiee, 3) = Sheets("feuil1").Cells(i, 3)
            Sheets(NomFeuille).Cells(NumLigneCopiee, 4) = Sheets("feuil1").Cells(i, 6)
            Sheets(NomFeuille).Cells(NumLigneCopiee, 5) = Sheets("feuil1").Cells(i, 11)
            NumLigneCopiee = NumLigneCopiee + 1
        End If
    Next

je pense que cette partie correspond à ce que doit faire une recherchev (réelement) donc je pense pas que ce soit plus rapide avec une rechercheV :P

Code:

1
2
3
4
5
6
7
8
9
 
ValeurTemp = Sheets("feuil1").Cells(i, 12)
        'on cherche la priority dans le tableau rempli et on remplace par le temps correspondant
        For j = 1 To NbLignesFeuil2
            If (ValeurTemp = Donnees(j, 1)) Then
                ValeurTemp = Donnees(j, 2)
                Exit For
            End If
        Next

mais merci pour l'idée quand meme :D

23/05/2006, 15h58
illight

Effectivement c'est ce que je fais une rechercheV :)

L'avantage de ta macro est que tu peux copier plus facilement et directement la ligne :D
23/05/2006, 16h09
ouskel'n'or
Oui, bien sûr mais au lieu de mettre 5 lignes, tu pouvais faire ça
'Crée le tableau des N° de colonnes où tu copies les données
Code:

1 2 NoColCopiée = Array(0, 1, 2, 3, 6, 11)
Et dans ta boucle, à la place de tes 5 lignes, mettre
Code:

1 2 3 4 5 6 If (ValeurTemp < Sheets("feuil1").Cells(i, 4)) Then For j = 1 To 5 Sheets(NomFeuille).Cells(NumLigneCopiee, i) = Sheets("feuil1").Cells(i, NoColCopiée(j)) Next Endif
Mais ne change rien, ce n'est que parce j'allais te proposer un truc comme ça et que je n'ai pas eu le temps de le finir. Là, avec ton code, m'a fallu 2mn1/2 pour terminer ;)
A+
23/05/2006, 16h20
Elstak

Citation:

Mais ne change rien

Pourquoi? :P

enfin non j'allais pas changer mais ca m'a l'air pas mal ces array... si un jour jdois copier plus que 5 ligne jm'en servirait ;)
24/05/2006, 08h53
Elstak

T'inquietes donc pas mon dodo

on fait meme pas le pont ici ( :cry: )

alors aujourdhui ou vendredi y'en aura bien 2/3 autres :mouarf:
24/05/2006, 14h30
Elstak

:oops: